<%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 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> Air Command Heating and Air Conditioning
Home

Air Command is committed to providing you the best in high quality, reliable Carrier air conditioning systems for residential use. Serving the Tampa Bay
area for over 20 years, Air Command has earned an impeccable reputation for its products, expertise and service that is second to none.

This has lead to a phenomenal record for the company. Air Command consistently reaps 75% repeat and referral business, thanks to our commitment to ongoing customer satisfaction.

Air Command’s specialties:


 



Homepage Contact Us Home Email Us Home Click4Talk Click4Talk