<% Dim Connection 'Here we declare our variable that will hold our new object Set Connection=Server.CreateObject("ADODB.Connection") Dim sConnString 'Here we declare our variable that will hold the connection string sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("bbmdb.mdb") Connection.Open sConnString Dim Recordset 'Here we declare our variable that will hold our new object Set Recordset=Server.CreateObject("ADODB.Recordset") Dim SQL 'Here we declare our variable that will hold the SQL statement SQL="SELECT * FROM ColourMachines" Recordset.Open SQL, Connection Do While NOT Recordset.Eof %> Chairs

Desks and Timber Furniture

Presentation

Reception

Filing

Tables