]<%
 'Open up a connection to our Access Database
 'that stores the customer information.
 Set MyConn = Server.CreateObject("ADODB.Connection")
      MdbFilePath = Server.MapPath("Databases/gal_imports.mdb")
      MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
      
 'Read in the charactes the user entered
 Dim strProductNameQ
 strProductNameQ = Trim(Request("ProductNameQ"))
 
 'Create our SQL statenebt variable
 Dim strSQL
 strSQL = "SELECT ProductName, ProductPrice FROM Products WHERE ProductName LIKE '" & _ 
  strProductNameQ & "%' ORDER BY ProductName"
 
 'Create a recordset object instance, and execute the SQL Statement
 Dim objRS
 Set objRS = Server.CreateObject("ADODB.Recordset")
 objRS.Open strSQL, MyConn
 
 'Determine whether or not there are any records in objRS
 If objRS.EOF then
  'No records were returned for the characters entered by the user
  Response.Write "There are no products that contain " & _ 
   UCase(strProductNameQ)
  
 Else
  'There are one or more products that meet the condition entered by the
  'user. Display these products...
  
  Response.Write "<B>A Listing of Products beginning with " & _
   UCase(strProductNameQ) & ":</B><BR>"
  
  Do While Not objRS.EOF
   Response.Write objRS("ProductName") & " - " & _ 
     FormatCurrency(objRS("ProductPrice")) & "<BR>"
     
  
   'Move on to the next customer
   objRS.MoveNext
  Loop
 End If
 
 'Clean up our ADO objects
 objRS.Close
 Set objRS = Nothing
 
 MyConn.Close
 Set MyConn = Nothing
 
 %>

  strSQL = "SELECT ProductName, ProductPrice FROM Products WHERE ProductName LIKE '" & _ 
  strProductNameQ & "%' ORDER BY ProductName"

  strSQL = "SELECT ProductName, ProductPrice FROM Products WHERE ProductName LIKE '%" & _ 

  strProductNameQ & "%' ORDER BY ProductName"