secondo voi dove sbaglio?

[teomano]

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

%>

[pip19]

Originariamente inviato da teomano
Dim cn
Dim autenticato
Dim cn

Non puoi dichiarare 2 volte la stessa variabile

[teomano]

ok but it doesn't work, che altro può esserci?

[Sypher]

ma l'errore è su quella pagina o dopo la redirect?

[teomano]

proprio su quella prima avevo il database in access e funzionava poi ho migrato il tutto su sql e si ferma ma sono convinto cmq che sia un problema di codice. I campi sono sicuri al 100%. Credo di sbagliare sulla connessione tu che dici?

[Sypher]

bah nn ne sono convino intanto guarda qui

[teomano]

provato nada ho scritto correttamente la stringa

[teomano]

può essere che in access (che funzionava) "idagente" era un contatore mentre in sql è una char a 10 caratteri?

[Sypher]

mmm se invece di Dim rs scrivi

Set rs = Server.CreateObject("ADODB.Recordset")

[Sypher]

Originariamente inviato da teomano
può essere che in access (che funzionava) "idagente" era un contatore mentre in sql è una char a 10 caratteri?

naaa