ESTA ES RUTINA COMPLETA Y NO FUNCIONA:Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.open "driver={SQL Server};server=BCR0506VIS01;database=Estadisticas; uid=dbost;pwd=;"
SQL1 = "SELECT * FROM Oficina"
Set Oficina = conexion.execute(SQL1)
<Select Name= "Combo4">
<%
oficina.movefirst
DO While not OFICINA.EOF
%>
<OPTION VALUE ="<%=oficina("codoficina")%>& quot;>
</option>
<%
Oficina.MoveNext
Loop
%>
</Selected>