ciao a tutti, nn prendetemi a calci....
codice:
<%
Dim nome_ut
Dim pass

nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/utenti.mdb")
Dim sql
sql = "SELECT ID FROM uvs_utenti WHERE nomeutente='" &nome_ut& "' AND password='" &pass& "'"
       
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

if autenticato = true then
  Session("Autenticato") = "OK"
  Session("livelloUtente")=rs("livelloUtente")  [linea 30]
  Session("nominativo")=rs("nominativo")

  Response.Write("/login/publisher.asp")
else
  Response.Redirect("/login/check_user.asp")
end if
%>
Se autenticato = vero
setta autenticato = ok (fin qui funge)
setta livelloUtente = livelloUtente (su dbase valori numerici 1-2-3-4)
setta nominativo = nominativo (su dbase musica,cinema,eventi)

Errore
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente
/login/login.asp, line 30


Grazie