<%
querystring=trim(replace(request.servervariables("query_string"),"404;",""))
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = iConf
dim serverDVal,localDVal
serverDVal = now()
localDVal = DATEADD("h",-3,serverDVal)
Body = Body + "The following page was requested and not found on the server at " & localDVal & chr(13)
Body = Body & querystring & vbCrLf & vbCrLf &"Below are all the server variables for the request" & vbCrLf & vbCrLf & "Ip Address: " & Request.Servervariables("REMOTE_HOST") & vbCrLf & "Referrer: " & request.servervariables("http_referer")
objCDO.From = "sarvesh@imperva.com"
objCDO.To = "sarvesh@imperva.com"
objCDO.Subject = "404 Error on Imperva.com"
objCDO.TextBody = Body
objCDO.Send
END SUB
'sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
' Any existing page can be used for the response redirect method
%>
Imperva - Altogether Better