|
<%
Dim NewString
'set variables
searchMethod=Request.QueryString("searchMethod")
set rs = Server.CreateObject("ADODB.Recordset")
'connString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\chamber\data\carpChamber.mdb"
'my changes!!!!!!
connString = "DRIVER=Microsoft Excel Driver (*.xls);DBQ=" & Server.MapPath("Carp3.xls")
'set SQL search string according to search method
if searchMethod = "View List" then
Response.Write "Companies in the Business Category: " & Request.QueryString("BusType") & " "
'sqlString = "Select * from tblMembers where Description = '" & Request.QueryString("BusType") & "'"
'my changes!!!!!!
sqlString = "Select * from [WEBDB01$] where Description = '" & Request.QueryString("BusType") & "'"
'also my changes
'sqlString = "SELECT * FROM [WebDB01$] WHERE Description='Cleaners'" 'debug
elseif searchMethod = "Search for name" then
'
NewString = CheckIt(Request.QueryString("txtSearch"))
'
Response.Write "Companies found with the search string: " & Request.QueryString("txtSearch") & " "
'sqlString = "Select * from tblMembers where Company like '%" & Request.QueryString("txtSearch") & "%'"
'my changes!!!!!!
'sqlString = "Select * from [WEBDB01$] where Company like '%" & Request.QueryString("txtSearch") & "%'"
sqlString = "Select * from [WEBDB01$] where Company like '%" & NewString & "%'"
elseif searchMethod = "firstLetter" then
Response.Write "Companies found beginning with the letter: " & Request.QueryString("letter") & " "
'sqlString = "Select * from tblMembers where Company like '" & Request.QueryString("letter") & "%'"
'my changes!!!!!!
sqlString = "Select * from [WEBDB01$] where Company like '" & Request.QueryString("letter") & "%'"
else
Response.End
end if
'Response.write sqlString & "
" 'DEBUG
'response.write NewString & "
" 'debug
'retrieve values from database
rs.Open sqlString, connString
'ensure there actually are records
if rs.eof then
Response.write "No businesses found matching your search request.
" &VbCrLf
rs.Close
set rs = Nothing
Response.end
end if
'Display Businesses
Response.write " " & VbCrLf
while not rs.eof
Response.write "" & VbCrLf
Response.write "" & rs("Company") & "
" & VbCrLf
if rs("URL") <> "" then
URL = replace(rs("URL"), "http://", "")
Response.write "" & URL & "
" & VbCrLf
end if
if rs("email") <> "" then
Response.write "" & rs("email") & "
" & VbCrLf
end if
Response.write rs("Address") & "
" & VbCrLf
if rs("Address2") <> "" then
Response.write rs("Address2") & "
" & VbCrLf
end if
Response.write rs("City") & ", " & rs("State") & " " & rs("Zip") & _
"
" & VbCrLf
Response.write rs("Phone") & "
" & VbCrLf
Response.write "
" & VbCrLf
Response.write " | " & VbCrLf
if rs("ImagePath") <> "" then
Response.write "![]() | " & VbCrLf
end if
response.write " "
rs.MoveNext
wend
Response.write " " & VbCrLf
'Close database
rs.Close
set rs = Nothing
%>
|
