<%@ Language=VBScript %> Life's Work :: Order Page <% Dim cn, rs, thisPage thisPage = 1 set cn=server.createobject("adodb.connection") cn.Open "LifesWorkServices" set rsC=cn.execute("select * from Categories ORDER BY Id") 'set rsG = server.CreateObject("ADODB.recordset") 'rsG.Open "select * from GameDays", cn, adOpenKeyset, adlockoptimistic dim special special = Request.QueryString("special") %>

ORDER FORM

*We've partnered with a secure online payment service called PayPal. Don't worry, it's free and takes only minutes. Just select the service(s) you want to purchase by clicking ‘Add to Cart’. You will then have a chance to review the items in your cart and decide if you’d like to ‘checkout’ or ‘continue shopping.’ Remember, no decisions are final at this stage in the ordering process.

<% do while not rsC.eof Response.Write "" Response.Write "" Response.Write "" set rs=cn.execute("select * from Items WHERE Categories = " & rsC("Id") & " ORDER BY Id") do while not rs.eof %> <%if rs("Id") = 1050 OR rs("Id") = 3010 then%> <% end if %> <% rs.movenext loop rsC.movenext loop %>
" & rsC("CatName") & "
<%=rs("Name")%> <% if not rs("Notes") = "" then %>
<%=rs("Notes")%> <% end if %> <%if rs("Id") = 1060 OR rs("Id") = 1070 OR rs("Id") = 3011 then Response.Write "
select the no. of add. pages" Response.Write "
 
" end if %> 		<% if not rs("Inactive") = true then %> $ <%=rs("Price")%>.00     <% else Response.Write "TBD    " end if%> <%if rs("Id") = 1060 OR rs("Id") = 1070 OR rs("Id") = 3011 then dim icount icount = 1 Response.Write "" Response.Write "" do until icount = 10 %> <% icount = icount + 1 loop Response.Write "" Response.Write "
"> <%=icount%>"> ">
" else If not rs("Inactive") = true then %>
"> "> ">
<% else Response.write "
 
" end if end if%>