<% Sub SetPageCount(strPageKey, blnUnique) 'CODE FOR COUNTER On Error Resume Next Dim objConn, objCMD, blnCount blnCount = False If blnUnique = False Then blnCount = True If blnUnique = True Then 'Session boolean If Request.Cookies(strPageKey)("X") = "" Then blnCount = True sDate = Date() sDate = Month(sDate) & "/" & Day(sDate) & "/" & Year(sDate) & " 11:59:59 PM" 'Set expiration of session cookie Response.Cookies(strPageKey)("X") = "1" Response.Cookies(strPageKey).Expires = sDate End If If blnCount = True Then Err.Clear Set objConn = Server.CreateObject("ADODB.Connection") Set objCMD = Server.CreateObject("ADODB.Command") objConn.Open "mcmisc", "mcmisc", "mcmisc" REM -- ODBC Error Handling If Err.Number <> 0 Or objConn.State = 0 Then Call dbErrorHandler("Sub SetPageCount",FALSE) objCMD.ActiveConnection = objConn objCMD.CommandType = 4 objCMD.CommandText = "sp_insert_hit" objCMD.Parameters(1) = strPageKey objCMD.Parameters(2) = Now() objCMD.Execute REM -- ODBC Error Handling If Err.Number <> 0 Or objConn.State = 0 Then Call dbErrorHandler("Sub SetPageCount",FALSE) Set objCMD = Nothing objConn.Close Set objConn = Nothing End If End Sub Sub Init() ' String used to detect the name and the path of the file being served strSection = Trim(LCase(Request.ServerVariables("SCRIPT_NAME"))) ' String used to detect the Server Name strServer = Trim(LCase(Request.ServerVariables("SERVER_NAME"))) & ":" & Trim(LCase(Request.ServerVariables("SERVER_PORT"))) 'check whether or not the client is IE 5.5 and set bln MSIE55 to true if it is for later use in any page If InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MSIE 5.5") > 0 Then blnMSIE55 = True If InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MSIE 5") > 0 Then blnMSIE4X5 = True If InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MSIE 4") > 0 then blnMSIE4x5 = True blnMSIE4 = True End If If InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MSIE") > 0 then blnMSIE = True blnNN4 = False Elseif InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MOZILLA/4") > 0 then blnNN4 = True End if If InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MSIE") > 0 then blnNN6 = False Elseif InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MOZILLA/5") > 0 then blnNN6 = True End if If InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"MSIE 4") > 0 Or InStr(UCase(Trim(Request.ServerVariables("HTTP_USER_AGENT"))),"NN 6") > 0 Then blnNN6 = True 'check whether or not the client is using Windows 2000 and set blnW2K to true If InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Windows NT 5") > 0 OR LCase(Trim(Request("w2k"))) = "test" Then blnW2K = TRUE If InStr(strServer, "vil.mcafee.com") > 0 OR InStr(strServer, "vil.dev.mcafee.com") > 0 OR InStr(strServer, "vil.beta.mcafee.com") > 0 Then blnVIL = True End If If InStr(strServer, "clinic.mcafee.com") OR InStr(strServer, "clinic.qa.mcafee.com") OR InStr(strServer, "mcdev") Then blnCLINIC = True End If If LCase(Request("prereg")) = "true" Then blnPREREG = True End If End Sub Function dbErrorHandler(strFunction,blnRedirect) '//ODBC ERROR HANDLING If IsObject(objConn) Then Set objConn = Nothing If IsObject(objCMD) Then Set objCMD = Nothing Call errHandler(Err.Number,Err.Source,Err.Description,strFunction,blnReDirect) End Function %>