<%@ Language=VBScript %>
<%
Dim Conn
Set Conn = GetDBConn("admen")
clientid = Request.QueryString("clientid")
if clientid="" then
return=trim(Session("return"))
if return="yes" then
clientid = trim(session("clientid"))
else
response.Redirect("http://www.admengroup.com")
end if
end if
set rsCLIENT = conn.execute("select cName,cURL,ctypeID from tblClient where clientid = " & clientid)
while not rsCLIENT.eof
cName = rsCLIENT.fields(0).value
curl = rsCLIENT.fields(1).value
ctypeID = rsCLIENT.fields(2).value
rsCLIENT.movenext
wend
%>
ADMEN MULTI-STUDIOS