<% if CLng(session("IDUser"))=0 then Autorise = false else Autorise = true end if if Request.Form("save")="yes" then if (not Autorise) then Dim SQLServ_DSN, SQLServ_Host, SQLServ_UserName, SQLServ_Password, SQLServ_Database SQLServ_Host = ".\SQLEXPRESS2" SQLServ_UserName = "sa" SQLServ_Password = "GT45x59" SQLServ_Database = "CORAMUC" SQLServ_DSN = "driver={SQL Server}; server="& SQLServ_Host &";uid="& SQLServ_UserName &"; pwd="& SQLServ_Password &";database="& SQLServ_Database &"" Dim oCOnn, oRS, sSQL Set oConn = DBOpenConnection() XssDetection() Identifiant = Trim(Request.Form("identifiant")) MotdePasse = Trim(Request.Form("motdepasse")) sSQL = "SELECT IDAdherent FROM Adherents WHERE ((Email = '" & Identifiant & "') AND (MotDePasse = '" & MotdePasse & "'))" On Error Resume Next Set ORS = oConn.execute(sSQL) If Err <> 0 Then oRS.close oConn.close() Else If oRS.EoF then oRS.close oConn.close() Else IDUser = oRS.Fields("IDAdherent") session.TimeOut = 60 session("IDUser") = IDUser oRS.close oConn.close() Autorise = true End If End if Err.clear end if end if %> documentation adherents


 
Soutenez la proposition de loi de la CORAMUC, en signant la pétition  



 

 

 

<% if (not Autorise) then %>

Bienvenue sur votre espace adhérent Coramuc

Cette partie de documentation
est réservée exclusivement aux adhérents de la Coramuc

<% if Request.Form("save")="yes" then %>

Identifiant ou Mot de Passe Incorrect

<%end if%>

 Identifiant : 
 Mot de Passe : 
 
  

vous trouverez vos identifiants sur votre carte d'adhérent:
Identifiant = Adresse Email
Mot de passe =
code Info

Besoin d'aide pour vous identifier? Cliquez ici


<% else %> <% end if %>