It is real problem .. plz help me

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   i ahve a database SQL ... one table have three fields .. one of this fields to store a password .. 
that field is empty now , just i have the first and second fields .. so i need to fill the password field with value .. 
i wrote script to generate password random .. and i wrote also script to query the table and update password field but it is not working right .. it put the same vlaue in all fields .. 
plz see the script and help me to correct it :
set rs =server.CreateObject("adodb.recordset")
sql = " select * from users order by id " 
rs.Open sql,conn 
if not rs.EOF then 
while not rs.EOF 
cpr = rs("cpr") 
deg = rs("degree_id") 
strEncryptedPassword = cpr&deg
strEncryptedPassword = HashEncode(strEncryptedPassword) 
data = mid(strEncryptedPassword,10,8) 
set rsup = server.CreateObject("adodb.recordset") 
sql1 = " update users set pw = '"&data&"' " 
rsup.Open sql1,conn 
rs.MoveNext 
wend 
end if

plz plz plz help me<%
set rs =.Create("adodb.recordset")
sql = "  * from users order by id "
rs.Open sql,conn
if not rs.EOF then
while not rs.EOF 
cpr = rs("cpr")
deg = rs("degree_id")
strEncrypted = cpr°
strEncrypted = HashEncode(strEncrypted)
 = mid(strEncrypted,10,8)
Response.Write 
set rsup = .Create("adodb.recordset")
sql1 = " update users set pw = '"&&"' "
rsup.Open sql1,conn
rs.MoveNext
wend
end if
%>