<% '*** [strbody] is a "Main_Page_Center" page content template. Response.Write strbody %>

<% If session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Write "

Configure THIS Page

" setLocale server_locale If Not CStr(Request.Cookies("clboard_hitcount" & strUnique)("nocount")) = "True" then Response.Cookies("clboard_hitcount" & strUnique)("nocount") = True objConn.Execute("INSERT INTO " & tablPfx & "HitLog(hitDate, IP, referer) VALUES (" & sdd & ConvDate(Now) & sdd & ", '" & Request.ServerVariables("REMOTE_ADDR") & "', '" & Request.ServerVariables("HTTP_REFERER") & "');") 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 Else: newvalue = CLng(rs("hitcounter")) + 1 Response.Cookies("clboard_hitcount" & strUnique)("visitor") = newvalue objConn.Execute("UPDATE " & tablPfx & "Counter SET hitcounter = '" & newvalue & "';") End If rs.close ExpireAds End If %>