• Home
 · 
• Miscellaneous
 · 
• Sample ASP code for allowing a user to modify their password.

Sample ASP code for allowing a user to modify their password.

Sample ASP code for allowing a user to modify their password.

Rate Sample ASP code for allowing a user to modify their password.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

<%option explicit%>

<%
	dim item
	dim NewPassWord
	dim OldPassWord
	dim Email
	dim ConfirmPassWord
	dim SetPassWord
	dim PassWord
	dim oRs
	dim Connection
	dim vSql
	dim Updated
	dim strConn
	Updated=False
	
	for each item in Request.Form 
		if item="e_mail" then
			Email=Request.Form(Item)
		end if
		if item="OldPassWord" then
			OldPassWord=Request.Form(Item)
		end if
		if item="NewPassWord" then
			NewPassWord=Request.Form(Item)
		end if
		if item="ConfirmPassWord" then
			ConfirmPassWord=Request.Form(Item)
		end if
	next
	
	if NewPassWord<>ConfirmPassWord then
		Response.Redirect "ChangePassWord.asp"
	end if	

	set connection=Server.CreateObject("AdoDB.Connection")
	Connection.Open  "DSN=DbsName;uid=Admin;pwd="                
   	set oRS=Server.CreateObject("AdoDB.RecordSet")
   	
	vSql = "SELECT Email,Passwd from Account" & _
            " WHERE Email='" & Email & "'"
     Connection.BeginTrans 
	oRs.Open vsql,connection, adOpenDynamic ,adLockOptimistic 	
        
        If oRs.EOF <> True Then
            If oRs("PassWd") = OldPassWord Then
                oRs("PassWd") = NewPassWord
                oRs.Update                
                Updated=True
            End If
        End If
        oRs.Close	
        Connection.CommitTrans 

    set oRs=Nothing
    Connection.Close 
    Set Connection=nothing
%>