07/03/2006, 15:24
|
| | | Fecha de Ingreso: junio-2005 Ubicación: Entre la silla y el escritorio
Mensajes: 97
Antigüedad: 19 años, 5 meses Puntos: 0 | |
3 Select Dependientes con datos de una Bd que funciona Ok
Código:
Página Index.asp:
<form name="frm1" method="post" action="guardar.asp">
<select name="lstProc" class="caja" onChange="location.href='Index.asp?IdProcedimiento=' +
frm1.lstProc.options[frm1.lstProc.selectedIndex].value">
<option value="0">Seleccione Tipo Proc.</option>
<% Sql = "SELECT codTipoProc, tipoProc FROM TblTipoProcedimientoExpress"
Rst.Open Sql, Con
Procedimiento = Request.QueryString("IdProcedimiento")
Do While Not Rst.EOF
codTipoProc = Trim(Rst("CodTipoProc"))
TipoProc = Trim(Rst("TipoProc"))
If Procedimiento <> "" Then
If (CInt(Procedimiento) = CInt(codTipoProc)) Then %>
<option value="<%=codTipoProc%>" selected><%=TipoProc%></option>
<% Else %>
<option value="<%=codTipoProc%>"><%=TipoProc%></option>
<% End If%>
<% Else %>
<option value="<%=codTipoProc%>"><%=TipoProc%></option>
<% End If
Rst.Movenext
Loop
Rst.Close %>
</select>
</td>
<td>
<select name="lstPlataforma" onChange="location.href='Index.asp?IdPlataforma=' +
frm1.lstPlataforma.options[frm1.lstPlataforma.selectedIndex].value + '&IdProcedimiento='+ frm1.lstProc.options[frm1.lstProc.selectedIndex].value">
<option value="0">Seleccione Plataforma</option>
<% If Request.QueryString("IdProcedimiento") <> "" Then %>
<% idProced = CInt(Request.QueryString("IdProcedimiento"))
idPlataforma = CInt(Request.QueryString("IdPlataforma"))
Sql = "SELECT codTipoPlataforma, NombrePlataforma FROM TblSistemaProcExpressPlataforma WHERE codTipoProc = "&idProced&";"
Rst.Open Sql, Con
Do While Not Rst.EOF
codTipoPlataforma = Trim(Rst("codTipoPlataforma"))
NombrePlataforma = Trim(Rst("NombrePlataforma"))
If idPlataforma <> "" Then
If (CInt(idPlataforma) = CInt(codTipoPlataforma)) Then %>
<option value="<%=codTipoPlataforma%>" selected><%=NombrePlataforma%></option>
<% Else %>
<option value="<%=codTipoPlataforma%>"><%=NombrePlataforma%></option>
<% End If%>
<% Else %>
<option value="<%=codTipoPlataforma%>"><%=NombrePlataforma%></option>
<% End If %>
<% Rst.Movenext
Loop
Rst.Close
End If %>
</select>
</td>
</tr>
<tr>
<td>Momento</td>
<td>
<select name="lstMomento">
<option value="0">Seleccione momento</option>
<% If Request.QueryString("IdPlataforma") <> "" Then %>
<% idPlataforma = CInt(Request.QueryString("IdPlataforma"))
Sql = "SELECT CodigoMomento, NombreMomento FROM TblSistemaProcExpressMomento WHERE codTipoPlataforma = "&idPlataforma&";"
Rst.Open Sql, Con
Do While Not Rst.EOF
codigoMomento = Trim(Rst("CodigoMomento"))
NombreMomento = Trim(Rst("NombreMomento")) %>
<option value="<%=codigoMomento%>"><%=NombreMomento%></option>
<% Rst.Movenext
Loop
Rst.Close
End If %>
</select>
</form>
__________________
<nick>Dorita</nick>...si lo sé, soy una ñoña ;) |