<% Response.Status = "410 Gone" dim JMail, intComp, stremail, robot, strReferer, str1, strServer,strClientIP, strServerIP, blnSpam Set JMail = Server.CreateObject("JMail.SMTPMail") 'code to check if this page is being called from a another page on the server strReferer = request.servervariables("HTTP_REFERER") strServer = Replace(request.servervariables("SERVER_NAME"),"www.", "") strClientIP = request.servervariables("REMOTE_ADDR") strServerIP = request.servervariables("LOCAL_ADDR") strServerAgent = request.serverVariables("HTTP_USER_AGENT") stremail = "root@emailspider.co.uk" robot = False str1 = 0 str1 = inStr(strServerAgent,"Googlebot") If str1 = 0 Then str1 = inStr(strServerAgent,"Bingbot") If str1 = 0 Then str1 = inStr(strServerAgent,"googlebot") If str1 = 0 Then str1 = inStr(strServerAgent,"bingbot") If str1 <>0 Then robot = True End if 'If strServerAgent ="Mozilla/5.0 (compatible; Yahoo! Slurp; http://help.yahoo.com/help/us/ysearch/slurp)" Then robot = True End if 'If strServerAgent ="Googlebot/2.1 (+http://www.google.com/bot.html)" Then robot = True End if intComp = inStr(strReferer, strServer) If intComp > 0 Then blnSpam = False Else blnSpam = False End If ' This is my local SMTP server JMail.ServerAddress = "smtp." & strServer & ":25" ' This is me.... JMail.Sender = "noreply@" & strServer JMail.Subject = "JMail Example" & " Sent @ " & now() ' Get the recipients mailbox from a form (note the lack of a equal sign). JMail.AddRecipient "root@emailspider.co.uk" JMail.Body = str1 & strServerAgent & " robot visited latest http://www.city-forum.com/172.asp mail sent from: " & strServerIP & " using the JMail component on the server." JMail.Priority = 3 JMail.AddHeader "Originating-IP", strClientIP 'send mail If robot Then JMail.Execute strResult = "Mail Sent." Else strResult = "Mail Not Sent." End If %>