HTML her:
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="290"></td>
<td valign="top">
<br>
<form method="post" name="stores" action="storelocator.asp">
<select name=countries style="width: 150px; background-color: #0DFE01" id="input" onChange="fillStates(this.options[this.selectedIndex].value)">
<option value="none">Choose a Country</option>
<%=strCountrySelect%>
</select>
<select name="states" style="width: 150px; background-color: #0DFE01" id="input" onChange="java script:document.stores.submit()">
<option value="none">Choose a City</option>
</select>
</form></td>
OG SÅ SELVE UDTRÆKKET HER:
<%
'Check if form submit
If Request.Form("states") <> "" Then
' SQL forespørgsel (find land som har stores)
strSQL = "SELECT store.* " & _
" FROM city INNER JOIN store ON city.city = store.city " & _
" WHERE (((city.country)='" & Request.Form("countries") & "') AND ((city.city)='" & Request.Form("states") & "')) " & _
" ORDER BY store.name"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
'Loop recordset
While not rs.EOF
%>
<b>
<%
if rs("name") <> "" then
response.write (rs("name") & "<br>")
end if
%>
</b>
<%
if rs("adr1") <> "" then
response.write (rs("adr1") & "<br>")
end if
%>
<%
if rs("adr2") <> "" then
response.write (rs("adr2") & "<br>")
end if
%>
<%
if rs("adr3") <> "" then
response.write (rs("adr3") & "<br>")
end if
%>
<%
if rs("zip") <> "" then
response.write (rs("zip") & " ")
end if
%>
<%
if rs("city") <> "" then
response.write (rs("city") & "<br>")
end if
%>
<%
if rs("phonetext") <> "" then
response.write (rs("phonetext") & " ")
end if
%>
<%
if rs("phone") <> "" then
response.write (rs("phone") & "<br>")
end if
%>
<%
if rs("email") <> "" then
response.write (rs("email") & "<br>")
end if
%>
<%
if rs("web") <> "" then
response.write (rs("web") & "<br>")
end if
%>
<br>
<%
rs.MoveNext
Wend
rs.close
set rs = nothing
End If
%>
