<% Dim SQLServ_DSN, SQLServ_Host, SQLServ_UserName, SQLServ_Password, SQLServ_Database SQLServ_Host = "BACKUP\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 XssDetection() if CLng(session("IDUser"))=0 then Autorise = false else Autorise = true end if Modification = false function GetActivite(sIDActivite) sSQL2 = "SELECT * FROM Adherents_Activites WHERE IDActivite='" & sIDActivite & "' AND IDAdherent='" & IDUser & "'" Set oRS2 = oConn.execute(sSQL2) If not oRS2.EoF then Resultat = "checked" else Resultat = "" End if GetActivite = Resultat oRS2.Close() end function if Request.Form("save")="yes" then if (not Autorise) then Set oConn = DBOpenConnection() 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 if (Autorise) then Set oConn = DBOpenConnection() IDUser = session("IDUser") On Error Resume Next if Request.Form("save2")="" then sSQL = "SELECT * FROM Adherents WHERE IDAdherent='" & IDUser & "' AND Statut='1'" set oRS = oConn.Execute(sSQL) IF not oRS.EoF then IDTypeAdhesion = oRS.fields("IDTypeAdhesion") IDOrganisme = oRS.fields("IDOrganisme") Civilite = oRS.fields("Civilite") Nom = oRS.fields("Nom") Prenom = oRS.fields("Prenom") Adresse = oRS.fields("Adresse") Complement = oRS.fields("Complement") CodePostal = oRS.fields("CodePostal") Ville = oRS.fields("Ville") Pays = oRS.fields("Pays") DateNaissance = oRS.fields("DateNaissance") Telephone = Replace(oRS.fields("Telephone"),"....","") Portable = Replace(oRS.fields("Portable"),"....","") TelephoneBureau = Replace(oRS.fields("TelephoneBureau"),"....","") Email = oRS.fields("Email") EmailSecours = oRS.fields("EmailSecours") IDParent = oRS.fields("IDParent") Numero = oRS.Fields("Numero") End if oRS.close() sSQL = "SELECT * FROM Adherents_Activites WHERE IDAdherent='" & IDUser & "' AND AutreActivite<>''" set oRS = oConn.Execute(sSQL) IF not oRS.EoF then AutreActivite = oRS.fields("AutreActivite") else AutreActivite = "" End if else ' enregistrement de la fiche sSQL = "INSERT INTO Tmp_Adherents (IDAdherent, DateNaissance, Adresse, Complement, CodePostal, Ville, Pays, Telephone, TelephoneBureau, Portable, " sSQL = sSQL & "Email, EmailSecours, MajFiche, Responsable, Responsable_Email, FormeJuridique, Activite, Nbre_Pers, JO_Numero, JO_Date, Siege_Adresse, Siege_Complement, Siege_CodePostal, " sSQL = sSQL & "Siege_Ville, Siege_Pays, President, President_Telephone, President_Email, Secretaire, Secretaire_Telephone, Secretaire_Email, Tresorier, Tresorier_Telephone, Tresorier_Email, " sSQL = sSQL & "Referant_Nom, Referant_Regional, Referant_Departemental, Referant_Telephone, Referant_Email, ContactPriv_Nom, ContactPriv_Fonction, ContactPriv_Telephone, ContactPriv_Portable, " sSQL = sSQL & "ContactPriv_Fax, ContactPriv_Email, Contact2_Nom, Contact2_Fonction, Contact2_Telephone, Contact2_Portable, Contact2_Fax, Contact2_Email, Contact3_Nom, Contact3_Fonction, Contact3_Telephone, " sSQL = sSQL & "Contact3_Portable, Contact3_Fax, Contact3_Email, Contact4_Nom, Contact4_Fonction, Contact4_Telephone, Contact4_Portable, Contact4_Fax, Contact4_Email, AutreActivite, Commentaires) VALUES (" sSQL = sSQL & "'" & IDUser & "', " sSQL = sSQL & "N'" & Replace(Request.Form("DateNaissance"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Adresse"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Complement"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("CodePostal"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Ville"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Pays"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("TelephoneBureau"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Portable"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("EmailSecours"),"'","''") & "', " sSQL = sSQL & "'" & Now() & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Responsable"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Responsable_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("FormeJuridique"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Activite"),"'","''") & "', " sSQL = sSQL & "'" & Request.Form("Nbre_Pers") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("JO_Numero"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("JO_Date"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Siege_Adresse"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Siege_Complement"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Siege_CodePostal"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Siege_Ville"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Siege_Pays"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("President"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("President_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("President_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Secretaire"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Secretaire_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Secretaire_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Tresorier"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Tresorier_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Tresorier_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Referant_Nom"),"'","''") & "', " if (Request.Form("Referant_Regional")="1") then sSQL = sSQL & "'True', " else sSQL = sSQL & "'False', " end if if (Request.Form("Referant_Departemental")="1") then sSQL = sSQL & "'True', " else sSQL = sSQL & "'False', " end if sSQL = sSQL & "N'" & Replace(Request.Form("Referant_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Referant_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("ContactPriv_Nom"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("ContactPriv_Fonction"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("ContactPriv_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("ContactPriv_Portable"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("ContactPriv_Fax"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("ContactPriv_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact2_Nom"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact2_Fonction"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact2_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact2_Portable"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact2_Fax"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact2_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact3_Nom"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact3_Fonction"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact3_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact3_Portable"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact3_Fax"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact3_Email"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact4_Nom"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact4_Fonction"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact4_Telephone"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact4_Portable"),"'","''") & "', " sSQL = sSQL & "N'" & Replace(Request.Form("Contact4_Fax"),"'","''") & "', " ssQL = sSQL & "N'" & Replace(Request.Form("Contact4_Email"),"'","''") & "', " ssQL = sSQL & "N'" & Replace(Request.Form("Activites"),"'","''") & ":" & Replace(Request.Form("AutreActivite"),"'","''") & "'," ssQL = sSQL & "N'" & Replace(Request.Form("Commentaires"),"'","''") & "')" oConn.Execute(sSQL) Modification = true Dim textFile, inStream, Mailer, Message, fileObject Dim Email Message = "" blnSuccess = True ' Envoi des emails Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "mail.perfea.fr" Mailer.From = "secretariat@coramuc.fr" Mailer.FromName = "Coramuc" Mailer.AddAddress "secretariat@coramuc.fr" Mailer.AddAddress "philippepaca@coramuc.fr" Mailer.AddAddress "secretariat2@coramuc.fr" Mailer.Subject = "Mise à jour d'un compte" 'Mailer.Username = SMTP_Account 'Mailer.Password = SMTP_Password Mailer.isHTML = true message = message & "Bonjour,
" message = message & Server.HTMLEncode(Request.Form("Nom")) & " " & Server.HTMLEncode(Request.Form("Prenom")) & " (Adhérent N°"& Server.HTMLEncode(Request.Form("Numero")) & ") a mis à jour son compte." & "

" message = message & "Posté le : " & CStr(Date) & " a " & CStr(Time) & "
" Mailer.Body = Message On Error Resume Next Mailer.Send If Err <> 0 Then blnSuccess=false End if Err.clear Set Mailer = Nothing end if Err.Clear oRS.Close() if (IDOrganisme<>"") then sSQL = "SELECT * FROM Organismes WHERE IDOrganisme='" & IDOrganisme & "'" set oRS = oConn.Execute(sSQL) IF not oRS.EoF then Responsable = oRS.Fields("Responsable") ResponsableEmail = oRS.Fields("ResponsableEmail") Association = oRS.Fields("RaisonSociale") RaisonSociale = oRS.Fields("RaisonSociale") FormeJuridique = oRS.Fields("FormeJuridique") Activite = orS.fields("Activite") Nbre_Pers = oRS.fields("Nbre_Pers") JO_Numero = oRS.Fields("JO_Numero") JO_Date = oRS.Fields("JO_Date") Siege_Adresse = oRS.Fields("Siege_Adresse") Siege_Complement = oRS.Fields("Siege_Complement") Siege_CodePostal = oRS.Fields("Siege_CodePostal") Siege_Ville = oRS.Fields("Siege_Ville") Siege_Pays = oRS.Fields("Siege_Pays") President = oRS.Fields("President") President_Telephone = Replace(oRS.Fields("President_Telephone"),"....","") President_Email = oRS.Fields("President_Email") Secretaire = oRS.Fields("Secretaire") Secretaire_Telephone = Replace(oRS.Fields("Secretaire_Telephone"),"....","") Secretaire_Email = oRS.Fields("Secretaire_Email") Tresorier = oRS.Fields("Tresorier") Tresorier_Telephone = Replace(oRS.Fields("Tresorier_Telephone"),"....","") Tresorier_Email = oRS.Fields("Tresorier_Email") Referant_Nom = oRS.Fields("Referant_Nom") Referant_Regional = CBool(oRS.Fields("Referant_Regional")) Referant_Departemental = CBool(oRS.Fields("Referant_Departemental")) Referant_Telephone = Replace(oRS.Fields("Referant_Telephone"),"....","") Referant_Email = oRS.Fields("Referant_Email") ContactPriv_Nom = oRS.Fields("ContactPriv_Nom") ContactPriv_Fonction = oRS.Fields("ContactPriv_Fonction") ContactPriv_Telephone = Replace(oRS.Fields("ContactPriv_Telephone"),"....","") ContactPriv_Portable = Replace(oRS.Fields("ContactPriv_Portable"),"....","") ContactPriv_Fax = Replace(oRS.Fields("ContactPriv_Fax"),"....","") ContactPriv_Email = oRS.Fields("ContactPriv_Email") Contact2_Nom = oRS.Fields("Contact2_Nom") Contact2_Fonction = oRS.Fields("Contact2_Fonction") Contact2_Telephone = Replace(oRS.Fields("Contact2_Telephone"),"....","") Contact2_Portable = Replace(oRS.Fields("Contact2_Portable"),"....","") Contact2_Fax = Replace(oRS.Fields("Contact2_Fax"),"....","") Contact2_Email = oRS.Fields("Contact2_Email") Contact3_Nom = oRS.Fields("Contact3_Nom") Contact3_Fonction = oRS.Fields("Contact3_Fonction") Contact3_Telephone = Replace(oRS.Fields("Contact3_Telephone"),"....","") Contact3_Portable = Replace(oRS.Fields("Contact3_Portable"),"....","") Contact3_Fax = Replace(oRS.Fields("Contact3_Fax"),"....","") Contact3_Email = oRS.Fields("Contact3_Email") Contact4_Nom = oRS.Fields("Contact4_Nom") Contact4_Fonction = oRS.Fields("Contact4_Fonction") Contact4_Telephone = Replace(oRS.Fields("Contact4_Telephone"),"....","") Contact4_Portable = Replace(oRS.Fields("Contact4_Portable"),"....","") Contact4_Fax = Replace(oRS.Fields("Contact4_Fax"),"....","") Contact4_Email = oRS.Fields("Contact4_Email") end if oRS.Close() end if if (IDParent<>"") then sSQL = "SELECT Nom, Prenom FROM Adherents WHERE IDAdherent='" & IDParent & "' " set oRS = oConn.Execute(sSQL) IF not oRS.EoF then Parent = oRS.Fields("Nom") & " " & oRS.Fields("Prenom") end if oRS.Close() end if end if %> mon compte adhérent


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

 

Bienvenue sur votre espace adhérent Coramuc

"Mon Compte" vous permet de mettre à jour votre fiche adhérent
 24h/24H et 7 jours sur 7 en toute sécurité

Modifiez votre adresse, vos téléphones, vos adresses Email, etc...

 

 

 

 


<% if Modification then %>

La modification de vos coordonnées a été prise en compte !!!

Elle sera effective et visible dans votre page "Mon compte" d'ici quelques jours.

Retour à l'accueil de la CORAMUC

<%else%> <% if (not Autorise) then %> <% 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%>

Bonjour <%=Nom%> <%=Prenom%>, bienvenue sur votre compte adhérent.

Les informations ci-dessous sont les informations que vous avez communiqué à la Coramuc lors de votre adhésion.
Vous pouvez mettre à jour ces renseignements si ces derniers ont changé et également compléter des renseignements manquants.

Nous vous rappelons que l'ensemble de la communication de la Coramuc se fait principalement par Email.

Il est donc très important de tenir à jour votre fiche adhérent notamment dans le cas d'un changement d'adresse Email.

Votre N° d'adhérent : <%=Numero%>

<% if IDTypeAdhesion="2" then %>
  • Civilité<%=Civilite%>
  • Date Naissance (ex : JJ/MM/AAAA)
  • Nom<%=Nom%>
  •  
  • Prénom<%=Prenom%>
  • Téléphone
  • Adresse 1
  • Portable
  • Adresse 2
  • Téléphone Bureau
  • Code Postal
  • Email Principal
  • Ville
  • Email de Secours
  • Pays
<% end if %> <% if IDTypeAdhesion="3" then %>
  • Association<%=Association%>
  • Date Naissance (ex : JJ/MM/AAAA)
  •  
  •  
  • Civilité<%=Civilite%>
  • Téléphone
  • Nom<%=Nom%>
  • Portable
  • Prénom<%=Prenom%>
  • Téléphone Bureau
  • Adresse 1
  • Email Principal
  • Adresse 2
  • Email de Secours
  • Code Postal
  •  
  • Ville
  •  
  • Pays
<% end if %> <% if IDTypeAdhesion="4" or IDTypeAdhesion="5" then %>
  • Nom<%=Nom%>
  •  
  •  
  •  
  • J.O. (Numéro)
  • J.O. (Date) (ex : JJ/MM/AAAA)
  •  
  •  
  • Adresse 1 (Siège)
  • Téléphone
  • Adresse 2 (Siège)
  • Téléphone Bureau
  • Code Postal (Siège)
  • Portable
  • Ville (Siège)
  • Email Principal
  • Pays (Siège)
  • Email de Secours
  •  
  •  
  • Président
  • Secretaire
  • Président (Téléphone)
  • Secretaire (Téléphone)
  • Président (Email)
  • Secretaire (Email)
  •  
  •  
  • Trésorier
  •  
  • Trésorier (Téléphone)
  •  
  • Trésorier (Email)
<% end if %> <% if IDTypeAdhesion="6" then %>
  • Raison Sociale<%=RaisonSociale%>
  • Forme Juridique
  • Activité
  • Nbre Salarié
  •  
  •  
  • Responsable
  • Responsable (Email)
  •  
  •  
  • Adresse 1 (Siège)
  • Tél. (Responsable)
  • Adresse 2 (Siège)
  • Téléphone Bureau
  • Code Postal (Siège)
  • Portable
  • Ville (Siège)
  • Email Principal
  • Pays (Siège)
  • Email de Secours
<% end if %> <% if IDTypeAdhesion="7" then %>
  • Professionnel<%=Association%>
  • Date Naissance (ex : JJ/MM/AAAA)
  •  
  •  
  • Civilité<%=Civilite%>
  • Téléphone
  • Nom<%=Nom%>
  • Portable
  • Prénom<%=Prenom%>
  • Téléphone Bureau
  • Adresse 1
  • Email Principal
  • Adresse 2
  • Email de Secours
  • Code Postal
  •  
  • Ville
  •  
  • Pays
<% end if %> <% if IDTypeAdhesion="8" then %>
  • Nom<%=Nom%>
  •  
  •  
  •  
  • J.O. (Numéro)
  • J.O. (Date) (ex : JJ/MM/AAAA)
  •  
  •  
  • Adresse 1 (Siège)
  • Téléphone
  • Adresse 2 (Siège)
  • Téléphone Bureau
  • Code Postal (Siège)
  • Portable
  • Ville (Siège)
  • Email Principal
  • Pays (Siège)
  • Email de Secours
  •  
  •  
  • Président
  • Secretaire
  • Président (Téléphone)
  • Secretaire (Téléphone)
  • Président (Email)
  • Secretaire (Email)
  •  
  •  
  • Trésorier
  • Référant
  • Trésorier (Téléphone)
  • Référant régionalchecked<%end if%>> OUI     checked<%end if%>> NON
  • Trésorier (Email)
  • Référant départementalchecked<%end if%>> OUI     checked<%end if%>> NON
  •  
  • Référant (Tél.)
  •  
  • Référant (Email)
<% end if %> <% if IDTypeAdhesion="12" then %>
  • Structure<%=Association%>
  • Parent<%=Parent%>
  •  
  • Date Naissance (ex : JJ/MM/AAAA)
  • Civilité<%=Civilite%>
  •  
  • Nom<%=Nom%>
  • Téléphone
  • Prénom<%=Prenom%>
  • Portable
  • Adresse 1
  • Téléphone Bureau
  • Adresse 2
  • Email Principal
  • Code Postal
  • Email de Secours
  • Ville
  •  
  • Pays
<% end if %> <% if IDTypeAdhesion="13" then %>
  • Nom<%=Nom%>
  •  
  •  
  •  
  • Adresse 1 (Siège)
  • Téléphone
  • Adresse 2 (Siège)
  • Téléphone Bureau
  • Code Postal (Siège)
  • Portable
  • Ville (Siège)
  • Email Principal
  • Pays (Siège)
  • Email de Secours
  •  
  •  
  • Contact Privilégié
  • Contact 2
  • Fonction
  • Fonction
  • Téléphone
  • Téléphone
  • Portable
  • Portable
  • Fax
  • Fax
  • Email
  • Email
  •  
  •  
  • Contact 3
  • Contact 4
  • Fonction
  • Fonction
  • Téléphone
  • Téléphone
  • Portable
  • Portable
  • Fax
  • Fax
  • Email
  • Email
<% end if %>
  • Activités
  • <% sSQL = "SELECT * FROM Activites ORDER BY Intitule ASC" Set oRS = oConn.execute(sSQL) If not oRS.eoF then Do while not oRS.EoF %> " <%=GetActivite(oRS.Fields("IDActivite"))%> /> <% oRS.MoveNext Loop %> "" then%>checked<%end if%> /> <% End if oRS.close oConn.close() %>
  • Commentaires


Conformément à la loi Informatique et Liberté du 6 janvier 1978, vous disposez d'un droit d'accès, de rectification et d'opposition relatif aux informations vous concernant.

Nous vous remercions pour votre soutien.

<%end if%> <%end if%>