<% option explicit response.buffer = true %> FISI - Listes de diffusion <% dim openstr, cn, rs openstr = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("/fpdb/sitefisi.mdb") Set cn = Server.CreateObject("ADODB.Connection") cn.Open openstr dim mdpnogood mdpnogood = False if len(request("ENREGISTRER") ) > 0 and request("MDP1") = request("MDP2") then Set rs = Server.CreateObject("ADODB.Recordset") 'rs.Open "select * from listedediffusion where email = '" & request("EMAIL") & "' and motdepasse ='" & request("MDP1") & "'", cn, 3, 3 rs.Open "select * from listedediffusion where email = '" & request("EMAIL") & "'", cn, 3, 3 if rs.eof then 'response.write "create" rs.addnew rs("datecreation") = now rs("email") = request("EMAIL") rs("motdepasse") = request("MDP1") rs("nouveau") = True if request("LISTEFISIMED") = "ON" then rs("infosfisimed") = True else rs("infosfisimed") = False end if if request("LISTETRANSCAM") = "ON" then rs("infostranscam") = True else rs("infostranscam") = False end if if request("LISTEAG2035") = "ON" then rs("infosag2035") = True else rs("infosag2035") = False end if rs.update response.redirect ("http://www.fisi.fr/asp/confirmation_inscription.asp") else 'response.write "update" if rs("motdepasse") = request("MDP1") then rs.update rs("email") = request("EMAIL") rs("motdepasse") = request("MDP1") rs("nouveau") = True if request("LISTEFISIMED") = "ON" then rs("infosfisimed") = True else rs("infosfisimed") = False end if if request("LISTETRANSCAM") = "ON" then rs("infostranscam") = True else rs("infostranscam") = False end if if request("LISTEAG2035") = "ON" then rs("infosag2035") = True else rs("infosag2035") = False end if rs.update response.redirect ("http://www.fisi.fr/asp/confirmation_inscription.asp") else mdpnogood = True end if end if end if %>

        Pour vous inscrire sur les listes de diffusion FISI            

L'inscription sur les listes de diffusion vous permet de recevoir rgulirement dans votre boite aux lettres des informations techniques sur les produits FISI que vous utilisez (disponibilit de nouvelles versions, volutions, ...) ainsi que des conseils d'utilisation.

Les informations que vous nous communiquez sont confidentielles et FISI s'engage ne pas les communiquer des tiers et ne pas les utiliser dans un but commercial.

 

<% if request("MDP1") <> request("MDP2") then response.write "

Les deux mots de passe saisis ne sont pas identiques

" end if if mdpnogood then response.write "

Le mot de passe saisi est incorrect

" end if %> Votre adresse de messagerie    ">

Votre mot de passe    ">    Confirmez votre mot de passe    ">

Vous dsirez tre inscrit dans :

  • La liste de diffusion FISImed
>
  • La liste de diffusion TransCAM
>
  • La liste de diffusion Ag2035
>

<% 'response.write request("EMAIL") & "

" 'response.write request("MDP1") & "

" 'response.write request("MDP2") & "

" 'response.write request("LISTEFISIMED") & "

" 'response.write request("LISTETRANSCAM") & "

" 'response.write request("LISTEAG2035") & "

" 'response.write request("ENREGISTRER") & "

" 'response.write request("LIRE") & "

" %>

 

        Pour modifier ou supprimer votre inscription            

Pour modifier votre inscription, saisissez votre adresse de messagerie, votre mot de passe (et son champ de confirmation) dans le formulaire ci-dessus, cochez les listes de diffusion ou vous dsirez tre inscrit et appuyez sur le bouton "Envoyer le formulaire d'inscription".

Pour supprimer votre inscription, saisissez votre adresse de messagerie, votre mot de passe (et son champ de confirmation) dans le formulaire ci-dessus, dcochez toutes les listes de diffusion et appuyez sur le bouton "Envoyer le formulaire d'inscription".

Si vous avez oubli votre mot de passe, contactez-nous.

 

Retour la page d'accueil de http://www.fisi.fr