%@ LANGUAGE="VBSCRIPT" %>
<%
dim bContactForm
if request.form("contact") = "Submit" then
aBName = request.form("BName")
aGName = request.form("GName")
aEmail = request.form("Email")
aDate = request.form("Date")
aDayTelephone = request.form("DayTelephone")
aEveningTelephone = request.form("EveningTelephone")
aComment = request.form("Comment")
set objMail = CreateObject("CDONTS.NewMail")
objmail.From = aEmail
objMail.To = " PhotosByLori@cox.net"
objMail.Subject = "Contact Us"
ObjMail.Body = "Brides Name: " & aBName & chr(10) &chr(11) & _
"Grooms Name " & aGName & chr(10) &chr(11) & _
"Email: " & aEmail & chr(10) &chr(11) & _
"Event Date: " & aDate & chr(10) &chr(11) & _
"DayTelephone: " & aDayTelephone & chr(10) &chr(11) & _
"EveningTelephone: " & aEveningTelephone & chr(10) &chr(11) & _
"Comment: " & aComment & chr(10) &chr(11)
objMail.Send
set objMail = Nothing
bContactForm = false
else
bContactForm = true
end if
%>
Artistic Photography by Lori
<% if bContactForm = true then %>
<% else %>
Thank you!
Your information has been sent and Lori will contact your ASAP.
|
<% end if %>