<% if session("FirstName") <> "" then Response.Redirect "AdminList_invois_moshtary.asp" end if %>

 

 

 

 

<% pass1 = Request.Form ("password") email1 = Request.Form ("login") pass1 = replace(pass1 ,"'","") email1 = replace(email1 ,"'","") pass1 = replace(pass1 ,"<","") email1 = replace(email1 ,"<","") tttt= Request.Form ("I3.x") if tttt <> "" then %> <%' = "dfslkdklsjlkdjflksdjflksdjflksdjfd" %> <% 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 Co= "#006600" mesag= " You are login Now with " & email1 session("FirstName")=DBViewMEM.Fields("FirstName") session("LastName")=DBViewMEM.Fields("LastName") session("State") = DBViewMEM.Fields("State") session("ZipCode") = DBViewMEM.Fields("ZIPCode") session("Code") = DBViewMEM.Fields("Code") 'Response.Redirect Request.ServerVariables("HTTP_REFERER") Response.Redirect "AdminList_invois_moshtary.asp" 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 %>
Sign in (Email Address)  
Password


Sign Up (New Account)

Forget Your Password

Change Your Password

><%= Mesag %>