<% pagename="Business Listings" %>


 

<%if request("id") <> "" then%>

 

<% End If %>
<% strSQL = "SELECT mdate FROM membdate WHERE id=1" recData.Open strSQL, conData, 0, 1, &H0001 If Not recData.EOF Then mdate = recData.Fields("mdate") Else Response.Write("Specified content can not be found.") End If recData.Close %> <% if request("cat") = "commserv" then searchcrit = "Community Services"%> <% elseif request("cat") = "new" then 'searchcrit = "new"%> <% elseif request("cat") = "all" then searchcrit = "Retail"%> <% elseif request("cat") = "coup" then %> <% elseif request("cat") = "architect and engineering services" then searchcrit = "architect and engineering services"%>
Architect and Engineering Services
<% elseif request("cat") = "Arts and Entertainment" then searchcrit = "Arts and Entertainment"%>
Arts and Entertainment
<% elseif request("cat") = "Attorneys" then searchcrit = "Attorneys"%>
Attorneys
<% elseif request("cat") = "banks" then searchcrit = "banks"%>
Banks
<% elseif request("cat") = "religious organizations" then searchcrit = "religious organizations"%>
Religious Organizations
<% elseif request("cat") = "Community Organizations and City Services" then searchcrit = "Community Organizations and City Services"%>
Community Organizations and City Services
<% elseif request("cat") = "Community Services" then searchcrit = "Community Services"%>
Community Services
<% elseif request("cat") = "Educational Institutions" then searchcrit = "Educational Institutions"%>
Educational Institutions
<% elseif request("cat") = "Lodging" then searchcrit = "Lodging"%>
Lodging
<% elseif request("cat") = "Medical Industry, dentist, doctors" then searchcrit = "Medical Industry, dentist, doctors"%>
Medical Industry, Dentist, Doctors
<% elseif request("cat") = "Professional Services" then searchcrit = "Professional Services"%>
Professional Services
<% elseif request("cat") = "Property owners, developers and brokers" then searchcrit = "Property owners, developers and brokers"%>
Property Owners, Developers and Brokers
<% elseif request("cat") = "Real Estate" then searchcrit = "Real Estate"%>
Real Estate
<% elseif request("cat") = "Restaurant" then searchcrit = "Restaurant"%>
Restaurant
<% elseif request("cat") = "Retail" then searchcrit = "Retail"%>
Retail
<% else %>
<% If request("id")= "" THEN %>
<%= drawContent( "Business Listings" ) %>
<% End If %> <% end if %>
<% if request("cat" ) <> "" then if request("cat") = "all" OR request("cat") = "new" then if request("cat") = "all" then strSQL = "SELECT * FROM Members ORDER BY business" else strSQL = "SELECT * FROM Members WHERE mdate > #" & mdate & "# ORDER BY business" end if elseif request("cat") = "coup" then strSQL = "SELECT m.*,pf.pagename FROM Members m, page_files pf WHERE pf.pagename = m.business AND pf.ftype='coup' ORDER BY m.business" 'response.write(strSQL) else strSQL = "SELECT * FROM Members WHERE cat = " & sqlPrepare(searchcrit) & " ORDER BY business" 'response.write(strSQL) end if recData.Open strSQL, conData, 0, 1, &H0001 %>
<% Do Until recData.EOF icon="" name = recData.Fields("business") id = recData.Fields("ID") date2 = recData.Fields("mdate") if len(name) > 5 then name=replace(name, chr(213), "'" )%> <% end if recData.MoveNext Loop recData.Close %>
"> "><%= name %><% if date2 > mdate then %> <% end if %>
<% end if if request("id") <> "" then matchid = request("id") strSQL = "SELECT * FROM Members WHERE ID = " & matchid recData.Open strSQL, conData, 0, 1, &H0001 name = recData.Fields("business") name=replace(name, chr(213), "'" ) address = recData.Fields("address") citystatezip = recData.Fields("city")&", " & recData.Fields("state")& " " & recData.Fields("zip") web = recData.Fields("web") email = recData.Fields("email") 'split the email var into an array based on "." to test for multiple addresses if email <> "" then MyArray = Split(email, chr(11),-1, 1) email = MyArray(0) if Ubound(MyArray) >= 1 then email2 = MyArray(1) end if end if phone = recData.Fields("phone") fax = recData.Fields("fax") tempdescr = recData.Fields("descr") if len(tempdescr) > 5 then tempdescr2 = Replace(tempdescr, "Õ", "'") tempdescr3 = Replace(tempdescr2, "Ò", """) tempdescr4 = Replace(tempdescr3, "Ó", """) descr = tempdescr4 else descr = tempdescr end if 'Replace(expression, find, replacewith[, start[, count[, compare]]]) %>

<%= name %>
<%= address %>
<%= citystatezip %>

<% if web <> "" then %>Website: <%= web %>
<% End If %> <% if email <> "" then %>Email: <%= email %>
<% End If %> <% if email2 <> "" then %>Email Two: <%= email2 %>
<% End If %> <% if phone <> "" then %>Phone: <%= phone %>
<% End If %> <% if fax <> "" then %>Fax: <%= fax %>
<% End If %>

<% if descr <> "" then %>

<%= descr %>

<% End If %> <% end if %>