<%
Dim conexion, registros, sql
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeBO"
Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM Ejecutivas "
registros.Open sql, conexion
response.write "<html>"
response.write "<head>"
response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1252"">"
response.write "<title>Año</title>"
response.write "<link href=""Stylos/ProyectoII.css"" rel=""stylesheet"" type=""text/css"">"
response.write "</head>"
response.write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
response.write "<p> "
response.write " "
response.write "</p>"
response.write "<table width=""89%"" height=""34"" border=""0"" bgcolor=""999999"">"
response.write " <tr align=""center"" valign=""middle""> "
response.write " <td width=68% height=28 align=center>"
%>
<link href="../Stylos/ProyectoII.css" rel="stylesheet" type="text/css">
<form name="form2" method="POST" action="ejecutivas/individual.asp">
<strong><font color="#FFFFFF" size="2" face="Verdana">Selecione un Ejecutivo</font></strong>
<Select Name="eje">
<%
While Not registros.EOF
%>
<option value="<%=registros("IDEjecutiva")%>"><%=registros ("Ejecutiva")%></option>
<%
registros.MoveNext
Wend
%>
</Select>
<input type="submit" name="Submit" value="VER">
</form>
<%
registros.Close
Set registros = nothing
conexion.Close
Set conexion = nothing
response.write " </td> </tr>"
response.write "</table>"
response.write "</body>"
response.write "</html>"