<%
'Set aris = Server.CreateObject("Aristotle.Common")
Set BadFields = CreateObject("Scripting.Dictionary")
If Request.Form("submit") <> "" Then
Title = Trim(Request.Form("Title"))
FirstName = Trim(Request.Form("FirstName"))
'REQUIRED FIELDS
reqFields = Array("")
reqNames = Array("Please indicate whether you would recommend Snappy Salads.", "Please enter your email address.")
errorclass = "class=""error"" "
For i = 0 to UBound(reqFields)
If Trim(Request.Form(reqFields(i))) = "" Then
BadFields.Add reqFields(i), errorclass
msg = msg & "
" & reqNames(i)
End If
Next
'EMAIL
If email <> "" Then 'if it was blank, we already caught it
If instr(email, "@") = 0 or instr(email, ".") = 0 Then
BadFields.Add "email", errorclass
msg = msg & "
Please be sure you are entering a valid e-mail address.
"
End If
End If
If msg <> "" Then
'BUILD ERROR MESSAGE
errmsg = "
Please correct the following errors and re-submit the form:
"
errmsg = errmsg & "
" & msg & "
"
errs = true
Else
'SEND EMAIL
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = "mx-lb.aristotle.net"
Mailer.From = email
Mailer.FromName = name
Mailer.Subject = "Snappy Salads Comment"
Mailer.AddAddress "jhaynie@aristotle.net", "Jason Haynie"
msg = "*****************************************" & vbCrLf & " Snappy Salads Comment" & vbCrLf & "*****************************************" & vbCrLf
msg = msg & "Name: " & Name & vbCrlF
msg = msg & "Email: " & Email & vbCrlf
msg = msg & "Would you recommend us?: " & recommend & vbCrlf
msg = msg & "I'll probably be back: " & comebackwhen & vbCrlf
msg = msg & "Why you love / don't love Snappy Salads: " & vbCrLf & comment & vbCrlf
Mailer.Body = msg
Mailer.Send
Set Mailer = nothing
success = True
End If 'msg <> ""
End If 'Len(Req
%>
Make an Appointment
MAKE AN APPOINTMENT
Complete the
form below. One of our team members will respond within 24-48 hours to schedule a convenient time for your appointment.
If you need an emergency appointment, call 251.343.1521.
