<%@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 & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "
Bride's Name" & bname & "
Groom's Name" & gname & "
Wedding Date" & wdate & "
Phone" & phone & "
Email" & email & "
Ceremony Location" & location & "
Reception Location" & rlocation & "
Photographer" & photog & "
Additional Vendors" & addvendors & "
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 & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "
Vendor Name" & vname & "
Vendor Company" & vcompany & "
Bride's Name" & bname & "
Groom's Name" & gname & "
Wedding Date" & wdate & "
Phone" & vphone & "
Email" & email & "
Ceremony Location" & clocation & "
Reception Location" & rlocation & "
Additional Vendors" & avendors & "
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%>