% pageShortName = "promotions" pageName = "Promotions" s_code_pg_nm = "promotions" s_code_chan = "promotions" Dim promoTitles(1) Dim promoDescriptions(1) Dim promoUrls(1) promoTitles(0) = "An Evening at the Theatre for Two" promoDescriptions(0) = "Two nights accommodation in a beautiful Deluxe One Bedroom Suite, including daily Continental Breakfast. Package includes two Mansfield plush cotton robes (to take with you when you depart), Personal Concierge Service to assist in securing two complimentary theatre tickets to New York City's finest Broadway and Off-Broadway shows, and two specialty cocktails at the M-Bar, rated by Zagat's Nightlife Guide and Time Out New York as one of New York's Top 100 Lounges. Enjoy the amenities of the Historic Mansfield Hotel, which includes complimentary tea and coffee service, wireless internet service, and access to our 24-hour Busness Center.
To reserve our Website Theatre Package please contact our Concierge Tuesday thru Saturday 10am-6pm Eastern Standard Time at 212.277.8721" promoUrls(0) = "" Dim form_email_address, isSuccessfulSend isSuccessfulSend = false form_email_address = Request.Form("email_address") If form_email_address <> "" Then Dim objConn, sSQL, objRS set objConn = Server.CreateObject("ADODB.Connection") objConn.Open DB_CONN_STRING sSQL = "INSERT INTO promotions_subscribe(email_address, added_on) VALUES('" & StrQuoteReplace(form_email_address) & "','" & Now() & "')" ' Response.Write sSQL Set objRS = objConn.Execute(sSQL) Set objRS = Nothing CloseDatabaseConnection(objConn) ' Send email confirmation to customer Set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.FromName = "The Mansfield Hotel - New York" objMail.FromAddress = "email@example.com" objMail.Subject = "The Mansfield Hotel - Packages and Special Promotions" objMail.RemoteHost = "scriptmail.intermedia.net" objMail.AddRecipient form_email_address, form_email_address objMail.AddBCC "firstname.lastname@example.org", "email@example.com" objMail.AddBCC "firstname.lastname@example.org", "email@example.com" Dim tempString tempString = "Thank you for signing up to receive information on packages and special promotions. We make this information available only to our most valued guests." & vbCrLf & vbCrLf tempString = tempString & "The Mansfield Hotel, New York" & vbCrLf tempString = tempString & "/" & vbCrLf tempString = tempString & "212.277.8700" & vbCrLf objMail.BodyText = tempString If objMail.SendMail Then isSuccessfulSend = true Else Response.Write "" End If End If %>