|
This new search facility works in a number of ways. Use the search facility to look for local services and suppliers in all areas covered by the Proud Network or individual areas.
Enter a a 'keyword' such as 'hairdressers' or the name of a company eg Mohans or both eg: Mowans Hairdressers. You can do a free text search by entering a phrase or series of words such as 'stained glass artists' or 'antique doll houses and dresses'. This type of search returns results that include any of your chosen terms/words and is not as accurate.
<%
If Trim(Request.QueryString("id")) <> "" Then
'More info link has been clicked, so get and display data specific to one company
dim SQLstr, table, objRSdetail
objRSLocations.MoveFirst
do while not objRSLocations.EOF
if trim(objRSLocations("id")) = Trim(Request.QueryString("location")) then
table = objRSLocations("business_table")
end if
objRSLocations.movenext
loop
SQLstr = "SELECT business_name, address1, address2, address3, address4, postcode, "
SQLstr = SQLstr & "web_address, trade_hour, trade_years, trade_days, telephone, fax, "
SQLstr = SQLstr & "corr_name, corr_pos, email_address, notes "
SQLstr = SQLstr & "FROM " & table
SQLstr = SQLstr & " WHERE ((( business_id)= "
SQLstr = SQLstr & Trim(Request.QueryString("id"))
SQLstr = SQLstr & ")); "
set objRSdetail = Server.CreateObject("ADODB.Recordset")
objRSdetail.Open SQLstr, MM_business_list_STRING, adOpenForwardOnly,adLockReadOnly, adCmdText
'display one business
Response.Write("
Back To Results
")
Response.Write("")
Response.Write("" & objRSdetail("business_name") & "
")
Response.Write "Description
"
Response.Write objRSdetail("notes") & "
"
Response.Write "Opening times
"
Response.Write objRSdetail("trade_hour") & "
"
Response.Write " Days open
"
Response.Write objRSdetail("trade_days") & "
"
Response.Write " Telephone
"
Response.Write objRSdetail("telephone") & "
"
Response.Write " Contact
"
Response.Write objRSdetail("corr_name") & " - " & objRSdetail("corr_pos") & "
"
If objRSdetail("email_address") <> "" then
Response.Write " E.mail enquiry
"
Response.Write ""
Response.Write objRSdetail("email_address") & "
"
End If
If objRSdetail("web_address") <> "" then
Response.Write " Web site
"
Response.Write ""
Response.Write objRSdetail("web_address") & "
"
End If
Response.Write " Address
"
Response.Write objRSdetail("address1") & " "
Response.Write objRSdetail("address2") & "
"
Response.Write objRSdetail("address3") & "
"
Response.Write objRSdetail("address4") & "
"
Response.Write objRSdetail("postcode") & "
"
Response.Write(" ")
Elseif Trim(Request("search")) <> "" Then
'As of 20/05/03 this form allows the user to search the whole network
'or limit the search to just one location
'start by finding which method is to be employed
dim objRSsearch, searchsql, searchResults, searchType
searchType = Trim(Request.Form("location"))
if searchType > 0 then
objRSLocations.MoveFirst
'Response.Write("search = " & searchType & "
")
do while not objRSLocations.EOF
'Response.Write(objRSLocations("id")& "
")
if trim(objRSLocations("id")) = searchType then
'Response.Write("Hit
")
table = objRSLocations("business_table")
end if
objRSLocations.movenext
loop
'Response.Write("table is " & table)
searchsql = "SELECT business_name, address1, address2, address3, address4, postcode, telephone, "
searchsql = searchsql + "business_id, business_type, type_id FROM " & table & " WHERE "
searchsql = searchsql + "match(business_name, address1, address2, address3, address4, "
searchsql = searchsql + "postcode, web_address, business_type, notes) against('"
searchsql = searchsql + Trim(Request("search")) + "') ORDER BY business_name;"
'Response.Write(searchsql)
set objRSsearch = server.CreateObject("ADODB.Recordset")
objRSsearch.Open searchsql, MM_business_list_STRING, adOpenForwardOnly,adLockReadOnly, adCmdText
searchResults = 0
do while not objRSsearch.EOF
searchResults = searchResults + 1
objRSsearch.movenext
loop
%>
|
<%=searchResults%> Search Results |
<%
if searchResults > 0 then
objRSsearch.movefirst
do while not objRSsearch.EOF
Response.Write ""
Response.Write Trim(objRSsearch("business_name"))
Response.Write " - " & Trim(objRSsearch("business_type"))
Response.Write "
"
Response.Write Trim(objRSsearch("address1"))
Response.Write " "
Response.Write Trim(objRSsearch("address2"))
Response.Write "
"
Response.Write Trim(objRSsearch("address3"))
Response.Write "
"
Response.Write Trim(objRSsearch("address4"))
Response.Write "
"
Response.Write Trim(objRSsearch("postcode"))
Response.Write "
"
Response.Write Trim(objRSsearch("telephone"))
Response.Write "
"
Response.Write "more info...
| "
objRSsearch.MoveNext
loop
end if
%>
<%
objRSsearch.Close
set objRSsearch = nothing
else
'Search is global
'to search all of the network, we use the sites table (currently open in objRSLocations) to loop
'through each location, applying the search as we go
objRSLocations.movefirst
Do While Not objRSLocations.EOF 'loop through each location
searchsql = "SELECT business_name, address1, address2, address3, address4, postcode, telephone, "
searchsql = searchsql + "business_id, business_type, type_id FROM " & objRSLocations("business_table") & " WHERE "
searchsql = searchsql + "match(business_name, address1, address2, address3, address4, "
searchsql = searchsql + "postcode, web_address, business_type, notes) against('"
searchsql = searchsql + Trim(Request("search")) + "') ORDER BY business_name;"
'Response.Write(searchsql)
set objRSsearch = server.CreateObject("ADODB.Recordset") 'query the location table
objRSsearch.Open searchsql, MM_business_list_STRING, adOpenForwardOnly,adLockReadOnly, adCmdText
searchResults = 0
do while not objRSsearch.EOF 'count the results
searchResults = searchResults + 1
objRSsearch.movenext
loop 'end of results count
%>
|
| <%=searchResults%> Search Results in <%=objRSLocations("name")%> |
<%
if searchResults > 0 then
objRSsearch.movefirst
Do While Not objRSsearch.EOF 'loop through each hit
Response.Write ""
Response.Write Trim(objRSsearch("business_name"))
Response.Write " - " & Trim(objRSsearch("business_type"))
Response.Write "
"
Response.Write Trim(objRSsearch("address1"))
Response.Write " "
Response.Write Trim(objRSsearch("address2"))
Response.Write "
"
Response.Write Trim(objRSsearch("address3"))
Response.Write "
"
Response.Write Trim(objRSsearch("address4"))
Response.Write "
"
Response.Write Trim(objRSsearch("postcode"))
Response.Write "
"
Response.Write Trim(objRSsearch("telephone"))
Response.Write "
"
Response.Write "more info...
| "
objRSsearch.movenext
Loop 'end of loop through each hit
objRSsearch.Close
set objRSsearch = nothing
End If
objRSLocations.movenext
%>
<%
Loop 'end of location loop
end if
end if
objRSLocations.Close
set objRSLocations = nothing
%> |
Search the Proud Network 