<% 'pass1 = Request.Form ("password") 'pass1 = replace(pass1 ,"<","") 'pass1 = replace(pass1,"'","") email1 = Request.Form ("login") email1 = replace(email1 ,"<","") email1 = replace(email1,"'","") 'Npass = Request.Form ("Npassword") 'NCpass = Request.Form ("NCpassword") 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" mesag= " Your password changhed successfuly 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 sign Up for register it easly?" end if %> <% DBViewMEM.Close set DBViewMEM = Nothing objConnMEM.Close set objConnMEM = Nothing end if %> sign In (Email Address)   sign Up (New Account)><%= Mesag %>