<% 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 %>
<% If Session("Langue") = "FR" Then %> <% End If %> <% If Session("Langue") = "EN" Then %> <% End If %>
  <% If Session("Langue") = "FR" Then %>acier<% End If%> <% If Session("Langue") = "EN" Then %>acier<% End If%>

<% If Session("Langue") = "FR" Then %>

Soumission pour réservoir

<%End If%> <% If Session("Langue") = "EN" Then %>

System for tank's quotation

<%End If%>
<% If Session("Langue") = "FR" Then %>

Compte    <% End If %> <% If Session("Langue") = "EN" Then %>

Account    <% End If %>

 ">
<% If Session("Langue") = "FR" Then %>

 Mot de passe     <% End If %> <% If Session("Langue") = "EN" Then %>

 Password     <% End If %>

 ">


<% if (Request.QueryString("From") <> "acier.html" and Request.QueryString("From") <> "steel.html") and Request.QueryString("Compte") = "" and Request.QueryString("Request")="" then %> <% If Session("Langue") = "FR" Then %>

S.V.P.  Saisir un compte !

<%End If%> <% If Session("Langue") = "EN" Then %>

Please enter an account !

<%End If%> <% End If %> <% if LoginInvalide = True Then %> <% If Session("Langue") = "FR" Then %>

Ce compte est inexistant !

<%End If%> <% If Session("Langue") = "EN" Then %>

This account does not exist !

<%End If%> <% End If %> <% if LoginPassword = false and request.QueryString("Compte") <> "" Then %> <% If Session("Langue") = "FR" Then %>

Ce mot de passe n'est pas valide !
<%End If%> <% If Session("Langue") = "FR" Then %>

Password not valid !
<%End If%>
<% End If %>