% myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" %> <% mydsn = mydsn & "DBQ=" & request.servervariables(4) & "database543\Devis.mdb" %> <% set conn1 = server.createobject("adodb.connection") %> <% conn1.open myDSN %> <% sql = "select Maintenance from Parametre where Parms='Master'" %> <% set rs = conn1.execute(sql) %> <% If rs.Fields("Maintenance").Value = true Then %> <% End If %> <% Session("Langue") = "FR" %> <% If Session("Langue") = "" Then %> <% if Request.QueryString("From") = "acier.html" Then %> <% Session("Langue") = "FR" %> <% Else %> <% Session("Langue") = "EN" %> <% End If %> <% End If %> <% If request.QueryString("Quitter") = "Quit" Then %> <% Session("AccountType") = "" %> <% Session("Compte") = "" %> <% 'Session("Langue") = "" %> <% If Session("Langue") = "FR" Then %> <% Response.Redirect "/fr/acier.html" %> <% End If %> <% If Session("Langue") = "EN" Then %> <% Response.Redirect "/en/steel.html" %> <% End If %> <% End If %> <% if Session("Compte") <> "" Then %> <% Response.Redirect "Menu.asp" %> <% End If %> <% If request.QueryString("Compte") <> "" Then %> <% 'dim conn, rs %> <% myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" %> <% mydsn = mydsn & "DBQ=" & request.servervariables(4) & "database543\Devis.mdb" %> <% set conn = server.createobject("adodb.connection") %> <% conn.open myDSN %> <% LoginInvalide = false %> <% LoginPassword = true %> <% sql = "select * from Comptes where Compte='" & Request.QueryString("Compte") & "'" %> <% set rs = conn.execute(sql) %> <% If Not rs.EOF Then %> <% If rs.Fields("Password").Value = Request.QueryString("Password") then %> <% Session("AccountType") = rs.Fields("Type").Value %> <% Session("Compte") = rs.Fields("Compte").Value %> <% Response.Redirect "Menu.asp" %> <% Else %> <% LoginPassword = false %> <% End If %> <% Else %> <% LoginInvalide = true %> <% End If %> <% End If %>