% '=================================================== 'a.shopKart 2.0 '(c) 1999-2000 Katrien Dermaut De Graeve - URLogy '=================================================== 'if user returns to the homepage after shopping, clean up the session variables If Request.QueryString ("end") = 1 Then Session.Abandon End If 'the following procedure builds a list with all categories 'if you need to change its design, you will need to do this in the procedure, inside the loop Sub showCategories(connobj) Dim strHTML 'holds HTML code to write to page Dim q 'holds the " character q = chr(34) Dim rs 'create recordset to show categories from database Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * FROM categories ORDER BY catdescription ASC;" rs.Open sql, connobj, adOpenForwardOnly,adLockReadOnly,adCmdText If not rs.EOF then 'start unordered HTML list strHTML = "
|
Open M-F 8a.m.-5p.m. MST _________________________
ADDRESS: (800)255-5545 ph:928-344-9008 _________________________ |
|
Copyright © 2009 Quality Power Batteries, 4upsbattery, Power Quality Inc. All Rights Reserved. |