Bueno, lo último que se me ocurre...
Asegurate de que pones al principio "On Resume Next", puede que el problema este el el Recordset que abre una conexion que no es valida, aqui te dejo:
Código:
<%
On Error Resume Next
Dim strUser
Dim strPwd
Dim strSQL
Dim conn
Dim rs
strUser = "usuario"
strPwd = "password"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "PROVIDER=SQLOLEDB;UID=" & strUser & ";PWD=" & strPwd & ";DATABASE=;SERVER=servidor"
if err.number <> "" then
'Descripcion del error: Login failed for user usuario.
response.write "Descripcion = " & err.description & ""
else
response.write "¡¡¡¡ USUARIO CORRECTO !!!!"
strSQL = "select * from trayectos"
set rs = conn.Execute(strSQL)
if not rs.EOF then
'Haces lo que quieras
end if
end if
conn.close
set conn = Nothing
%>
Espero que esta vez si...
