% Set ServerVar = Request.ServerVariables RIP = ServerVar("REMOTE_HOST") USERAGNET = ServerVar("http_user_agent") ' change to address of your own SMTP server strHost = "izombie.org" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "EdwardsCustomeHomes@gmail.com" 'Mail.AddAddress "chrisw@izombie.org" Mail.AddAddress "johns@fmchealth.org" 'Mail.AddAddress "sugada@gmail.com" Mail.FromName = "EdwardsMainPage " & RIP Mail.Subject = "EdwardsCustomeHomes" strBody = "From:" strBody = strBody & chr(13) strBody = "User:" & USERAGNET Mail.Body = strBody strErr = "" bSuccess = False On Error Resume Next ' catch errors lngTest = instr(USERAGNET,"SurveyBot/2.3") If lngTest = 0 then Mail.Send ' send message End If If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If %>
![]() |
![]() ![]() ![]() |
||||||||||||||||
![]() |
| ||||||||||||||||