<% 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="cassieb@onboard.com, tylerc@onboard.com" objMail.Subject="Onboard Contact" 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("solstice_interest_response.php") end if end if reqd = " *" %> Celebrity Solstice
Celebrity Cruises
Celebrity Solstice

For More Information

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

Cassie Barasch
Inaugural Project Coordinator
Onboard Media
Tel: +1.305.938.1233
Fax: +1.305.673.0315
CassieB@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
Email<%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 Celebrity Cruises
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">  email     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
Email CassieB@onboard.com