sql server 7 -> sql server 200 falla conexion

[GTA2]

<%

function conecta()
'conexion a bd por ip

strconn = "Driver={SQL Server};Description=sapi;SERVER=direccionip;UID=us uario;PWD=clave;DATABASE=nombre_bd"
set conn = server.createobject("adodb.connection")
conn.open strconn
set conecta=conn

end function

%>

<%

Sub desconecta(conn)
conn.close
set conn=nothing
end sub

%>

para conectarse creas una variable en tu pagina y le pones.

conn1=conecta()

para desconectar usas

desconecta(conn1)

eso, funciona con sql server 7 y 2000...

me avisas como te fue.