<%
Dim msFname, msLName, msEmail, mnPhone, msComments
msFname = Request("fName")
msLName = Request("lName")
msEmail = Request("email")
mnPhone = Request("phone")
msComments = Request("comments")
if len(trim(msFname))>0 And len(trim(msLname))>0 And len(trim(msEmail))>0 Then
sendEmail()
else
buildForm()
End if
Function sendEmail()
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = msFname & " " & msLName
Mail.FromAddress = msEmail
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "info@firstbaptistchurchavoca.org","tylerk@tylerkiser.com"
Mail.Subject = "Website Contact Form"
Mail.BodyText = msComments
if Mail.SendMail then
Response.Write "Your mail has been sent..."
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
end Function
Function buildForm()
response.write "
