Cita:
espero que me puedan ayudar de ante manos gracias....... <form name="form1" method="POST" action="ejecutivas/individual.asp">
<% Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeBO"
%>
<div align="center"><strong><font color="#FFFFFF" size="2" face="Verdana">Seleccione BD :</font></strong>
<select name="SBD" size="1">
<%
Const adSchemaTables = 20
Set registros = Server.CreateObject ("ADODB.RecordSet")
strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = conexion.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
rstSchema.MoveNext
Loop
%>
</select>
<input type="submit" name="Submit" value="VER">
<%
registros.Close
Set registros = nothing
conexion.Close
Set conexion = nothing%>
</form>
<% Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeBO"
%>
<div align="center"><strong><font color="#FFFFFF" size="2" face="Verdana">Seleccione BD :</font></strong>
<select name="SBD" size="1">
<%
Const adSchemaTables = 20
Set registros = Server.CreateObject ("ADODB.RecordSet")
strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = conexion.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
rstSchema.MoveNext
Loop
%>
</select>
<input type="submit" name="Submit" value="VER">
<%
registros.Close
Set registros = nothing
conexion.Close
Set conexion = nothing%>
</form>