<%@ Language=VBScript %> <% option explicit %> <% Dim productID,name,price,size,colour,productType,splitColour,splitSize,cnt,sizes(),colours(),noOfSizes,noOfColours,deleteCart Dim allEquipmentType(),allEquipmentTypeCount,equipmentType,cnt1 productID="0" name="0" price="0" size="0" colour="0" productType="0" deleteCart="0" noOfSizes=0 equipmentType=Request.Form("equipmentType") 'get all equipment types Dim cnPath, connStr, aQuery, dbName, connObj, rsObj 'set path to database cnt=0 cnt1=0 dbName="blackcatdatabase/equipment.mdb" aQuery="SELECT * FROM equipmentType" 'open and connect to database cnPath = "DBQ=" + Server.mapPath(dbName) connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " + cnPath Set connObj = Server.CreateObject("ADODB.Connection") connObj.Open(connStr) Set rsObj = Server.CreateObject("ADODB.Recordset") 'get record set rsObj.Open aQuery, connObj,3,3 if rsObj.recordcount>0 then rsObj.Movelast allEquipmentTypeCount=rsObj.RecordCount ReDim allEquipmentType(allEquipmentTypeCount) rsObj.MoveFirst Do while not rsObj.EOF allEquipmentType(cnt1)=rsObj("types") cnt1=cnt1+1 rsObj.MoveNext loop end if 'close database rsObj.close Set rsObj=Nothing connObj.close Set connObj=Nothing %> <% 'set path to database dbName="blackcatdatabase/equipment.mdb" if equipmentType="" or equipmentType="Equipment Type" then aQuery="SELECT * FROM equipment WHERE types='Gloves'" else aQuery="SELECT * FROM equipment WHERE types='" & equipmentType & "'" end if 'open and connect to database cnPath = "DBQ=" + Server.mapPath(dbName) connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " + cnPath Set connObj = Server.CreateObject("ADODB.Connection") connObj.Open(connStr) Set rsObj = Server.CreateObject("ADODB.Recordset") 'get record set rsObj.Open aQuery, connObj,3,3 if rsObj.recordcount>0 then rsObj.MoveFirst %>

Equipment Type<% for cnt1=0 to allEquipmentTypeCount-1 %><%=allEquipmentType(cnt1)%><% next %>  <% Do while not rsObj.EOF %> <% if rsObj("size")<>"" then splitSize=Split(rsObj("size"),"/") noOfSizes=UBound(splitSize) reDim sizes(noOfSizes) for cnt=0 to noOfSizes sizes(cnt)=splitSize(cnt) next end if %> <% cnt=0 %> <% if rsObj("colour")<>"" then splitColour=Split(rsObj("colour"),"/") noOfColours=UBound(splitColour) reDim colours(noOfColours) for cnt=0 to noOfColours colours(cnt)=splitColour(cnt) next end if %> <% rsObj.MoveNext %> <% loop %> <%=rsObj("name")%> border=1 width=120> Size     <% if noOfSizes>0 then %> <% for cnt=0 to noOfSizes %> <% if sizes(cnt)<>"" then %> <%=sizes(cnt)%> <% end if %> <% next %> <% end if %> Colour  <% if noOfColours>0 then %> <% for cnt=0 to noOfColours %> <% if colours(cnt)<>"" then %> <%=colours(cnt)%> <% end if %> <% next %> <% end if %> <%=rsObj("description")%> "> "> "> £<%=rsObj("price")%>

<% rsObj.close Set rsObj=Nothing connObj.close Set connObj=Nothing %> <% else %> Sorry No Equipment Available At Present <% end if %>