<%@ Language=VBScript %> Amazing e-book Library! <%Server.Execute "/inc/top.inc"%>

<%Server.Execute "/inc/sign-in.inc"%>
<%Server.Execute "/inc/links.inc"%>

   <%'time to check for submission of form from QPP indicating a purchase If Request.Form("pid")="16866" Then Response.Cookies("Library")="Purchased" Response.Cookies("Library").Expires = #January 01, 2010# Allowed="Yes" Else user=Request.Form("user") pass=Request.Form("pass") 'Response.Write "
"&user&"
"&pass&"
" If (user="patron63" OR user="elite103") and (pass="9874wy" OR pass="hwnw30xg" or pass="9074wy") Then Allowed="Yes" End IF End IF 'FOR TEST PURPOSES ONLY 'Response.Cookies ("Library")="" If Allowed<>"Yes" Then %> Get this entire collection (easily over $1,283.21 in value!) for only $39.95.
 
To order, click here:
 
YES! I want the HealthyWealthynWise.com ebook library!
 
If you have ordered the library and would like to log in to access the downloads, click here. <% ELSE'person has ordered Response.Write "Thank you for purchasing the HealthyWealthynWise Library!
 
" Response.Write"Please browse the list below to download anything you like." %>

Need Help Downloading? Click Here. 

<%End If Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DSN=library;UID=;PWD=" SQLSource="Select * from Products Order by ProductCategoryID" Set RS = server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection=Connect RS.Source =SQLSource RS.Open ' display the Category if different than the record above 'show all records Category="" Do While Not RS.EOF IF Rs("ProductCategoryID")<> Category Then Response.Write "

"&RS("ProductCategoryID")&"


" Category=RS("ProductCategoryID") End If Response.write ""&RS("Producttitle")&"
" If Rs("author")<>"" Then Response.Write "by: "&RS("author")&"
 
" End IF IF RS("image file")<>"" Then Response.Write "" Else Response.Write "" End IF Response.Write RS("Comments")&"
" If RS("purchaseprice")<>"" Then Response.Write "Retail: $"&RS("purchaseprice")&"
" End IF Response.Write "
 
" 'Response.Write "Click here to download this "&RS("Description")&"
" If Allowed="Yes" Then'full download link Response.Write "Download it here
 
" Else'link to sales page Response.Write "This product is part of our Library. To gain access, click here.
 
" End IF Rs.MoveNext Loop %> Get this entire collection (easily over $1300.00 in value) for only $39.95.
 
To order, click here:
 
YES! I want the HealthyWealthynWise.com ebook library!

 

 
<%Server.Execute "/inc/footer.inc"%> 		  
 
Navigate the sections using the links below
 
<% RS.MoveFirst Category="" While Not RS.EOF IF Rs("ProductCategoryID")<> Category Then Response.Write ""&RS("ProductCategoryID")&"
" Category=RS("ProductCategoryID") End If RS.MoveNext Wend RS.Close Set RS=nothing Connect.Close Set Connect=nothing For x=1 to 10 For y=1 to 30 Response.Write "
 
" NExt %>Get this entire collection (easily over $1300.00 in value) for only $39.95.
 
To order, click here:
 
YES! I want the HealthyWealthynWise.com ebook library! <% For y=1 to 30 Response.Write "
 
" NExt Next %>