|
|
|
Search for your favorite online retailer:<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rs 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\Main.mdb") 'Create an ADO recordset object Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tblCustomer WHERE Vendor <> 10 AND Keywords LIKE" & "'" & "%" & sSearch & "%" & "'" 'Open the recordset with the SQL query rs.Open strSQL, adoCon%>
OR - Search for your favorite items:<% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT TOP 100 FROM Items WHERE Keywords LIKE" & "'" & "%" & sSearch & "%" & "'" 'Open the recordset with the SQL query rs.Open strSQL, adoCon%>
| |||||||||||||||||||||||||||||||
