<%@ EnableSessionState=False %><%
' Active Server Page code Copyright (c) 1997-2002 All Rights Reserved Chris Presnell Computing, Inc.
' This code is required for your on-line customer administration system as well as our
' automated search engine submission system.
' Use the administration system to change your keyword list or description instead of editing this HTML.
' Please do not remove any of it or it will have to be fixed!!!
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DATABASE=Compuhelp;UID=Admin;PWD=;DSN=Compuhelp"
sql = "SELECT * FROM CustWebSites "
sql = sql & "WHERE (Domain Like 'groverpro.com');"
Set RS = Conn.Execute(sql)
RS.MoveFirst
cpDesc = RS("Description")
cpKeyList = RS("KeywordList")
RS.Close
%>
Grover Pro Percussion
<%
If Request.ServerVariables("HTTP_REFERER") <> "" Then
If Left(Request.ServerVariables("HTTP_REFERER"), 5) <> "file:" And Left(Request.ServerVariables("HTTP_REFERER"), 20) <> "http://groverpro.com" And Left(Request.ServerVariables("HTTP_REFERER"), 24) <> "http://www.groverpro.com" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DATABASE=WWWLog;UID=sa;PWD=;DSN=WWWLog"
sql = "INSERT INTO FromLinkGroverPro "
sql = sql & " (FromLink, FromIP)"
sql = sql & " VALUES("
sql = sql & "'" & Request.ServerVariables("HTTP_REFERER") & "'"
sql = sql & ", '" & Request.ServerVariables("REMOTE_ADDR") & " ' );"
Set RS = Conn.Execute(sql)
End If
End If
%>