Qué mala es la prisa. Ya no puedo darle más vueltas ni pensar más. He leído y releído tantas veces este código que ya apenas lo veo.
Mi problema es que tengo unos combobox alimentados por BBDD, se pueden ver aquí:
http://www.014media.com/html/tarjetagasolina_result.asp
El caso, como se puede comprobar, es que el select tiene un evento onchange. Pues cuando se salta el onchange se cargan correctamente las opciones del box siguiente, pero desaparece la opción que elegí anteriormente.
(Creo que no lo he explicado bien, pero si se visita la página se ve el error enseguida)
Por favor, necesito ayuda, seguro que es una chorrada como un castillo, pero no doy con ello.
El código de los combos es:
<select name="idProvincia" id="idProvincia" onChange="location.href='tarjetagasolina_result.as p?idProvincia='+ formulario.idProvincia.options[formulario.idProvincia.selectedIndex].value;">
<option value="">Selecciona </option>
<%
do while not Recordset1.eof%>
<%=(Recordset1.Fields.Item("CodProvincia").Value)% >
<option value="<%=(Recordset1.Fields.Item("CodProvincia"). Value)%>"><%=(Recordset1.Fields.Item("Provincia"). Value)%> </option>
<%recordset1.movenext%>
<%loop
Recordset1.Close()
Set Recordset1 = Nothing%>
</select>
<%cEXE="idProvincia="&p%>
</div></td>
<td><div align="center">
<select name="idLocalidad" id="idLocalidad" onChange="location.href='tarjetagasolina_result.as p?idProvincia='+ formulario.idProvincia.options[formulario.idProvincia.selectedIndex].value+'&idLocalidad='+formulario.idLocalidad.opti ons[formulario.idLocalidad.selectedIndex].value;">
<%dim px2
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_DataSource_STRING
Recordset2.Source = "SELECT DISTINCT LOCALIDAD FROM qaa062.gasolinera WHERE CodProvincia ='"&p&"' ORDER BY LOCALIDAD ASC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<option value="">Selecciona </option>
<%do while not Recordset2.eof%>
<%=(Recordset2.Fields.Item("Localidad").Value)%>
<option value="<%=(Recordset2.Fields.Item("Localidad").Val ue)%>"><%=(Recordset2.Fields.Item("Localidad").Val ue)%></option>
<%recordset2.movenext%>
<%loop%>
</select>
<%cEXE=cEXE&"&idLocalidad="&p1%>
</div></td>
<td><div align="center">
<select name="idCodpostal" id="idCodpostal" onChange="location.href='tarjetagasolina_result.as p?idProvincia='+ formulario.idProvincia.options[formulario.idProvincia.selectedIndex].value+'&idLocalidad='+formulario.idLocalidad.opti ons[formulario.idLocalidad.selectedIndex].value+'&idCodpostal='+formulario.idCodpostal.opti ons[formulario.idCodpostal.selectedIndex].value">
<%dim px3
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_DataSource_STRING
Recordset3.Source = "SELECT DISTINCT CodPostal FROM qaa062.gasolinera WHERE Localidad ='"&p1&"' "
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
Recordset3_numRows = 0
%>
<option value="">Selecciona </option>
<%do while not Recordset3.eof%>
<%=(Recordset3.Fields.Item("CodPostal").Value)%>
<option value="<%=(Recordset3.Fields.Item("CodPostal").Val ue)%>"><%=(Recordset3.Fields.Item("CodPostal").Val ue)%> </option>
<%recordset3.movenext%>
<%loop%>
</select>
<%cEXE=cEXE&"&idCodpostal="&p2%>
