UrbanWritten

<% @Language="VBScript" %> <% Option Explicit %> <% ' Step 1: Declare needed cariables Dim dbConnection Dim MSAccessConnectionString 'Step 2: Clone the ADO connectiob object Set dbConnection = Server.CreateObject("ADODB.Connection") 'Step 3: Formulate connectiob string for an Ms access database MSAccessConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb\mdb.mdb") 'Step 4: Connect to database using the ADO connection clone and the formulated connection string dbConnection.Open MSAccessConnectionString %> <% 'DECLARE NEDDED VARIABLES Dim rsProductList Dim sqlProductList Dim selectedCategory ' FORMULATE NEEDED SQL STATEMENT, INTERGRATING THE VALUE OF THE PARAMETER sqlProductList = "SELECT * FROM BOOKS ORDER BY booktitle" ' PRODUCE A CLONE OF THE ADO RECORDSET OBJECT Set rsProductList = Server.CreateObject("ADODB.RecordSet") ' EXECUTE SQL STATEMENT STORED IN sqlProductList USING THE RECORDSET rsProductList THROUGH THE CONNECTION dbConnection rsProductList.Open sqlProductList, dbConnection %> UrbanWritten

<% while rsProductList.EOF=False %>

">" alt="" width="88" height="141" border="0">	<% Response.Write(rsProductList("booktitle"))%> Author: <% Response.Write(rsProductList("bookauthor"))%> Category: <% Response.Write(rsProductList("bookcat"))%> Price: $ <% Response.Write(rsProductList("bookprice"))%> "> "> ">

<% rsProductList.MoveNext Wend %>
Top of Page