|  Search the Proud Network
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 in individual areas.
Enter a a 'keyword' such
as 'hairdressers' or the name of a company eg Mowans 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.
Search here
<%
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
%>
|
|
<%
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
%>
|
|
|
<%
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
%> |
