<% ' Ready Database Connection Set Con = Server.CreateObject("ADODB.Connection") Con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("thinkverybig.mdb") Dim mode If Request.TotalBytes = 0 then mode = "start" 'Initialize session variables session("producttype") = "" session("poemtype") = "" session("poemcategorydesc") = "" session("book") = "" session("image") = "" session("poem") = "" session("shipping") = "" else If Request("mode") = "start" then 'Save off selected product type session("producttype") = Request("prodtype") mode = "prodtype" if session("producttype") = 0 then sqlString = "Select * from Items where idItems in (1,2,3)" else sqlString = "Select * from Items where idItems = " + session("producttype") end if Set RS = Con.Execute( sqlString ) End if If session("producttype") = 5 then 'They want to buy a cd 'Save off selected poem type mode = "shipping" End if If session("producttype") = 4 then 'They want to buy a book 'They need to choose a book mode = "bookselect" End if If request("mode") = "bookselect" then 'Save off selected book title and go to shipping session("booktitle") = request("booktype") mode = "shipping" end if If Request("mode") = "prodtype" and session("producttype") = 0 then 'They want to buy a poem 'Save off selected poem type Session("producttype") = Request("poemtype") sqlString = "Select * from tblPoemCategory" Set RS = Con.Execute( sqlString ) mode = "poemcategory" End if If Request("mode") = "poemcategory" then 'Save off selected poemcategory if Request("poemcategory") = 1 then Session("poemcategorydesc") = "inLove" end if if Request("poemcategory") = 2 then Session("poemcategorydesc") = "inFamily" end if if Request("poemcategory") = 3 then Session("poemcategorydesc") = "inRelationship" end if if Request("poemcategory") = 4 then Session("poemcategorydesc") = "inFriendship" end if if Request("poemcategory") = 5 then Session("poemcategorydesc") = "inEncouragement" end if if Request("poemcategory") = 6 then Session("poemcategorydesc") = "inPatriotism" end if if Request("poemcategory") = 7 then Session("poemcategorydesc") = "inMarriage" end if if Request("poemcategory") = 8 then Session("poemcategorydesc") = "inReligious" end if if Request("poemcategory") = 9 then Session("poemcategorydesc") = "inEducational" end if if Request("poemcategory") = 10 then Session("poemcategorydesc") = "inSports" end if if Request("poemcategory") = 11 then Session("poemcategorydesc") = "inGeneral" end if Session("poemcategory") = Request("poemcategory") sqlString = "Select * from tblPoems where " + Session("poemcategorydesc") + "= true" 'response.write(sqlString) 'response.end Set RS = Con.Execute( sqlString ) mode = "poemlist" End if If Request("mode") = "poemlist" then 'Save off selected poem and get poem description name sqlString = "Select PoemName from tblPoems where inPoemID = " + Request("poem") Set RS = Con.Execute( sqlString ) Session("poemname") = RS("PoemName") Session("poem") = Request("poem") sqlString = "Select * from tblPoemImages" 'response.write(sqlString) 'response.end Set RS = Con.Execute( sqlString ) mode = "imageselect" End if If Request("mode") = "imageselect" then 'Save off selected image sqlString = "Select * from tblPoemImages where idPoemImage = " + Request("imagechoice") 'response.write(sqlString) 'response.end Set RS = Con.Execute( sqlString ) Session("image") = Request("imagechoice") Session("imagename") = RS("PoemImageDesc") Session("imagefilename") = RS("PoemImageFileName") Session("shipping") = Request("shipping") 'sqlString = "" 'response.write(sqlString) 'response.end 'Set RS = Con.Execute( sqlString ) mode = "finish" End if if Request("mode") = "shipping" then Session("shipping") = Request("shipping") mode = "finish" end if End if %>
    Home     Catalog     FAQ's     Store  
Menu
Who We Are
Inspiring Quotes
Our Products
Poems
Samples
Online Catalog
Guestbook
Contact Us
The Sky's The Limit!
  • Plaques
  • Posters
  • Custom Artwork
  • Books
  • T-Shirts
  • Caps
  • Laminated Poems
  • Poetry CD


  930 Club Chase Court
  Roswell, Georgia 30075
  Contact 770-992-5638
  E-Mail:

  info@thinkverybig.com
  david@thinkverybig.com


















 

<%if mode="finish" then %> Buy <%else%>Buy<%end if%> from the TVB Store!

Now you can order our books, poems and inspirational CDs online!

<%'response.end%> <%if mode = "start" then%>
What type of product would you like to buy (you'll be able to select additional products later...)?:
 
Poem Book Inspirational CD
 
<%end if%>

 

<%if mode = "prodtype" and Request("prodtype") = 0 then%>
What would you like your poem on a plaque, poster, or laminated 8 1/2 x 11?:
 
 
<%end if%> <%if mode = "bookselect" then%>
Which book would you like to order?:
(if you need more than one, you can come back and select another book later)
 
 
<%end if%>

 

<%if mode = "poemcategory" then%>
Select a poem category:
 
 
<%end if%> <%if mode = "poemlist" then%>
Select your poem:
 

 
<%end if%> <%if mode = "imageselect" or mode="shipping" then%>
<%if session("producttype") < 4 then%> " End if response.write("") If loopCount = 2 then Response.write "" loopCount = 0 Else loopCount = loopCount + 1 End if RS.MoveNext%> <%Loop%> <%end if%>
Select the image you want to appear on your <%if session("poemtype") = "1" then %>Plaque<%end if%><%if session("poemtype") = "0" then %>Poster<%end if%><%if session("poemtype") = "2" then %>Laminated 8 1/2 x 11<%end if%>:
 
<%dim cellcounter loopcount=0%> <%do while not RS.EOF If loopCount = 0 then Response.write "
") response.write("
" + RS("PoemImageDesc") + "
") response.write("
 
Select a shipping option:
 
Normal (3-7 business days) Expedited (Overnight)
 
<%end if%> <%if mode = "finish" then%> <%if session("producttype") < 4 then%> <%end if%> <%Dim finalprice, shipmessage sqlString = "Select * from Items where idItems = " + session("producttype") 'response.write( sqlSTring ) 'response.end Set RS = Con.Execute( sqlString ) if session("shipping") = "2" then shipmessage = "With overnight shipping" finalprice = RS("itemPrice") + RS("itemONShipping") else finalprice = RS("itemPrice") + RS("itemStdShipping") shipmessage = "includes 3-7 business day shipping" end if %>
You've selected the following Think Very Big Product:
Product <%if Session("producttype") < 4 then%>Poem<%end if%><%if Session("producttype") = 4 then%>Book-<%=session("booktitle")%><%end if%><%if Session("producttype") = 5 then%>
CD<%end if%>
You want your poem on a: <%if session("producttype") = "1" then %>Plaque<%end if%><%if session("producttype") = "2" then %>Poster<%end if%><%if session("producttype") = "3" then %>Laminated 8 1/2 x 11<%end if%>
You selected the poem called: "<%=session("poemname")%>" from the <%=replace(session("poemcategorydesc"), "in", "")%> category
The image you selected: ">
<%=session("imagename")%>
Price
(<%=shipmessage%>)		 <%=FormatCurrency(finalprice)%> 
Remember: Click the PayPal Add To Cart Button below to add this item to your cart!
<% 'Set product dim prod if session("producttype") = 5 then prod = "CD" end if if session("producttype") = 1 then prod = "plaque-" & session("poemname") end if if session("producttype") = 2 then prod = "poster-" & session("poemname") end if if session("producttype") = 3 then prod = "laminated-" & session("poemname") end if if session("producttype") = 4 then prod = "Book" end if%>
<%if session("producttype") < 4 then%> "> <%end if%> <%if session("producttype") = 4 then%> "> <%else%> "> <%end if%>
<%end if%>

 

 

 

Have questions about your order?

'Click Here' to contact us!

 

*Additional charges apply for overnight shipping
  Home    Catalog     Info     Store   Created by JGE Web Design Services
<% For Each x In Request.Form %> Request( <%= x %> ) = <%= Request(x) %>
<% Next %> <% For Each x In Request.QueryString %> Request( <%= x %> ) = <%= Request(x) %>
<% Next %> Product Type: <%=session("producttype")%>
Poem Type: <%=session("poemtype")%>
Poem Category: <%=session("poemcategory")%>
Poem Category Desc: <%=session("poemcategorydesc")%>
Book Choice: <%=session("book")%>
Image Choice: <%=session("image")%>
Shipping: <%=session("shipping")%>
Current mode is: <%=mode%>