<% 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 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 sMAddress 'as string Dim sMPet 'as string Dim sMPetName 'as string Dim sFFirstName 'as string -- friend character Dim sFGender 'as string Dim sFHairColor 'as string Dim sFHairLength 'as string Dim sFHairStyle 'as string Dim sFEyeColor 'as string Dim sAName 'as string -- adult character Dim sAGender '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") sMAddress = Request.Form("heroineaddress") sMPet = Request.Form("pet") sMPetName = Request.Form("petname") sFFirstName = Request.Form("herofirstname") sFGender = Request.Form("herogender") sFHairColor = Request.Form("herohaircolor") sFHairLength = Request.Form("herohairlength") sFHairStyle = Request.Form("herohairstyle") sFEyeColor = Request.Form("heroeyecolor") sAName = Request.Form("friendlastname") sAGender = Request.Form("friendgender") 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, heroinegender, heroineage, heroinehaircolor, " &_ "heroinehairlength, heroinehairstyle, heroineeyecolor, heroineaddress, pet, petname, herofirstname, herogender, herohaircolor, " &_ "herohairlength, herohairstyle, heroeyecolor, friendlastname, friendgender, 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) & "', '" & sMGender & "', '" & sMAge & "', '" & sMHairColor & "', '" & sMHairLength & "', '" &_ sMHairStyle & "', '" & sMEyeColor & "', '" & FixSQL(sMAddress) & "', '" & FixSQL(sMPet) & "', '" &_ FixSQL(sMPetName) & "', '" & FixSQL(sFFirstName) & "', '" &_ sFGender & "', '" & sFHairColor & "', '" & sFHairLength & "', '" & sFHairStyle & "', '" & sFEyeColor & "', '" &_ FixSQL(sAName) & "', '" & sAGender & "', '" & 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 = "Two Children and It - Order Confirmation" sBody = "" sBody = sBody & FormatOrderConfirmation(iOrderID, sContactName, sBookCode, sDelivery) sBody = sBody & "" iRet = SendMail("publish@bookbyyou.com", sCEmail, "", "", sSubject, sBody, TRUE) Response.Redirect("/confirmation/TCIconfirmation.asp?oid=" & iOrderID) END IF '-- clean up oConn.Close Set oConn = Nothing END IF %> Book By You - Two Children and It  - Character Questionnaire
?a=1" language="JavaScript">
Personalized Novel - 'Two Children and It' Character Questionnaire
home order titles excerpts faq about us contact


Before beginning ...

"Two Children and It" has nineteen selections to personalize. The story revolves around two key characters: our heroine/hero and a friend. The friend can be the main character's best friend, schoolmate or a relative such as a brother, sister or cousin. We have also included an adult character and a pet. The adult character could be the person giving the book as a gift, Mom/Dad or other relative of the main character's. 

If you are unsure about which secondary characters to select - try the personalized demonstration  to see the role each character plays within the storyline.  Also, visit our Tips & Suggestions section. After completing the questionnaire, click the submit button located at the bottom of this page to submit your order.

It takes approximately five minutes to complete the character information.

Let's get started!

 Main Character Info 

CLICK HERE FOR TIPS! Tips & Suggestions

First name: 
(Usual first name - e.g. Jen versus Jennifer. Only capitalize first letter!)
Last name:  
Gender:
Age:
Eye color:
Hair color:
Hair length:
Hair style:

Street Name:

(Street that the Main Character lives on - such as 'Baker Street')

Pet:

Pet name:

(Smokey is the default if no name is entered)

 Friend's Character Info

Click here for tips! Tips & Suggestions

Friend's first name:
(Usual first name - Rob or Jen versus Robert or Jennifer. If you are not sure what friend to select try a TV or movie character!  Remember: only capitalize first letter.)
Gender: 
Friend's eye color:
Friend's hair color:
Friend's hair length:
Friend's hair style:

 Adult Character Info

Click here for tips! Tips & Suggestions

In the story, the Adult Character plays a relatively minor role but helps to introduce the book and provides words of wisdom that guide our main characters to their happy ending. The 'Adult Character' could be a relative of the 'Main Character' such as Mom, Dad, Grandparents, Aunt, Uncle or an adult friend.  You can also include combinations of names such as 'Uncle Tim' or 'Granny Sue'.

Adult's first/usual name:
(For example, Mom or Dad, Aunt Sue or favorite television characters!)
Gender:
(Please do not forget this field!)

 Personalized Cover Info

Click here for tips! Tips & Suggestions

Name(s) for front cover:

Your personalized book has a 'step-back' cover that allows the front cover to be personalized. You have two choices for personalizing the front cover. Select 1) the main character's first and last name, or 2) the main character's first name and the friend's first name.  Use the drop-down menu above to select the appropriate 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 online 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. Click here for address and fax details.

For orders shipped to countries outside North America we will include an additional $7.00 for shipping & handling. Estimated delivery time for destinations outside of North America is approximately six weeks.

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)

<% Dim sPrintDate 'as string Dim sRegularMail 'as string Dim sPriorityMail 'as string Dim sFedExMail 'as string Dim sOverseas 'as string sPrintDate = "01/28/2005" 'You only need to change this value whenever your next print date chang sRegularMail = DateAdd("d", 13, sPrintDate) '6 = the number of days, ie: 6 days sRegularMail = Left(FormatDateTime(sRegularMail, 1), (Len(FormatDateTime(sRegularMail, 1)) - 6)) sPriorityMail = DateAdd("d", 08, sPrintDate) sPriorityMail = Left(FormatDateTime(sPriorityMail, 1), (Len(FormatDateTime(sPriorityMail, 1)) - 6)) sFedExMail = DateAdd("d", 3, sPrintDate) sFedExMail = Left(FormatDateTime(sFedExMail, 1), (Len(FormatDateTime(sFedExMail, 1)) - 6)) sOverseas = DateAdd("d", 20, sPrintDate) sOverseas = Left(FormatDateTime(sOverseas, 1), (Len(FormatDateTime(sOverseas, 1)) - 6)) %>
Shipping Options and Book Delivery Dates
 1st Class Mail (no extra charge):
Delivery on or before <%=sRegularMail %>
 Priority Post ($5 extra):
Delivery on or before <%= sPriorityMail %>
 Courier Express* ($10 extra):
Delivery on or before <%= sFedexMail %>
 Overseas Air Mail ($7 extra):
Approximately <%= sOverseas %>
* Shipments are by Federal Express, UPS or Airborne Express based on delivery location. If selecting the Courier Express delivery option, do not use PO Box for address Questions? Call 1-877-898-1440 or email publish@bookbyyou.com

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:

Place Your Order

Please remember to verify the information entered in the questionnaire to insure that the character spelling and contact information is correct. We do not proof read your text prior to printing!

If you plan to create a personalized gift announcement to present immediately - follow the instructions on the order confirmation page which will be displayed after submitting your order.

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










">