Cita:
lo que deseo es que cuando aprete el Boton Todos me envie a la pagina xxx.asp y que cuando aprete el boton VER me envie a la pagina ejecutivas/individual.asp<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
x = split(rstSchema("TABLE_NAME"),"-")
if x(0) = "InforBO" then
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
End If
rstSchema.MoveNext
Loop
%>
</select>
<strong><font color="#FFFFFF" size="2" face="Verdana"> | Selecione un
Ejecutivo</font></strong>
<Select Name="eje">
<%
Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM Ejecutivas WHERE Tipo = 'Back' "
registros.Open sql, conexion
While Not registros.EOF
%>
<option value="<%=registros.fields("Valor")%>"><%=registro s.fields("Ejecutiva")%></option>
<%
registros.MoveNext
Wend
%>
</Select>
<input type="submit" name="Submit" value="VER">
<input type="submit" name="Submit" value="Todos">
</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
x = split(rstSchema("TABLE_NAME"),"-")
if x(0) = "InforBO" then
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
End If
rstSchema.MoveNext
Loop
%>
</select>
<strong><font color="#FFFFFF" size="2" face="Verdana"> | Selecione un
Ejecutivo</font></strong>
<Select Name="eje">
<%
Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM Ejecutivas WHERE Tipo = 'Back' "
registros.Open sql, conexion
While Not registros.EOF
%>
<option value="<%=registros.fields("Valor")%>"><%=registro s.fields("Ejecutiva")%></option>
<%
registros.MoveNext
Wend
%>
</Select>
<input type="submit" name="Submit" value="VER">
<input type="submit" name="Submit" value="Todos">
</form>
de antemanos muchas gracias