<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valnum_licence=CStr(Request.Form("num_licence"))
If MM_valnum_licence <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="logs.asp"
MM_redirectLoginFailed="loginfailed.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_pos_STRING
MM_rsUser.Source = "SELECT U_ID, U_PASSWORD"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM tbl_clients WHERE U_ID='" & Replace(MM_valnum_licence,"'","''") &"' AND U_PASSWORD='" & Replace(Request.Form("Password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_num_licence") = MM_valnum_licence
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
Société Pos-industry, Accueil
Constituées
d’Ingénieurs et de Techniciens de spécialités
complémentaires,
nos équipes sont en mesure de couvrir :
L’automatisation des procédés manufacturiers L'étude
d'installations industrielles Le
contrôle commande des process continus ou batch L’électricité
(haute et moyenne tension)
L’instrumentation et l'’installation
L’informatique industrielle
La mise en service d’installation industrielle .
Le conseil en ingénierie de maintenance
L’automatisation des procédés manufacturiers
