<%@ language=VBscript%>
<%
Dim Conn
Set Conn = GetDBConn("admen")
ClientID=23
'---------------------To Check wether site is ACTIVE----------------------------
set rsSTATUS=conn.Execute("select status from t101client where clientid=" & ClientID)
while not rsSTATUS.eof
cSTATUS=trim(rsSTATUS.fields(0).value)
rsSTATUS.movenext
wend
URL="http://www.admensupport.com/asp/blocked.asp?clientid=" & ClientID
if (cSTATUS<>"Active") then
response.Redirect(URL)
end if
%>
<%
'-----------------------------Scroll Bar----------------------------------
flash=""
set rsFLASH=conn.Execute("select flash from t202news where clientid=" & ClientID)
while not rsFlash.eof
flash = rsFlash.fields(0).value
rsFlash.movenext
wend
'-----------------------------NOTICE BOARD----------------------------------
NOTICE=""
set rsNOTICE=conn.Execute("select NOTICE from t202news where clientid=" & ClientID)
while not rsNOTICE.eof
NOTICE = rsNOTICE.fields(0).value
rsNOTICE.movenext
wend
'---------------------------Online Hit Counter----------------------------
Hits=0
set rsHits=conn.execute("select HITS from t101client where clientid=" & ClientID)
hits=rsHits.fields(0).value
%>
Bajpai Group
