<% pass1 = Request.Form ("password") email1 = Request.Form ("login") Npass = Request.Form ("Npassword") NCpass = Request.Form ("NCpassword") pass1 = replace(pass1 ,"'","") email1 = replace(email1 ,"'","") Npass = replace(Npass ,"'","") NCpass = replace(NCpass ,"'","") pass1 = replace(pass1 ,"<","") email1 = replace(email1 ,"<","") Npass = replace(Npass ,"<","") NCpass = replace(NCpass ,"<","") tttt= Request.Form ("I2.x") if tttt <> "" then dim objConnMEM Dim DBViewMEM pr=server.MapPath("member.mdb") pr = pathDB & "member.mdb" set objConnMeM = server.CreateObject("ADODB.connection") objConnMEM.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConnMEM.Open set DBViewMEM = Server.CreateObject("ADODB.Recordset") sqlquery ="select * from tab1 where Email ='" & email1 & "'" DBViewMEM.Open sqlquery , objConnMEM , 3,3 'DBViewMEM.MoveFirst Co= "#DD0000" if not(DBViewMEM.eOF) then ttt=DBViewMEM.Fields("Password") 'password if ttt= pass1 then if Npass = NCpass then if Npass <> "" then DBViewMEM.Fields("Password") = Npass DBViewMEM.Update Co= "#006600" amarSave "ChangePass" & email1 & "_" & Npass mesag= " Your password changhed Successfully For " & email1 else mesag= " Your New password is Empty" end if else mesag= " Your Confirm password is no match" end if else mesag= " Your pass word is wrong you can use Forget pssword" end if else mesag = "Your email not registered use the Sing Up for register it easly?" end if %> <% DBViewMEM.Close set DBViewMEM = Nothing objConnMEM.Close set objConnMEM = Nothing end if %>

Sing in (Email Address)

Old Password

New Password

Confirm Password

Sing Up (New Account) Forget Your Password ><%= Mesag %>