Absolutely Energized Solar

<% ' change to address of your own SMTP server strHost = "65.163.26.152" If Request("Send") <> "" Then fieldcount = 0 Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "info@aesolar.com" 'Request("email") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress "info@aesolar.com" ' Request("To") Select Case Request("contactreason") Case "1" contactstring = "Information about products and services" Case "2" contactstring = "Testimonial regarding your solar installation" Case "3" contactstring = "Status of your solar installation" Case "4" contactstring = "Referral information and incentives" Case "5" contactstring = "Technical issues with the website" Case "6" contactstring = "Other" End Select ' message subject Mail.Subject = "AESolar Website Contact: " & contactstring 'Request("Subject") ' message body Mail.Body = "Name: " & Request("FromName") & vbCrLf & "E-mail: " & Request("email") & vbCrLf & "Reason for contact: " & contactstring & vbCrLf & "Message: " & Request("message") strErr = "" bSuccess = False On Error Resume Next ' catch errors If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If If Request("FromName") <> "" then fieldcount = fieldcount + 1 end If If Request("email") <> "" then fieldcount = fieldcount + 1 end If If Request("confirmemail") <> "" then fieldcount = fieldcount + 1 end If If Request("contactreason") <> "" then fieldcount = fieldcount + 1 end If If Request("message") <> "" then fieldcount = fieldcount + 1 end If If fieldcount < 5 then strErr = "Please fill out all of the required fields in red" bSuccess = False elseIf Request("email") <> Request("confirmemail") then strErr = "E-mail address does not match Confirm E-mail address" emailerror = True bSuccess = False 'elseIf ValidateAddress(Mail.from) <> 0 then ' strErr = "Invalid E-mail address format" ' emailerror = True ' bSuccess = False else bSuccess = True Mail.Send ' send message End If End If %> Absolutely Energized Solar - Contact Us

You OWN Your Home... WHY KEEP RENTING Your Electric?

By e-mail:

info@aesolar.com

By mail:

37 Prodelin Way
Englishtown, NJ 07726

By phone/fax:

(732) 792-0700 phone
(732) 385-1359 fax