%@ language=VBscript%> <% Dim Conn Set Conn = GetDatabaseConn() Dim Conn1 Set Conn1 = GetDatabaseConn1() ClientID=38 '---------------------To Check wether site is ACTIVE---------------------------- set rsSTATUS=conn.Execute("select status from tblClient where clientid="&ClientID) while not rsSTATUS.eof cSTATUS=trim(rsSTATUS.fields(0).value) rsSTATUS.movenext wend URL="http://www.admengroup.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 tblnews where clientid="&ClientID) while not rsFlash.eof flash = rsFlash.fields(0).value rsFlash.movenext wend '---------------------------Online Hit Counter---------------------------- Hits=0 set rsHits=conn1.execute("select HITS from tblhits ") hits=rsHits.fields(0).value+1 set rsAddHit=conn1.execute("update tblhits set HITS=" & hits ) '------------------------- Offline Hit Counter --------------------------- 'set rsHits=conn.execute("select HITS from tblclient where clientid="&ClientID) 'hits=rsHits.fields(0).value+1 'set rsAddHit=conn.execute("update tblclient set HITS=" & hits & " where clientid="&ClientID) %>
|
|
||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||