%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Untitled Document
<%if request.form("btCouples")>"" then
bname=request.form("bname")
addvendors=request.form("addvendors")
comments=request.form("comments")
gname=request.form("gname")
rlocation=request.form("rlocation")
wdate=request.form("wdate")
email=request.form("email")
phone=request.form("phone")
location=request.form("location")
photog=request.form("photog")
body=""
body=body & "Bride's Name | " & bname & " |
"
body=body & "Groom's Name | " & gname & " |
"
body=body & "Wedding Date | " & wdate & " |
"
body=body & "Phone | " & phone & " |
"
body=body & "Email | " & email & " |
"
body=body & "Ceremony Location | " & location & " |
"
body=body & "Reception Location | " & rlocation & " |
"
body=body & "Photographer | " & photog & " |
"
body=body & "Additional Vendors | " & addvendors & " |
"
body=body & "Comments | " & comments & " |
"
Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
strVer = Mailer.Version
mailer.RemoteHost ="localhost"
mailer.FromAddress = Request.form("email")
mailer.AddRecipient "", "editor@sanantonioweddings.com"
'mailer.AddbCC "", "meldrape@mdparish.com"
mailer.contenttype = "text/html"
mailer.HTMLText=body
mailer.Subject = "SAWeddings Couples Form"
mailer.sendmail
%>
<%
end if%>
<%if request.form("btVendors")>"" then
vname=request.form("vname")
vcompany=request.form("vcompany")
email=request.form("email")
vphone=request.form("vphone")
bname=request.form("bname")
clocation=request.form("clocation")
avendors=request.form("avendors")
gname=request.form("gname")
rlocation=request.form("rlocation")
wdate=request.form("wdate")
comments=request.form("comments")
body=""
body=body & "Vendor Name | " & vname & " |
"
body=body & "Vendor Company | " & vcompany & " |
"
body=body & "Bride's Name | " & bname & " |
"
body=body & "Groom's Name | " & gname & " |
"
body=body & "Wedding Date | " & wdate & " |
"
body=body & "Phone | " & vphone & " |
"
body=body & "Email | " & email & " |
"
body=body & "Ceremony Location | " & clocation & " |
"
body=body & "Reception Location | " & rlocation & " |
"
body=body & "Additional Vendors | " & avendors & " |
"
body=body & "Comments | " & comments & " |
"
Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
strVer = Mailer.Version
mailer.RemoteHost ="localhost"
mailer.FromAddress = Request.form("email")
mailer.AddRecipient "", "editor@sanantonioweddings.com"
mailer.AddbCC "", "meldrape@mdparish.com"
mailer.contenttype = "text/html"
mailer.HTMLText=body
mailer.Subject = "SAWeddings Vendors Form"
mailer.sendmail
%>
<%
end if%>