<%if sProcess = "GetState" then open_db dim orsGetStates set orsGetStates = server.createobject("ADODB.Recordset") orsGetStates.open "Select State from Store group by State", oconn, 1, 2 %>  

What state are you searching in?      <%do while not orsGetStates.eof%> "><%response.write(orsGetStates("State"))%> <%orsGetStates.movenext loop%> Show All Locations

<%end if if sProcess="Display" then dim orsDisplayResults dim orsCountRec GetVar open_db set orsDisplayResults = server.createobject("ADODB.Recordset") set orsCountRec = server.createobject("ADODB.Recordset") if sState = "All" then orsDisplayResults.open "Select * from Store order by State, storename;", oconn, 1, 2 orsCountRec.open "Select count(SID) as SCount from Store;", oconn, 1, 2 else orsDisplayResults.open "Select * from Store where State = '" & sState & "' order by storename;", oconn, 1, 2 orsCountRec.open "Select count(SID) as SCount from Store where State = '" & sState & "';", oconn, 1, 2 end if if orsDisplayResults.eof and orsDisplayResults.eof then%> Sorry but we have no restaurants here. Please let us know that you are interested in Sam Snead's Tavern by filling out the form in the Feedback Section. <%else%>

<%response.write(orsCountRec("SCount"))%> Tavern[s] were found in <%response.write(" " & sstate)%>

<%do while not orsDisplayResults.eof%> <%if orsDisplayResults("Map") <> "No Map" then%> <%else%> <%end if%> <%orsDisplayResults.movenext loop end if close_db%>

Address	Phone Number	Map
<%response.write(orsDisplayResults("StoreName") & " " & orsDisplayResults("Street") & " " & orsDisplayResults("City") & ", " & orsDisplayResults("State") & " " & orsDisplayResults("Zip"))%>	<%response.write(orsDisplayResults("PhoneNumber"))%>	&sProcess=GetMap">" width="50" height="45" alt="Click On Map To Enlarge">	No Map

<%end if%> <%if sProcess = "GetMap" then dim orsDisplayMap dim sSID sSID = request("sSID") open_db set orsDisplayMap = server.createobject("ADODB.Recordset") orsDisplayMap.open "Select * from store where SID = " & sSID & ";", oconn, 1, 2 if not orsDisplayMap.eof and not orsDisplayMap.bof then%>

<%response.write(orsDisplayMap("StoreName") & " " & orsDisplayMap("Street") & " " & orsDisplayMap("City") & ", " & orsDisplayMap("State") & " " & orsDisplayMap("Zip"))%>	<%response.write(orsDisplayMap("PhoneNumber"))%>
" width="363" height=414 >

<%else%> Sorry an error has occurred. Please try again. If the problem persists please email us and we will fix it. <%end if close_db end if%>