<% if request.form("submit") = "submit" then 'interest = request.form("interest") name = request.form("name") position = request.form("position") company = request.form("company") business = request.form("business") address = request.form("address") city = request.form("city") state = request.form("state") zip = request.form("zip") country = request.form("country") tel = request.form("tel") fax = request.form("fax") email = request.form("email") website = request.form("website") comments = request.form("comments") heardthrough = request.form("heardthrough") heardthrough_other = request.form("heardthrough_other") receivevia = request.form("receivevia") errormsg = "" 'if interest = "" then errormsg = errormsg & " interest " if name = "" then errormsg = errormsg & " name " if tel = "" then errormsg = errormsg & " tel " if email = "" then errormsg = errormsg & " email " if heardthrough = "" and heardthrough_other = "" then errormsg = errormsg & " heardthrough " if receivevia = "" then errormsg = errormsg & " receivevia " if errormsg = "" then 'body = "I am interested in: " & interest body = "Name: " & name & vbcrlf body = body & "Position: " & position & vbcrlf body = body & "Company: " & company & vbcrlf body = body & "Nature of Business: " & business & vbcrlf body = body & "Street Address: " & address & vbcrlf body = body & "City: " & city & vbcrlf body = body & "State: " & state & vbcrlf body = body & "Post/Zip Code: " & zip & vbcrlf body = body & "Country: " & country & vbcrlf body = body & "Telephone: " & tel & vbcrlf body = body & "Fax: " & fax & vbcrlf body = body & "Email: " & email & vbcrlf body = body & "Website: " & website & vbcrlf body = body & "Comments: " & comments & vbcrlf & vbcrlf body = body & "How did you hear about this commemorative book project? " if heardthrough <> "" then body = body & heardthrough else body = body & heardthrough_other end if body = body & vbcrlf & "I would like to receive information on the book project by: " & receivevia & vbcrlf sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From="info@onboard.com" ' objMail.To="s@sitemind.com" objMail.To="tylerc@onboard.com" objMail.Subject="Onboard Contact - Oasis" objMail.TextBody=body objMail.Send ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From="info@onboard.com" objMail.To = email objMail.Subject="Thank you for Contacting Onboard" objMail.TextBody="Thank you for registering your interest. A representative will be in contact with you shortly." objMail.Send response.redirect("oasis_interest_response.php") end if end if reqd = " *" %> Oasis of the Sea
Royal Caribbean
Oasis of the Sea

For More Information

For details on sponsorship marketing and advertising opportunities available to business organizations in the Oasis of the SeaSM inaugural commemorative book project, please contact:

Tyler Condon
Sales Manager
Onboard Media
Phone +1 305.938.1227
Fax +1 305.673.0315
E-mail tylerc@onboard.com

<% if errormsg <> "" then %> <% end if %>
Required fields - *

Contact Information:		  
Name<%if InStr(errormsg,"name")>0 then response.write(reqd) %>
Position
Company
Nature of Business   
Street Address
City
State
Post/Zip Code
Country
Telephone<%if InStr(errormsg,"tel")>0 then response.write(reqd) %>
Fax
E-mail<%if InStr(errormsg,"email")>0 then response.write(reqd) %>
Website
Comments

How did you hear about this commemorative book project?<%if InStr(errormsg,"heardthrough")>0 then response.write(reqd) %>
value="rccl">  Received an invitation letter from Royal Caribbean
value="onboard">  From Onboard Media
value="colleague">  Through a colleague
Other:  (please specify)

I would like to receive information on the book project by:<%if InStr(errormsg,"receivevia")>0 then response.write(reqd) %>
value="email">  e-mail     value="fax">  fax     value="mail">  mail     value="telephone">  telephone



If you have any problems completing this form, please contact:

Onboard Media
Tel +1 305.938.1233
Fax +1 305.673.0315 or
E-mail CassieB@onboard.com