Subversion Repositories DevTools

Rev

Rev 1499 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1499 Rev 3928
Line 36... Line 36...
36 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 36 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37
37
38 
	'update fields
 38 
	'update fields
39 
	rsTemp.Edit
 39 
	rsTemp.Edit
40 
	rsTemp.Fields("user_password").Value = EnCrypt(SSpassword)
 40 
	rsTemp.Fields("user_password").Value = EnCrypt(SSpassword)
41 
	rsTemp.Fields("domain_auth").Value = "N"
 41 
	rsTemp.Fields("domain").Value = NULL
42 
	rsTemp.Update
 42 
	rsTemp.Update
43
43
44 
	rsTemp.Close
 44 
	rsTemp.Close
45 
	Set rsTemp = nothing
 45 
	Set rsTemp = nothing
46 
End Sub
 46 
End Sub