|
|
Store Locator <%
Dim strZip
%>
<%
strZip = Request("zipcode")
%>
<%
myDSN = "Driver={Microsoft Access DRiver (*.mdb)}; DBQ=F:\WEBS\IpswichBaySoapBV5\WWW\locations.mdb;"
mySQL = "SELECT distinct Zip FROM stores ORDER by Zip "
' display a database field as a listbox
set conntemp=Server.CreateObject("ADODB.Connection")
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
%>
<%
SQL="SELECT * FROM stores WHERE Zip='" & strZip & "' order by ShopName"
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access DRiver (*.mdb)}; DBQ=F:\WEBS\IpswichBaySoapBV5\WWW\locations.mdb;"
Set oRs=objConn.Execute(SQL)
%>
<% While Not oRs.EOF %>
<%= oRs("ShopName").value %>
<%= oRs("Street").value %>
<%= oRs("Community").value %>, <%= oRs("State").value %> <%= oRs("Zip").value %>
<%= oRs("Phone").value %>
<% oRs.MoveNext %>
<% Wend %>
<%
oRs.Close
Set oRs=Nothing
%>
|