<% 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 = "

" & SearchName & ":


" 'Response.Write(SearchName) 'Response.Write("
") do until rs.EOF 'Response.Write(rs("CoName")) 'Response.Write("
") if rs("Website") <> "" Then DisplayResult = DisplayResult + "

" & rs("CoName") & "
" else DisplayResult = DisplayResult + "

" & rs("CoName") & "
" end if DisplayResult = DisplayResult & "" & rs("City") & ", " & rs("State") & "

" cnt = cnt + 1 rs.MoveNext loop rs.close conn.close if cnt = 0 then DisplayResult = DisplayResult & "

No results found for that search, please try another area.

" end if Response.Write(DisplayResult ) end sub %>
RSI top
RSI logo

 

RSI Interactive Membership Map


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.

membership map

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


<% End If %>