<%
'Declare Variables
Dim dcnDB7 'As ADODB.Connection
Dim rsDB7 'As ADODB.Recordset
Dim sqlQuery7 'As String
'Find path of database file
filePath7 = Server.MapPath("ocm/cateringdb.mdb")
'Open Database Connection
Set dcnDB7 = 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
dcnDB7.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&filePath7
dcnDB7.Open
'Query and create recordset
sqlQuery7 = "SELECT * FROM Banner WHERE ActiveOnSite <> 0"
Set rsDB7 = Server.CreateObject("ADODB.Recordset")
Set rsDB7 = dcnDB7.Execute(sqlQuery7)
%>
<% Do Until rsDB7.EOF %>
" width="600" height="459" />
<%
rsDB7.MoveNext
Loop
%>
<%
rsDB7.Close
dcnDB7.Close
%>
-
<%
'Declare Variables
Dim dcnDB6 'As ADODB.Connection
Dim rsDB6 'As ADODB.Recordset
Dim sqlQuery6 'As String
'Find path of database file
filePath6 = Server.MapPath("ocm/cateringdb.mdb")
'Open Database Connection
Set dcnDB6 = 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
dcnDB6.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&filePath6
dcnDB6.Open
'Query and create recordset
sqlQuery6 = "SELECT TOP 4 Productname, id FROM Products WHERE Highlight <> 0"
Set rsDB6 = Server.CreateObject("ADODB.Recordset")
Set rsDB6 = dcnDB6.Execute(sqlQuery6)
%>
<% Do Until rsDB6.EOF %>
- "><%=rsDB6("ProductName")%>
<%
rsDB6.MoveNext
Loop
%>
<%
rsDB6.Close
dcnDB6.close
%>
