<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% idJ = Request.QueryString("IDJ") %>

Login

Matchs

Resultats

Entrainements

Joueurs

<% If Session("UserRights") = 3 then Response.Write("

Externes

") Response.Write("

Entraineurs

") Response.Write("

Mailing

") End if %>

Evenements

Cotisations

Comité

 <% If Request.QueryString("Delete") = "confirm" then Set rsOptout = Server.CreateObject("ADODB.Recordset") sqlOptOut = "UPDATE Joueurs_club SET optout=1 WHERE id=" & idJ openrs rsOptout, sqlOptOut Response.Write("

Désinscription au mailing enregistrée

") else Set rsJ = Server.CreateObject("ADODB.Recordset") sqlJ = "SELECT * FROM Joueurs_club WHERE id=" & idJ openrs rsJ, sqlJ While not rsJ.eof Prenom = rsJ("Prenom") Nom = rsJ("Nom") Mail1 = rsJ("Mail1") Mail2 = rsJ("Mail2") If Mail2 <> "" then MessMail = "Adresses mail enregistrées" Mail1 = Mail1 & "; " & Mail2 else MessMail = "Adresse mail enregistrée" end if rsJ.movenext Wend rsJ.close Set rsJ = nothing %>

Procédure de désinscription au mailing Tihange-Huy <%=Prenom & " " & Nom%>

<%=MessMail%> : <%=Mail1%>.

Cliquez sur le bouton "Désinscription" pour ne plus recevoir de mails du club.

        

<% end if %>