autenticazione

[forte78]

<%
Dim username
Dim password

username = Replace(Request.Form("username"), "'", "''")
password = Replace(Request.Form("password"), "'", "''")



Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("public/archivio.mdb")
Dim sql
sql = "SELECT ID FROM archivioutenti WHERE username='" &username&_
"' AND password='" &password& "'"
Dim rs
Set rs = cn.Execute(sql)

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


Dim cod
cod=Request.Querystring("cod")

SQL="SELECT * FROM tabella1 WHERE id="&cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)


if autenticato = true then
Session("autenticato") = "OK"
Response.Redirect("prenota.asp?cod=" & cstr(cod)
else
Response.Redirect("login.asp")
end if
%>



questo è un codice di processo di autenticazione in questa riga

Response.Redirect("prenota.asp?cod=" & cstr(cod)

sto provando, se l'utente ha inserito i suoi dati giusti, ad inviarlo nella pagina di riferimento di quel codice

ma l'errore è questo


Microsoft VBScript compilation error '800a03ee'

Expected ')'

/processlogin.asp, line 44

Response.Redirect("prenota.asp?cod=" & cstr(cod)
------------------------------------------------^


potrei fare una request.querystring ma nn so dove metter le mani

fatemi sapere grazie

[Sandra]

Prova cosi.....


Response.Redirect("prenota.asp?id="&cod)

[forte78]

Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/processlogin.asp, line 39

[michele.santoro]

Manca la parentesi finale

Response.Redirect("prenota.asp?cod=" & cstr(cod))

[forte78]

un annotazione

l'errore è qua

SQL="SELECT * FROM tabella1 WHERE id="&cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL) QUI


Grazie

[michele.santoro]

Se non sbaglio tu hai chiuso la connessione al db

.....
cn.Close
.....
Set cn = Nothing


e stai facendo una query senza aver aperto la connessione

SQL="SELECT * FROM tabella1 WHERE id="&cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

[forte78]

funzia grazie

[michele.santoro]

Prego!