risolto copia questo codice:
codice:'### imposta la variabile usata da FLASH come controllo strCheck = "NO" '### apre la connessione con il DB set dataConn = server.createobject("adoDB.connection") dataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strFile '### estrae la password dell'utente dal DB (se esiste) Set rs = Server.CreateObject("adoDb.recordset") rs.open "SELECT * FROM utenti WHERE Usern='" & strID & "'", dataConn, 1, 3 '### verifica la password del DB con quella passata da FLASH e conta gli accessi If Not rs.EOF Then if strcomp(strPWD ,rs.fields("Password"),1)=0 then strCheck = "OK" '### se la password corrisponde session("idamm")= rs.fields("idamm")'### se la password corrisponde End If End If '### chiude la connessione con il DataBase rs.close Set rs = nothing dataConn.close Set dataConn = nothing '### restituisce il responso a FLASH Response.Write "check=" & strCheck %>efammi sapere se funziona

efammi sapere se funziona
Rispondi quotando