<% Call Build_List_Top("center", "99%", "xl_content") %><% '*** [strbody] is a "Main_Page_Center" page content template. Response.Write strbody %> <% Call Build_List_Bottom() %> <% If Sess_Array(48) = Session.SessionID then Response.Write "
Configure THIS Page
This link displayed for admin only...
" setLocale server_locale If Not CStr(Request.Cookies("clboard_hitcount" & strUnique)("nocount")) = "True" then Response.Cookies("clboard_hitcount" & strUnique)("nocount") = True Response.Cookies("clboard_hitcount" & strUnique).Path = "/" If Len(uagent) > 255 then uagent = Left(uagent, 255) objConn.Execute("INSERT INTO " & tablPfx & "HitLog(hitDate, IP, referer, uagent) VALUES (" & sdd & ConvDate(Now) & sdd & ", '" & IP & "', '" & Request.ServerVariables("HTTP_REFERER") & "', '" & uagent & "');") set rs = objConn.Execute("SELECT " & tablPfx & "Counter.hitcounter FROM " & tablPfx & "Counter;") If rs.EOF then objConn.Execute("INSERT INTO " & tablPfx & "Counter (hitcounter) VALUES (1);") Response.Cookies("clboard_hitcount" & strUnique)("visitor") = 1 Response.Cookies("clboard_hitcount" & strUnique).Path = "/" Else: newvalue = CLng(rs("hitcounter")) + 1 Response.Cookies("clboard_hitcount" & strUnique)("visitor") = newvalue Response.Cookies("clboard_hitcount" & strUnique).Path = "/" objConn.Execute("UPDATE " & tablPfx & "Counter SET hitcounter = '" & newvalue & "';") End If rs.close ExpireAds End If %>