<!--#INCLUDE FILE="../inc_sha256.asp"-->
<!--#INCLUDE FILE="../dataconn_inc.asp"-->
<%
' Use this routine to encrypt text passwords
strSQL = "Select ID, Passwords from Users_Table"
Set objRS = ConnPasswords.Execute(strSQL)

Do While NOT objRS.EOF
	ID = objRS("ID")
	strSQL = "Update Users_Table Set password='" & sha256("" & objRS("Password")) & "' Where ID='" & ID & "'"
	'Response.Write strSQL
	Set objTempRS = Connpasswords.Execute(strSQL)
	objRS.MoveNext
Loop

Set objTempRS = Nothing
Set ObjRS = Nothing
Set ConnPasswords = Nothing
%>