Blue Horizon Hotel - Web Contact Form

<% if Request("process_mail") = "1" then On Error Resume Next Dim message Dim message2 Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Set myMail=CreateObject("CDO.Message") myMail.Subject="Blue Horizone Hotel - Web Contact Form" myMail.From="noreply@bluehorizonhotel.com" myMail.To= "sales@bluehorizonhotel.com" myMail.Bcc="mike@grumpmedia.com" myMail.HTMLBody = "" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + "Blue Horizon Hotel - Web Contact Form" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + "

" myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + "

The following information has been submitted via the online contact form at www.bluehorizonhotel.com:

" myMail.HTMLBody = myMail.HTMLBody + "

" myMail.HTMLBody = myMail.HTMLBody + " Name: " & Request("name") & "
" myMail.HTMLBody = myMail.HTMLBody + " Email: " & Request("email") & "
" myMail.HTMLBody = myMail.HTMLBody + " Phone: " & Request("phone") & "
" myMail.HTMLBody = myMail.HTMLBody + " Comment: " & Request("comment") & "
" myMail.HTMLBody = myMail.HTMLBody + "

" myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + " " myMail.HTMLBody = myMail.HTMLBody + "

" myMail.HTMLBody = myMail.HTMLBody + "" myMail.HTMLBody = myMail.HTMLBody + "" myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="mail.grumpmedia.com" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Item(cdoSMTPAuthenticate) = cdoBasic myMail.Configuration.Fields.Item(cdoSendUserName) = "mike@grumpmedia.com" myMail.Configuration.Fields.Item(cdoSendPassword) = "tabatha" myMail.Configuration.Fields.Update myMail.Send set myMail=nothing end if %> Blue Horizon Hotel - Contact Us

100% non-smoking
Free High-speed Internet access

1225 Robson Street
Vancouver, B.C. Canada
V6E 1C3

Toll-Free (USA & Canada): 1-800-663-1333
Telephone: 604-688-1411
Fax: 604-688-4461

For Reservations, please make sure you enter your correct e-mail address. Reservations are not confirmed until the hotel has contacted you.

You may also e-mail us at bluehorizonhotel@telus.net or call us toll-free at
1-800-663-1333.

Regards,
- Blue Horizon Hotel

Quick Contact Form

Name:
Email:
Phone:

Comment / Question:

You may also contact us at:

General Questions:   bluehorizonhotel@telus.net
Group Sales:    salesbluehorizon@telus.net
Front Office:    frontofficebluehorizon@telus.net
Catering Office:    cateringbluehorizon@telus.net

Top