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