<% FSpecials IF E K DISK FBooks01 IF E K DISK FShelves IF E K DISK * * Work Fields D @Today S D D @CartCount S 8S 0 Inz D @CartCnt S 30S 9 Inz D @SessionId S 256A D ShelfStart S Like(ShvSeq) * Key Lists C Ky@Spec Klist C KFLD @Today * C Ky@Book Klist C KFLD SpcShelf C KFLD SpcBook * Begin Main Line C Time @Today * Get the Session Variables C Eval @SessionId = RspStrSess Start if not Started C Eval @CartCnt=RspCh2Num(RspGetSess('CartCnt')) Get the Cart Count C Eval @CartCount = @CartCnt Strip Decimal Places %> <%= %Trim(RspSrvVar('WebTitle')) %>
Home
Click here to view the source for this page.
Search
 
You have <%=%Char(@CartCount)%> items in
your shopping cart
     
    <% * Load the Bookshelf Table C ShelfStart SETLL Shelves C READ Shelves C DOW Not %Eof(Shelves) %>
<% C READ Shelves C ENDDO %>
Browse
  • <%=%Trim(ShvDesc)%>
    		• This is the Demonstration site for RSP (RPG Server Pages). This is a small sample of what can be achieved with this wonderful tool. If you would like more information about RSP, or would like to purchase this valuable tool, please contact our sales department.
      <% * Load the Specials table C Ky@Spec SETLL Specials C READ Specials C DOW Not %Eof(Specials) and SpcEDate >= @Today C IF SpcBDate <= @Today C Ky@Book CHAIN Books01 C IF %Found(Books01) %>
    <% C ENDIF C ENDIF C READ Specials C ENDDO %>
    Today's Specials
  • <%=%Trim(BksTitle)%>