%Option Explicit 'this means you must declare every variable in the page... Dim sMessage sMessage = "" If lcase(Request.ServerVariables("request_method")) = "post" Then SendEmail() sMessage = "success" End If Public Sub SendEmail() Dim oMail Dim sMailBody Dim sSubject Set oMail = CreateObject("CDONTS.Newmail") 'build body string. sMailBody = sMailBody & vbCrlf & Request.Form("name") & " is the subscriber's name." & vbCrlf sMailBody = sMailBody & Request.Form("email") & " is the subscriber's email address." & vbCrlf sSubject = "Filter Reminder" 'send mail. oMail.To = "stefan@webchili.com" oMail.Subject = sSubject 'oMail.BodyFormat = 0 'oMail.MailFormat = 0 oMail.Body = sMailBody oMail.Send Set oMail = Nothing End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|