It is real problem .. plz help me
Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Database Discussion
Forum Description: Discussion and chat on database related topics.
URL: https://forums.webwiz.net/forum_posts.asp?TID=16601
Printed Date: 28 March 2026 at 9:01am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com
Topic: It is real problem .. plz help me
Posted By: bogy50
Subject: It is real problem .. plz help me
Date Posted: 18 September 2005 at 7:19am
|
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°
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
%> |