%@ Language=VBScript %> <% If Request.Cookies("ENTRY_PAGE") = "" Then Response.Cookies("ENTRY_PAGE") = Request.ServerVariables("SCRIPT_NAME") Response.Cookies("ENTRY_PAGE").Expires = DateAdd("n", 60, Now) LogHit("C:\InetPub\adc_search_engine_entry_pages_hits.txt") End If Function LogHit(filespec) On Error Resume Next REMOTE_HOST = CStr(Request.ServerVariables("REMOTE_HOST")) If REMOTE_HOST <> "63.231.19.120" _ And REMOTE_HOST <> "63.231.19.121" _ And REMOTE_HOST <> "63.231.19.122" _ And REMOTE_HOST <> "63.231.19.123" _ And REMOTE_HOST <> "63.231.19.124" _ And REMOTE_HOST <> "63.231.19.125" _ And REMOTE_HOST <> "63.231.19.126" Then Dim fso, theFile, count, strLog, RemoteIP Set fso = CreateObject("Scripting.FileSystemObject") If Not (fso.FileExists(filespec)) Then fso.CreateTextFile(filespec) End If Set theFile = fso.OpenTextFile(filespec, 8) strLog = Date & "|" & Time & "|" & Request.ServerVariables("HTTP_REFERER") & "|" & Request.ServerVariables("SCRIPT_NAME") & "|" & Request.ServerVariables("REMOTE_HOST")& "|" & Request.ServerVariables("HTTP_USER_AGENT") & vbcrlf theFile.Write strLog theFile.Close End If On Error GoTo 0 End Function call OpenDBConnection() strSql = "sp_ADC_Catalog_DisplaySearchEnginePages '5039'" Set rsADC_ASSESSMENTS = DBConn.Execute(strSql) If rsADC_ASSESSMENTS.EOF Then Response.Redirect("/purchase/category.asp") End If %>
<% If Not IsNull(rsADC_ASSESSMENTS("NAME")) And Trim(rsADC_ASSESSMENTS("NAME")) <> "" Then %>
<%=rsADC_ASSESSMENTS("NAME")%>
<% End If %>
<% If Not IsNull(rsADC_ASSESSMENTS("DESCRIPTION_SHORT")) And Trim(rsADC_ASSESSMENTS("DESCRIPTION_SHORT")) <> "" Then %>
<%=rsADC_ASSESSMENTS("DESCRIPTION_SHORT")%>
<% End If %>
<% If Not IsNull(rsADC_ASSESSMENTS("SUMMARY")) And Trim(rsADC_ASSESSMENTS("SUMMARY")) <> "" Then %>
<%=rsADC_ASSESSMENTS("SUMMARY")%> <% End If %> <% If Not IsNull(rsADC_ASSESSMENTS("DESCRIPTION_BODY")) And Trim(rsADC_ASSESSMENTS("DESCRIPTION_BODY")) <> "" Then %><%=rsADC_ASSESSMENTS("DESCRIPTION_BODY")%> <% End If %> <% If Not IsNull(rsADC_ASSESSMENTS("DESCRIPTION_FOOTER")) And Trim(rsADC_ASSESSMENTS("DESCRIPTION_FOOTER")) <> "" Then %>Notes: <%=rsADC_ASSESSMENTS("DESCRIPTION_FOOTER")%> <% End If %> |