Salve a tutti ...
ho questo codice di seguito incollato che nasce per sostituire le password presenti in un database con delle nuove e più sicure password generate con randomize.
In pratica il codice non mi da errori solo che invece di scrivermi le pass (che sono correttamente generate e visualizzate a video) nel database mi ci scrive solo quella dell'ultimo record.
Qualche idea su cosa nn vada nella logica della pagina ?
Grazie in anticipo a chi volesse cimentarsi nel darmi aiuto...
ho questo codice di seguito incollato che nasce per sostituire le password presenti in un database con delle nuove e più sicure password generate con randomize.
In pratica il codice non mi da errori solo che invece di scrivermi le pass (che sono correttamente generate e visualizzate a video) nel database mi ci scrive solo quella dell'ultimo record.
Qualche idea su cosa nn vada nella logica della pagina ?
Grazie in anticipo a chi volesse cimentarsi nel darmi aiuto...
Codice:
<% session("referer")= session("pagina")
session("pagina")= "http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("PATH_INFO")&"?"&request.QueryString()
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/database/miodb.mdb")
%>
Dim caratteri, passgen, carattere, ecc. ecc.
SQL = " SELECT * FROM Utenti Where Confermato=true "
'Set RS = Conn.Execute (SQL)
Set RS = server.createobject("adodb.recordset")
RS.Open sql, Conn, 2, 2
If Not RS.EOF Then RS.MoveFirst
Do While Not RS.EoF
ID = RS("ID")
Nome = RS("Nome")
ecc. ecc.
UserID=RS("UserID")
Password=RS("Password")
Confermato=RS("Confermato")
response.Write("La vecchia pass è : ")
response.Write RS("Password")
caratteri = "0123456789abcdefghijklmnopqrstuvwxyz"
Randomize ' inizializza il generatore di numeri casuale
Do Until len(passgen) = 10 ' qui imposti la lunghezza della password
carattere = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e z.
passgen = passgen & Mid(caratteri,carattere,1)
Loop
Password=passgen
response.Write(" La nuova pass random è: ")
response.Write(Password)
response.Write("<br>")
passgen=0000000000
rs.update
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'Conn.Execute sql
'Conn.Close
'Set Conn = Nothing
SQL = " UPDATE Utenti Set Nome = '" & Nome & "', Cognome = '" & Cognome & "', Via = '" & Via & "', Civico = '" & Civico & "', CAP = '" & CAP & "', Citta = '" & Citta & "', Provincia = '" & Provincia & "', Stato = '" & Stato & "', Telefono = '" & Telefono & "', RagioneSociale = '" & RagioneSociale & "', CodiceFiscale = '" & CodFiscale & "', PartitaIva = '" & PIva & "', Mail = '" & EMail & "', Password = '" & Password & "', UserID = '" & UserID & "' , Confermato = " & Confermato & " , Rivenditore = " & Rivenditore & " WHERE ID = " & id
Conn.Execute(SQL)
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
