busqueda en db

[Gu@ro]

tengo un problema al sacar el contenido de una db me da este error :

ADODB.Recordset error '800a0e7d'

Invalid operation on object with a closed connection reference.

/chat/db/index.asp, line 7

y este es el codigo a ver si saben cual es el problema:
<%

set rst = Server.createobject("ADODB.Recordset")
sql = "select * from cyb_student_profile_mast"

rst.open sql 'esta es la linea 7 aqui es donde da el error creo yo ?

if not ((rst.eof) or (rst.bof)) then
rst.movefirst
cont=1
Do while not (rst.eof) and Cont<>30
response.write= cyb_profile_last_name

rst.movenext
cont = cont+1
loop
end if

rst.Close
Set rst = Nothing

%>

por favor ayudenme :(

[salmos]

¿Donde te conectas a la base de datos?. Creo que ese es el problema.

[Gu@ro]

yo pongo la conexion en otra pagina y luego que abro la db llamo a index esta es la conexion:

Dim Conexion
Set Conexion = Server.CreateObject ("ADODB.Connection")
Conexion.Open "driver={SQL Server};server=SAIA; database=intralearn2; uid=sa;pwd="
response.redirect "index.asp"

[AngelW]

Hola, talvez pueda ayudarte.

Por cierto disculpame, pero tu codigo esta medio extraño y no logro entenderlo bien, pero te dire como lo haría y tu decides si adaptarlo o dejarlo asi:

Dim oConn
Dim oRs
Dim sSql
Dim iContador
Set oConn = Server.CreateObject("ADOdb.Connection")
oConn.Open "String de conexion a la BD"
sSql = "select * from cyb_student_profile_mast"
Set oRs = oConn.Execute(sSql)
If Not oRs.Eof Then
iContador = 1
Do While Not oRs.Eof
Response.write(oRs("cyb_profile_last_name&quo t;) & "<br>")
oRs.MoveNext
Loop
End If


Buenos esto es todo y segun mis calculos no puede fallar, pero si surge algo me dices para ayudarte

[salmos]

rst.open sql,Conexion

prueba esto.

[Gu@ro]

Listo gracias tenias razon si funciono ya puedo hacer mi consulta sin problemas muchas gracias