<%
'Page to display items (Categories/Ocassion)
'The cart will use the SessionID as the identification factor.
'The user will choose items from the shop and add it to cart. (Temporary Table)
'After checking out data is transfered from Temp Table to the Order Table
If Len(Trim(Session("ConnectDB")))=0 Then
Response.Write "Restart process"
Else
'Continue
'Set a Session For the User
Session("UserID")=Session.SessionID
'Get a list of all categories and the number of items inside each cateopry
Dim strSQL_Category
strSQL_Category="SELECT * FROM [tblCategory] ORDER BY Category"
Dim rsoCat
Set rsoCat=Server.CreateObject("ADODB.Recordset")
rsoCat.Open strSQL_Category,Session("ConnectDB"),adOpenKeyset,adLockPessimistic
'Dont show Toppings
rsoCat.Filter = "Category<>'EXTRA TOPPING ON PIZZAS'"
'Get a list of all items
Dim strSQL_Item
strSQL_Item="SELECT * FROM [tblItem]"
Dim rsoItem
Set rsoItem=Server.CreateObject("ADODB.Recordset")
rsoItem.Open strSQL_Item,Session("ConnectDB"),adOpenKeyset,adLockPessimistic
'Get the List of All Ocassions
Dim strSQL_Ocassions
strSQL_Ocassions="SELECT * FROM [tblOcassion] ORDER BY Ocassion"
Dim rsoOcassions
Set rsoOcassions=Server.CreateObject("ADODB.Recordset")
rsoOcassions.Open strSQL_Ocassions,Session("ConnectDB"),adOpenKeyset,adLockPessimistic
'Get the List of Items in ocassions
Dim strSQL_IO
strSQL_IO="SELECT * FROM [tblItemOcassion]"
Dim rsoIO
Set rsoIO=Server.CreateObject("ADODB.Recordset")
rsoIO.Open strSQL_IO,Session("ConnectDB"),adOpenKeyset,adLockPessimistic
%>
<%
'Destroy
Set rsoCat=nothing
Set rsoIO=nothing
Set rsoItem=nothing
Set rsoOcassions=nothing
End If
'Err Handler
If Err.number <> 0 then
Response.Write "Kindly restart process" '// Send to some restart point
Response.End
End If
%>
