';return;">
<%
Set Reverser = Server.CreateObject("DNSLookup.ReverseDNS")
HostName = Reverser.GetHostByAddr(Request.ServerVariables("REMOTE_HOST"))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsnMantaUsers"
lstrSQL = "INSERT INTO clickthrough" & _
" (ClientHost,When,Target,WebURL,MatchLevel,eMail)" & _
" VALUES ('" & HostName & "', now(), 'All Targets','UnProcessed',0,'" & Request("URL") & "')"
set RS = Conn.Execute(lstrSQL)
'RS.Close
'Conn.Close
%>