<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<%
Dim DB
set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\db\balada.mdb")
DB.mode = adModeRead
DB.open
Set rso = DB.Execute("SELECT DISTINCT Cidade FROM estabelecimentos WHERE cidade ORDER BY cidade ASC")
%>
<form name="form1" method="post" action="">
<p><span class="style1">Cidade:</span><br>
<select name="cidade">
<%while not rso.eof%>
<option><%=Response.Write(rso.fields("cidade"))%></option>
<%rso.movenext%>
<%wend%>
<%rso.Close%>
<%set rso = nothing%>
</select>
<br>
<span class="style1">Estabelecimento:
</span><br>
<select name="select">
<%
Set rs = DB.Execute("SELECT estabelecimento FROM estabelecimentos WHERE estabelecimento ORDER BY estabelecimento ASC")
%>
<%while not rs.eof%>
<option><%=Response.Write(rs.fields("estabelecimento"))%></option>
<%rs.movenext%>
<%wend%>
<%rs.Close%>
<%set rs = nothing%>
<%SET DB = NOTHING%>
</select>
</body>
</html>
O primeiro select seleciona as diferentes cidades, eu queria que o segundo select só mostrasse os estabelecimentos referente a cidade, como faço isso?
Abraços !!!!
