Uf, prueba esto otro (palos de ciego):
<%
On error resume next
session("usu") = request.form("usuario")
session("pass") = request.form("password")
set conexion = createobject ("ADODB.connection")
conexion.open "PROVIDER=SQLOLEDB; UID=" & session("usu") & "; PWD=" & session("pass") & "; DATABASE=camiones; SERVER=transportes-paco"
conexion.Errors.Clear
strSQL = "select * from trayectos"
set miconexion= conexion.execute(strsql)
if (err.number <> 0) then
Response.write "<b>Error en la base de datos:" & err.description & "</b>"
else
%>
<font face="Arial" color="#CCCCFF"><b>itresa intranet</b></font>
<p align="center">
&nbsp;
<b>Comprobada contraseña y conexión a la base de datos satisfactoriamente.</b>
<%end if
miconexion.close
conexion.close
set miconexion = nothing
set conexion = nothing
%>
