<% 'If Request("Description")>" " Then
'myConnString = Application("searches_ConnectionString")
'Set myConnection = Server.CreateObject("ADODB.Connection")
'myConnection.Open myConnString
'mySQL= "INSERT INTO search "
'mySQL= mySQL & "(description,County,pc1,browse,ipad,country,remote,section,page) "
'mySQL= mySQL & "VALUES ('" & Request("description") & "','"
'mySQL= mySQL & Request("County") & "'"
'mySQL= mySQL &",'" & Request("post_c") & "'"
'mySQL= mySQL & ",'" & request.servervariables("HTTP_User_Agent") & "'"
'mySQL= mySQL & ",'" & request.servervariables("REMOTE_HOST") & "'"
'mySQL= mySQL & ",'" & request("country") & "','"
'mySQL= mySQL & Request.ServerVariables("HTTP_REFERER") & "','"
'mySQL= mySQL & "/" & "','"
'mySQL= mySQL & request.servervariables("script_name") & "')"
'myConnection.Execute mySQL
'myConnection.Close
'Set myConnection = Nothing
'End If
%>
|
© 2002-2010 KindToMe CONDITIONS OF USE
Contact KindToMe
|
