secondo voi dove sbaglio?

[teomano]

questo era in access e stramegafunzionava, a questo punto tu dirai e lascialo in access... ebbravo vallo dire al capo vallo a dire...

<%@ 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
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE user='" &user&_
"' AND PASSWORD='" &password& "'"
Dim rs
Set rs = cn.Execute(sql)


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

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

%>

[Sypher]

se fai questa response?

<%@ 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=Estraz
ioniAs400;UID=sa;PWD=sa;" 

Set cn = Server.CreateObject("ADODB.Connection") 
Response.Write("OK")
Response.End 
cn.Open strSQLConn 
...
%>

e poi sposti il response.end dopo la open della connessione

[mmanoni]

nada

[Roby_72]

strSQLConn= "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=EstrazioniAs400;User ID=sa;Password=sa;"

Roby

[mmanoni]

provaten ma non funzionare...

che mica esiste uno script specifico di autenticazione asp + sql? Ho provato a cercare ma niente...

[Roby_72]

Non hai ancora detto che errore ti da...
Dobbiamo buttare ad indovinare?


Roby

[teomano]

giusto ma se ti chiamano in continuazione... allora ho modificato un po' il codice come segue:

<%@ Language=VBScript %>
<% option explicit %>
<%Response.Buffer=true%>
<%
Dim cn
Dim strSQLConn
Dim rs
Dim user
Dim password
Dim autenticato
Dim sqlstr
user = Replace(Request.Form("user"), "'", "''")
password = Replace(Request.Form("password"), "'", "''")
strSQLConn= "Driver={SQL Server};Server=localhost;Database=EstrazioniAs400; UID=sa;PWD=sa;"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strSQLConn
Set Rs=Server.createobject("ADODB.Recordset")
SQLStr="SELECT esttabellaagenti FROM utenti where desagente = '" & user & "' and password = "' & password & "'"
rs.open SQLStr, cn
while not rs.eof



if rs.eof then
autenticato = "false"
else
autenticato = "true"
end if
wend
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticato = "true" then
Session("Autenticato") = "ok"
server.transfer("portale.asp")
else
Response.Redirect("negative.asp")
end if
%>

ma ottengo:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '='.

/sitoagenti/login.asp, line 19

aiuto!!!

[Roby_72]

Okkio alle virgolette:

SQLStr="SELECT esttabellaagenti FROM utenti where desagente = '" & user & "' and password = '"& password & "'"

Roby

[teomano]

ok giusto... funziona tutto. grazie troppe