<% Option Explicit response.expires = 0 dim wCnn, wRs, wSQL dim wNom, wAdresse, wCourriel, wPW, wAutres, wNoRec, wMode, wRdChoix, wCp, wTel, wVille, wDateNais wNom = "" wAdresse = "" wCourriel = "" wPW = "" wAutres = "" wNoRec = "" wCp = "" wTel = "" wVille = "" wDateNais = "" wMode = "add" if request.form("txtHidden") = "add" then Set wCnn = Server.CreateObject("ADODB.Connection") wCnn.Open = "Driver={MySQL};SERVER=sqlc0e.megasqlservers.com;DATABASE=spm_bingodrummond_com;UID=dbm.bingodrummond.com;PASSWORD=bingo123" Set wRs = Server.CreateObject("ADODB.Recordset") set wRs.ActiveConnection = wCnn Session("MessageGestion") = "Ajout réussi." wcnn.execute "Insert into tblClient (DateNais, Nom, Courriel, Autres, CategInd, Adresse, Ville, Tel, CP)"_ & " Values ('"& replace(request.form("txtDateNais"),"'","") &"', '"& replace(request.form("txtNom"),"'","''") &"', '"& replace(request.form("txtCourriel"),"'","") &"', '"& replace(request.form("rbAutres"),"'","''") &"',"_ & "'m','"& replace(request.form("txtAdresse"),"'","''") &"','"& replace(request.form("txtVille"),"'","''") & "','"& replace(request.form("txtTel"),"'","''") &"','"& replace(request.form("txtCP"),"'","''") &"')" wCnn.close Set wCnn=nothing end if %>

FORMULAIRE D'INSCRIPTION AU CLUB PRIVILÈGES <% if Session("MessageGestion") <> "" then Session("MessageGestion") = "" %> Merci! de vous être inscrit au Club avantage plus, vous receverez prochainement par courriel ou par la poste nos offres alléchantes. <% else %> Inscrivez-vous au Club avantage plus et soyez les premiers informés et à revevoir nos offres alléchantes. Nom :   *   Courriel:   *   Adresse :   *   Ville :    Code Postal :    Téléphone :    Date Naissance :    AAAAMMJJ n.b. Inscrivez votre date de naissance et nous soulignerons celle-ci avec un petit cadeau. Catégorie :  > 18-25 ans > 26-35 ans > 36-45 ans > 46-55 ans > 56 ans et + <% end if %>