<%@LANGUAGE="VBSCRIPT"%> <% if Request.Querystring("isSubmitted") = "yes" then Dim aa1, aa2, aa3, aa4 Dim objCDO Dim mybody aa1 = Request.Querystring("pbname") aa2 = Request.Querystring("pbadult") aa3 = Request.Querystring("pbchild") aa4 = Request.Querystring("pbage") aa5 = Request.Querystring("pbspecial") aa6 = Request.Querystring("pbcheckin") aa7 = Request.Querystring("pbcheckout") aa8 = Request.Querystring("pblocation") aa9 = Request.Querystring("pboffice") aa10 = Request.Querystring("pbhome") aa11 = Request.Querystring("pbmobile") aa12 = Request.Querystring("pbemail") aa13 = Request.Querystring("pbvoucher") aa14 = Request.Querystring("pbmode") aa15 = Request.Querystring("pbcredit") Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = aa1 objCDO.To = "jet@bisnesscenter.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Hotel Promotion Order" mybody = "My email is " & aa1 & ". Please add me to your mailing list." & vbCrLf mybody = mybody & "" & vbCrLf objCDO.Body = mybody objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send ConfirmMsg = "Thanks for submitting!" end if %>

Hotel Promotion Order   Hotel Detail   Hotel Name: Number of persons:     Date of Checking in: Checking out: Special request: Contacts Your Name: Telephone: Email:         * required fields