BBM Office National - Digital Copier Specialists

<% 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 %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("bbmdb.mdb")) set rs=Server.CreateObject("ADODB.recordset") sql="SELECT Name FROM ColourMachines ORDER BY Name" rs.Open sql,conn Name=request.form("Name") %> ">

<%Response.write Recordset("Name")%>

<%Response.write Recordset("Description")%>

" style="border: 1px solid #FF0000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" align="left" valign="top" alt="Cheap Digital Copier" >

<%Response.write "
" Recordset.MoveNext Loop Recordset.Close Set Recordset=Nothing Connection.Close Set Connection=Nothing %>