21/11/2006, 03:09
|
 | | | Fecha de Ingreso: noviembre-2006 Ubicación: En ALMERIA (El Paraiso)
Mensajes: 14
Antigüedad: 19 años Puntos: 0 | |
El código que uso para sacar esos resultados es:
<%
Dim oConn, rs, SQL
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath(".\BBDD.mdb")
rs.cachesize=60
SQL="SELECT distinct Zona1 FROM Web"
rs.Open SQL, oConn, 1, 2
%>
<select name="localidad" onChange="cambialocalidad()">
<%if request("localidad")="" then%>
<option selected value=""> -- SELECCIONE LOCALIDAD --</option>
<%else%>
<option value=""> -- SELECCIONE LOCALIDAD --</option>
<%end if%>
<% do while not rs.EOF
if rs("Zona1")<>"" then
if (rs("Zona1")=request("localidad")) then%>
<option value="<%=rs("Zona1")%>" selected><%=rs("Zona1")%></option>
<%else%>
<option value="<%=rs("Zona1")%>"><%=rs("Zona1")%></option>
<%end if
end if
rs.movenext
loop
rs.Close%>
Ese es todo el código que hay. |