Terms and Conditions
<%
'Declare Variables
Dim dcnDB 'As ADODB.Connection
Dim rsDB 'As ADODB.Recordset
Dim sqlQuery 'As String
'Find path of database file
filePath = Server.MapPath("ocm/cateringdb.mdb")
'Open Database Connection
Set dcnDB = Server.CreateObject("ADODB.Connection")
'dcnDB.Open "system" '- This is for an ODBC Datasource (if set up) or
' use the below code for opening a Access 2000 DB
dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&filePath
dcnDB.Open
'sqlQuery = "SELECT * FROM Products p,Brand b WHERE b.id = p.brand and p.Brand = " & BRANDNAME
'Query and create recordset
sqlQuery = "SELECT * FROM Products p, SubCategory s WHERE p.Category = 1 AND p.Subcategory = s.ID ORDER BY s.ID, p.Price, p.ProductName"
Set rsDB = Server.CreateObject("ADODB.Recordset")
Set rsDB = dcnDB.Execute(sqlQuery)
%>
<%
Dim rsDB2 'As ADODB.Recordset
Dim sqlQuery2 'As String
%>
<%
Dim currentsubcategory
Dim lastsubcategory
currentsubcategory = ""
lastsubcategory = ""
%>
<% Do Until rsDB.EOF
currentsubcategory = rsDB("s.ID")
%>
<%
lastsubcategory = currentsubcategory
rsDB.MoveNext
Loop
%>
<%
'Close Connection and clean up
dcnDB.Close
%>
