% sub ShowResult() dim qry, qry2 dim cnt dim SearchName, DisplayResults set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/App_Data/RSIWebData.mdb")) set rs = Server.CreateObject("ADODB.recordset") if Request.QueryString("ST") <> "" Then qry = "SELECT MemList.* FROM MemList WHERE (((MemList.State)='" & Request.QueryString("ST") & "')) ORDER BY MemList.AlphaSort;" qry2 = "SELECT States.State, States.Code FROM States WHERE (((States.Code)='" & Request.QueryString("ST") & "'));" rs.Open qry2, conn SearchName = rs("State") rs.Close Else If Request.QueryString("CNT") = "CAN" Then qry = "SELECT MemList.* FROM MemList WHERE (((MemList.Country)='CANADA')) ORDER BY MemList.AlphaSort;" SearchName = "Canada" Else qry = "SELECT MemList.* FROM MemList WHERE (((MemList.Country) Is Not Null And (MemList.Country)<>'USA' And (MemList.Country)<>'CANADA')) ORDER BY MemList.AlphaSort;" SearchName = "Outside North America" End If End If rs.Open qry, conn cnt = 0 DisplayResult = "
" & rs("CoName") & " " & rs("CoName") & " No results found for that search, please try another area. Click on an area of the map below to view the locations of our members. Please note that these are only main office locations and not all locations of member companies are listed.
"
else
DisplayResult = DisplayResult + "
"
end if
DisplayResult = DisplayResult & "" & rs("City") & ", " & rs("State") & "RSI Interactive Membership Map

<%
if Request.QueryString("ST") <> "" or Request.QueryString("CNT") <> "" Then
call ShowResult()
else
%>
<%
End If
%>