in questo script di autenticazione che ho scopiazzato dai vs script?:
considerando che i campi del database sono corretti ottengo sempre comunque la pagina di errore del server

<%@ Language=VBScript %>
<% option explicit %>
<%Response.Buffer=true%>
<%
Dim user
Dim password
Dim pagina
user = Replace(Request.Form("user"), "'", "''")
password = Replace(Request.Form("password"), "'", "''")
Dim cn
Dim autenticato
Dim cn
Dim strSQLConn

strSQLConn= "Driver={SQL Server};Server=localhost;Database=EstrazioniAs400; UID=sa;PWD=sa;"

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strSQLConn
SQLStr = "SELECT IDagente FROM tabellaagenti WHERE desagente='" &user& "' AND PASSWORD='" &password& "'"
Dim rs
rs.open SQLStr, cn


if rs.eof then
autenticato = false
else
autenticato = true
end if

if autenticato = true then
Session("Autenticato") = "OK"
response.redirect("portale.asp")
else
Response.Redirect("negative.asp")
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

%>