necesito ejemplo de un combobox doble y dinamico, tengo 3 dropdownmenu( combobox) pero el problema es que deben ser dinamicos, ahora en dreamweaver solo logre que aparescan pero no logro hcer que sean dinamicos, lo cual , no me sirv mucho,,, el otro problema es capturar los datos en la otra pagina
adjunto la pagina para que vean si alguien sabe y me puede ayudar
sino alguien que tenga un enlace con ejemplo practico que pueda usar. +
================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/biblio.asp" -->
<%
Dim Rec_Ger
Dim Rec_Ger_numRows
Set Rec_Ger = Server.CreateObject("ADODB.Recordset")
Rec_Ger.ActiveConnection = MM_biblio_STRING
Rec_Ger.Source = "SELECT * FROM dbo.Gerencia ORDER BY system_id ASC"
Rec_Ger.CursorType = 0
Rec_Ger.CursorLocation = 2
Rec_Ger.LockType = 1
Rec_Ger.Open()
Rec_Ger_numRows = 0
%>
<%
Dim Rec_Sup
Dim Rec_Sup_numRows
Set Rec_Sup = Server.CreateObject("ADODB.Recordset")
Rec_Sup.ActiveConnection = MM_biblioSTRING
Rec_Sup.Source = "SELECT * FROM dbo.superintendencia"
Rec_Sup.CursorType = 0
Rec_Sup.CursorLocation = 2
Rec_Sup.LockType = 1
Rec_Sup.Open()
Rec_Sup_numRows = 0
%>
<%
Dim Rec_Pro
Dim Rec_Pro_numRows
Set Rec_Pro = Server.CreateObject("ADODB.Recordset")
Rec_Pro.ActiveConnection = MM_biblio_STRING
Rec_Pro.Source = "SELECT * FROM dbo.proceso"
Rec_Pro.CursorType = 0
Rec_Pro.CursorLocation = 2
Rec_Pro.LockType = 1
Rec_Pro.Open()
Rec_Pro_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<body>
<form name="form1" method="get" action="Cadena.asp">
<table width="616" border="0">
<tr>
<td width="115"> </td>
<td width="130"><select name="select">
<option selected value="">gerencia</option>
<%
While (NOT Rec_Ger.EOF)
%>
<option value="<%=(Rec_Ger.Fields.Item("system_id").Value) %>"><%=(Rec_Ger.Fields.Item("nom_ge").Value)%></option>
<%
Rec_Ger.MoveNext()
Wend
If (Rec_Ger.CursorType > 0) Then
Rec_Ger.MoveFirst
Else
Rec_Ger.Requery
End If
%>
</select></td>
<td width="139"><select name="select">
<option value="" <%If (Not isNull((Rec_Sup.Fields.Item("cod_ge").Value))) Then If ("" = CStr((Rec_Sup.Fields.Item("cod_ge").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Superintendencia</option>
<%
While (NOT Rec_Sup.EOF)
%>
<option value="<%=(Rec_Sup.Fields.Item("system_id").Value) %>" <%If (Not isNull((Rec_Sup.Fields.Item("cod_ge").Value))) Then If (CStr(Rec_Sup.Fields.Item("system_id").Value) = CStr((Rec_Sup.Fields.Item("cod_ge").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Rec_Sup.Fields.Item("nom_sup").Value)%></option>
<%
Rec_Sup.MoveNext()
Wend
If (Rec_Sup.CursorType > 0) Then
Rec_Sup.MoveFirst
Else
Rec_Sup.Requery
End If
%>
</select></td>
<td width="87"><select name="select">
<option value="">Proceso</option>
<%
While (NOT Rec_Pro.EOF)
%>
<option value="<%=(Rec_Pro.Fields.Item("system_id").Value) %>"><%=(Rec_Pro.Fields.Item("nom_pro").Value)%></option>
<%
Rec_Pro.MoveNext()
Wend
If (Rec_Pro.CursorType > 0) Then
Rec_Pro.MoveFirst
Else
Rec_Pro.Requery
End If
%>
</select></td>
<td width="111"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><input type="submit" name="Submit" value="Enviar"></td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
<%
Rec_Ger.Close()
Set Rec_Ger = Nothing
%>
<%
Rec_Sup.Close()
Set Rec_Sup = Nothing
%>
<%
Rec_Pro.Close()
Set Rec_Pro = Nothing
%>