<% Option Explicit %> <% Dim iOrderID 'as integer Dim iAffNUM 'as integer Dim iAction 'as integer Dim iRet 'as integer Dim sContactName 'as string Dim sBookCode 'as string Dim sCoverStyle 'as string Dim sBookQuantity 'as string Dim sMFirstName 'as string -- main character (Heroine) Dim sMLastName 'as string 'Dim sMGender 'as string 'Dim sMAge 'as string Dim sMHairColor 'as string Dim sMHairLength 'as string Dim sMHairStyle 'as string Dim sMEyeColor 'as string Dim sMFigure 'as string Dim sMFavDrink 'as string ! Dim sMPet 'as string Dim sMPetName 'as string Dim sMRoadRest 'as string Dim sFFirstName 'as string -- friend character (of Heroine) Dim sFLastName 'as string .. 'Dim sFGender 'as string Dim sFHairColor 'as string Dim sFHairLength 'as string Dim sFHairStyle 'as string Dim sFEyeColor 'as string Dim sFFigure 'as string .. Dim sHFirstName 'as string -- Hero character Dim sHLastName 'as string .. 'Dim shGender 'as string Dim sHHairColor 'as string Dim sHHairLength 'as string Dim sHHairStyle 'as string Dim sHEyeColor 'as string Dim sHBody 'as string .. Dim sCFirstName 'as string -- contact / payment info Dim sCLastName 'as string Dim sCAddress 'as string Dim sCCity 'as string Dim sCState 'as string Dim sCZipCode 'as string Dim sCCountry 'as string Dim sCCountry2 'as string Dim sCHomePhone 'as string Dim sCWorkPhone 'as string Dim sCFax 'as string Dim sCEmail 'as string Dim sCardType 'as string Dim sCardNumber 'as string Dim sCardExpiry 'as string Dim sDelivery 'as string Dim sSFirstName 'as string -- shipping info Dim sSLastName 'as string Dim sSAddress 'as string Dim sSCity 'as string Dim sSState 'as string Dim sSZipCode 'as string Dim sSCountry 'as string Dim sSCountry2 'as string Dim sComputer 'as string Dim sUsername 'as string Dim sBrowser 'as string Dim sSQL 'as string Dim sMessage 'as string Dim sSubject 'as string Dim sBody 'as string Dim oConn 'as connection Dim RecordSet 'as record set '-- iOrderID = 0 '-- iAction = Request("a") IF iAction = 1 THEN sMFirstName = Request.Form("heroinefirstname") sMLastName = Request.Form("heroinelastname") 'sMGender = Request.Form("heroinegender") 'sMAge = Request.Form("heroineage") sMHairColor = Request.Form("heroinehaircolor") sMHairLength = Request.Form("heroinehairlength") sMHairStyle = Request.Form("heroinehairstyle") sMEyeColor = Request.Form("heroineeyecolor") sMFigure = Request.Form("heroinefigure") sMFavDrink = Request.Form("favdrink") sMPet = Request.Form("pet") sMPetName = Request.Form("petname") sMRoadRest = Request.Form("roadrest") sFFirstName = Request.Form("friendfirstname") sFLastName = Request.Form("friendlastname") 'sFGender = Request.Form("friendgender") sFHairColor = Request.Form("friendhaircolor") sFHairLength = Request.Form("friendhairlength") sFHairStyle = Request.Form("friendhairstyle") sFEyeColor = Request.Form("friendeyecolor") sFFigure = Request.Form("friendfigure") sHFirstName = Request.Form("herofirstname") sHLastName = Request.Form("herolastname") 'sHGender = Request.Form("herogender") sHHairColor = Request.Form("herohaircolor") sHHairLength = Request.Form("herohairlength") sHHairStyle = Request.Form("herohairstyle") sHEyeColor = Request.Form("heroeyecolor") sHBody = Request.Form("herobody") sCoverStyle = Request.Form("cover") sBookQuantity = Request.Form("quantity") sCFirstName = Request.Form("contactfirstname") sCLastName = Request.Form("contactlastname") sCAddress = Request.Form("contactstreetaddress") sCCity = Request.Form("contactcity") sCState = Request.Form("contactstate") sCZipCode = Request.Form("contactzipcode") sCCountry = Request.Form("country") sCCountry2 = Request.Form("othercountry") sCHomePhone = Request.Form("homephone") sCWorkPhone = Request.Form("workphone") sCFax = Request.Form("contactfax") sCEmail = Request.Form("contactemail") sCardType = Request.Form("card") sCardNumber = Request.Form("cardnumber") sCardExpiry = Request.Form("cardmonth") & "/" & Request.Form("cardyear") sDelivery = Request.Form("deliverymethod") sSFirstName = Request.Form("alternatefirstname") sSLastName = Request.Form("alternatelastname") sSAddress = Request.Form("alternatestreetaddress") sSCity = Request.Form("alternatecity") sSState = Request.Form("alternatestate") sSZipCode = Request.Form("alternatezipcode") sSCountry = Request.Form("alternatecountry") sSCountry2 = Request.Form("alternateothercountry") sBookCode = Request.Form("productid") iAffNUM = Request.Form("ID") sComputer = Request.ServerVariables("REMOTE_ADDR") sUsername = Request.ServerVariables("LOGON_USER") sBrowser = Request.ServerVariables("USER_AGENT") '-- open database connection Set oConn = dbOpenConnection(g_DSN) '-- sSQL = "INSERT INTO orders (heroinefirstname, heroinelastname, heroinehaircolor, " &_ "heroinehairlength, heroinehairstyle, heroineeyecolor, heroinefigure, favdrink, pet, petname, roadrest, friendfirstname, " &_ "friendlastname, friendhaircolor, friendhairlength, friendhairstyle, friendeyecolor, friendfigure, " &_ "herofirstname, herolastname, herohaircolor, " &_ "herohairlength, herohairstyle, heroeyecolor, herobody, cover, quantity, contactfirstname, contactlastname, " &_ "contactstreetaddress, contactcity, contactstate, contactzipcode, country, othercountry, homephone, workphone, " &_ "contactfax, contactemail, card, cardnumber, cardexpiry, deliverymethod, alternatefirstname, alternatelastname, " &_ "alternatestreetaddress, alternatecity, alternatestate, alternatezipcode, alternatecountry, alternateothercountry, " &_ "productid, ordertime, computername, username, browser, affiliateNUM) VALUES ('" & FixSQL(sMFirstName) & "', '" &_ FixSQL(sMLastName) & "', '" & sMHairColor & "', '" & sMHairLength & "', '" &_ sMHairStyle & "', '" & sMEyeColor & "', '" & FixSQL(sMFigure) & "', '" & FixSQL(sMFavDrink) & "', '" & FixSQL(sMPet) & "', '" &_ FixSQL(sMPetName) & "', '" & FixSQL(sMRoadRest) & "', '" & FixSQL(sFFirstName) & "', '" & FixSQL(sFLastName) & "', '" &_ sFHairColor & "', '" & sFHairLength & "', '" & sFHairStyle & "', '" & sFEyeColor & "', '" &_ FixSQL(sFFigure) & "', '" & FixSQL(sHFirstName) & "', '" & FixSQL(sHLastName) & "', '" & FixSQL(sHHairColor) & "', '" &_ sHHairLength & "', '" & FixSQL(sHHairStyle) & "', '" & FixSQL(sHEyeColor) & "', '" & FixSQL(sHBody) & "', '" &_ FixSQL(sCoverStyle) & "', '" & FixSQL(sBookQuantity) & "', '" & FixSQL(sCFirstName) & "', '" &_ FixSQL(sCLastName) & "', '" & FixSQL(sCAddress) & "', '" & FixSQL(sCCity) & "', '" & FixSQL(sCState) & "', '" &_ FixSQL(sCZipCode) & "', '" & FixSQL(sCCountry) & "', '" & FixSQL(sCCountry2) & "', '" & FixSQL(sCHomePhone) & "', '" &_ FixSQL(sCWorkPhone) & "', '" & FixSQL(sCFax) & "', '" & sCEmail & "', '" & sCardType & "', '" & sCardNumber & "', '" &_ sCardExpiry & "', '" & FixSQL(sDelivery) & "', '" & FixSQL(sSFirstName) & "', '" & FixSQL(sSLastName) & "', '" &_ FixSQL(sSAddress) & "', '" & FixSQL(sSCity) & "', '" & FixSQL(sSState) & "', '" & FixSQL(sSZipCode) & "', '" &_ FixSQL(sSCountry) & "', '" & FixSQL(sSCountry2) & "', '" & sBookCode & "', #" & Now() & "#, '" & sComputer & "', '" &_ sUsername & "', '" & sBrowser & "', '" & FixSQL(iAffNUM) & "');" oConn.Execute(sSQL) IF Err.Number = 0 THEN sSQL = "SELECT @@IDENTITY As NewID" Set RecordSet = oConn.Execute(sSQL) IF NOT RecordSet.EOF THEN iOrderID = RecordSet(0).Value END IF Set RecordSet = Nothing ELSE '-- errors probably occured END IF IF iOrderID > 0 THEN sContactName = sCFirstName & " " & sCLastName sSubject = "Tropical Treasure - Order Confirmation" sBody = "" sBody = sBody & FormatOrderConfirmation(iOrderID, sContactName, sBookCode, sDelivery) sBody = sBody & "" iRet = SendMail("publish@bookbyyou.com", sCEmail, "", "", sSubject, sBody, TRUE) Response.Redirect("/confirmation/tt-order-conf.asp?oid=" & iOrderID) END IF '-- clean up oConn.Close Set oConn = Nothing END IF %> Romance By You - Tropical Treasure - Character Questionnaire
Romance by You Logo
home order titles excerpts faq about us contact

?a=1" language="JavaScript">

Before beginning ...

We recommend that you scan the Tropical Treasure character questionnaire below.  A quick review ensures that you have all of the character information necessary to complete the form. It takes approximately five minutes to fill in the character information.  If you are unsure what to enter for a particular selection - check our Tips & Suggestions section. After completing the questionnaire 'click' on the submit button located at the bottom of the questionnaire.

Tropical Treasure has over 25 selections to personalize. The story revolves around three main characters: a heroine, the heroine's best friend, and a hero. And we've even added a pet name for you to customize! 

Let's get started!
  

Click for tips and suggestions Tips & Suggestions

First name: 
(Usual first name - e.g. Jen versus Jennifer. Only capitalize first letter!)
Last name:  
(Use maiden name if you plan to select a spouse as the hero)
Eye color:
Hair color:
Hair length:
Hair style:
Figure:
Favorite drink:

Pet:

Pet name:
(Smokey is the default if no name is entered)
State/Province where heroine resides:
(Please capitalize first letter and put full name, not short form)
  

Click for tips and suggestions Tips & Suggestions

Friend's first name:
Friend's last name: 
Friend's eye color:
Friend's hair color:
Friend's hair length:
Friend's hair style:
Friend's figure:
 
  
Click for tips and suggestions Tips & Suggestions
First name: 
(Usual first name - e.g. Rob versus Robert. Only capitalize first letter!)
Last name:  
Eye color:
Hair color:
Hair length:
Hair style:
Body type:
  

Click for tips and suggestions Tips & Suggestions

Name(s) for the book cover:
If at the beginning of the questionnaire you entered a maiden name for the 'heroine name' it will appear on the front cover if you have selected 'heroine first & last name' in the above 'Name(s) for the book cover' field.  As an alternate, select, 'heroine & hero first names'.
  

Want an extra copy of your book?

Many customers request an additional copy of the book they've ordered. Perhaps the friend in the story would appreciate a copy? Maybe you want your own book?

Would you like an additional copy?   Yes No

If you've answered "Yes" for an additional copy, both books will be shipped to the address you specify below (contact or alternate address). For separate shipping addresses, complete your order and then, from the confirmation page, email us the additional shipping address.

Contact & Payment Info

Click for tips and suggestions Tips & Suggestions

For on-line payment we accept VISA, MasterCard and American Express. Book By You utilizes Secure Socket Layer (SSL) encryption to maintain the security of this transaction and your credit card information. We also recommend printing the completed questionnaire and order form for your records and reference.

If you do not wish to use our secure server to transmit your credit card information, complete and print this form and mail or fax your order with your VISA, MasterCard or American Express information. We also accept personal checks and money orders. Your print-out will be used to process the order. The Book By You address and fax information is available at the bottom of this page.

First name:
Last Name:
(If ordering by credit card, use first and last name as they appear on the card)
Full street address:
City:
State/Province: 
Zip/Postal code:
Country:
Other country:
Home telephone:
Work telephone:

(Include area code. Either home or work number is required)
Fax: (Optional)
Email address:

(Required - an order confirmation will be sent upon submission!)

Credit Card Information:
 (We accept VISA, MasterCard or American Express)

Type of credit card:
Card number:
Card expiration date:
 * (Don't forget expiry)
   

Select Delivery method:

(Please review the reference chart below)

Alternate Recipient Information:  
(Only necessary if recipient or shipping information is different from above)

Ship the book to the attention of:

First name:
Last name:
Full street address:
City:
State/Province:
Zip/Postal code:
Country:
Other country if not listed above:
  

Thank you! Please wait for the confirmation screen
once you've submitted your order.

Internet
Special:
$29.95

Order NOW!



Prefer to Order by Fax, Phone or Mail?

If you do not wish to use our secure server, you can order by fax or mail. Click here for a printable version of this form, which has instructions for sending the info for your personalized romance!

If you have questions or comments please contact us at 1-877-898-1440.


Your credit card statement will indicate a charge from Book By You Publishing.

Each book ordered is $29.95 (USD) plus $4.95 for shipping & handling. (Total of $34.90 USD) Canadian residents will be billed $29.95 (CDN), $4.95 shipping and handling plus an additional 7% for GST. (Total of $37.30 CDN). 

Additional shipping charges apply for expedited delivery.  If you have questions about delivery times, please call our toll free telephone line at 1-877-898-1440. 



Last-minute shoppers:
It's never too late!

Once you've placed your order, you can print out a free Personalized Gift Announcement from our website to let the lucky recipient know immediately that the unique book you've ordered is on its way!

Click here to learn more about our Gift Announcements!


">

Home Love's Next Door Medieval Passion Pirates of Desire Tropical Treasure Vampire Kisses
Order Book Children's Novels Readers Respond FAQ  Affiliate Info News & Media About Us Contact Us

Copyright Book By You Publishing ™