%@Import NameSpace="System.Data.SqlClient" %>
<%@Import NameSpace="System.Collections.Generic" %>
<%@ Register TagPrefix="fup" Namespace="OboutInc.FileUpload" Assembly="obout_FileUpload" %>
<%Dim M_Statut as string
Dim M_user,M_NomUser,M_TypeUser,M_IdCieUser,M_LangueUser,M_access
'*** COOKIE / SESSION ***
If Not Request.Cookies("sessionCLP") Is Nothing Then
M_User = Server.HtmlEncode(Request.Cookies("sessionCLP")("User"))
M_NomUser = Server.HtmlEncode(Request.Cookies("sessionCLP")("NomUser"))
M_TypeUser = Server.HtmlEncode(Request.Cookies("sessionCLP")("TypeUser"))
M_IdCieUser = Server.HtmlEncode(Request.Cookies("sessionCLP")("IdCie"))
M_LangueUser = Server.HtmlEncode(Request.Cookies("sessionCLP")("Langue"))
M_access = Server.HtmlEncode(Request.Cookies("sessionCLP")("Access"))
Else
Response.Redirect ("erreur_session.asp")
End If
'Response.Write ("" & M_LangueUser & "
")
'*** FIN COOKIE / SESSION ***
%>