<%
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
<%
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%>
vous
trouverez vos identifiants sur votre carte d'adhérent: Identifiant
= Adresse
Email
Mot de passe =
code
Info
