<%
name = request.form("name")
address1 = request.form("address1")
address2 = request.form("address2")
address3 = request.form("address3")
address4 = request.form("address4")
phone1 = request.form("phone1")
phone2 = request.form("phone2")
time = request.form("time")
email = request.form("email")
who = request.form("who")
program = request.form("program")
experience = request.form("experience")
age = request.form("age")
how = request.form("how")
comments = request.form("comments")
IF ((name="") or (email="")) THEN
ErrMsg = "Please enter your name and/or e-mail address"
ELSE
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.XXXXX.net"
Mail.From = "XXXXX@XXXX.com" 'Note: Must be someuser@yourdomain.com
Mail.FromName = "meghan"
' The User and Password below is required by ASPEmail to get by our SMTP Authentication
Mail.Username = "meghan"
Mail.Password = "XXXXXX"
Mail.AddAddress "meghan@XXXXXX.com", "Meghan"
Mail.AddReplyTo email
Mail.Subject = "website form"
BodyMsg = "Requested Information: " + Chr(10)
BodyMsg = BodyMsg + "Name = " & name & Chr(10)
BodyMsg = BodyMsg + "Address1 = " & address1 & Chr(10)
BodyMsg = BodyMsg + "City = " & address2 & Chr(10)
BodyMsg = BodyMsg + "State = " & address3 & Chr(10)
BodyMsg = BodyMsg + "Zip = " & address4 & Chr(10)
BodyMsg = BodyMsg + "Phone1 = " & phone1 & Chr(10)
BodyMsg = BodyMsg + "Phone2 = " & phone2 & Chr(10)
BodyMsg = BodyMsg + "Time = " & time & Chr(10)
BodyMsg = BodyMsg + "Email = " & email & Chr(10)
BodyMsg = BodyMsg + "Who = " & who & Chr(10)
BodyMsg = BodyMsg + "Program = " & program & Chr(10)
BodyMsg = BodyMsg + "Experience = " & experience & Chr(10)
BodyMsg = BodyMsg + "Age = " & age & Chr(10)
BodyMsg = BodyMsg + "How = " & how & Chr(10)
BodyMsg = BodyMsg + "Comments = " & comments & Chr(10)
Mail.Body = BodyMsg
On Error Resume Next
Mail.Send
If Err <> 0 Then
ErrMsg = "Your request was not sent due to the following error: " & Err.Description
Else
ErrMsg = "Thank You For filling our form<BR>"
ErrMsg = ErrMsg + "If you have any questions please call (781) 270-4800"
End If
End If
%>