[BigChetti]

Hey guys,

I've created my first search page using ASP. Whilst the search function works and data can be obtained, the results will only be successful if the word i try to search is the first word in any entry in one field.

For example...

if i search for BALL

i will get nothing...

however if i search for GLOW BALL i will get a result

i will receive a result...

similarly if i search for GLOW i will get multiple results?
How can i structure the query so that i can search for any of the words within the field and be guaranteed to get a result?

the link for the search form is

galaxyworldimports.com.au/search.html


Thanks for any help!!



a sample of the asp code is listed below:

[COLOR=Green

]<%
	'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
	
	%>

[/color]