ASP - Problema con una lista desplegable en sql server

<%

Bueno tengo este codigo y no entiendo mucho para revisar ya que soy nuevo y lo tengo ahacer en sql server y tiene un error.
<%
Dim oConn, rs, SQL

set oConn=Server.CreateObject("ADODB.Connection")
Conexion.ConnectionString="dsn=seminario;uid=sa;"
set rs=Server.CreateObject("ADODB.Recordset")
SQL="select * from TB_ISAPRE"

rs.Open SQL, oConn

' Ahora pintamos nuestra lista desplegable:
%>

<SELECT SIZE=1 NAME="Empleado">

<OPTION VALUE="0">[Elija su empleado]</OPTION>

<%
' Empezamos nuestro bucle para rellenar la lista
do until rs.EOF
%>
<OPTION VALUE="<%=rs.Fields("ID_ISAPRE")%>">
<%rs.Fields("NOMBRE_ISAPRE")%> </OPTION>
<%
rs.MoveNext
loop
...
' Si no utilizaramos más la base de datos
' cerramos aquí los objetos rs y oConn
%>
</SELECT>

Creo q tu problema esta en esta línea :

Conexion.ConnectionString="dsn=seminario;uid=sa;"

db ser asi

oConn.ConnectionString="dsn=seminario;uid=sa;"

t doy aqui un ejm de cnn

Cadena= "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TUBD;Data Source=(Local)"
Cn.open Cadena
Espro t sirva.

Hasta Pronto