<%
'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 where money = 'paid' ORDER BY catdescription ASC;"
rs.Open sql, connobj, adOpenForwardOnly,adLockReadOnly,adCmdText
If not rs.EOF then
'start unordered HTML list
strHTML = "
