<% response.write Application("idpassete") if request.form("cmd")="ok" then erreur="" if request.form("nom")="" then erreur=erreur&"Vous n'avez pas rempli votre nom.
" end if if request.form("prenom")="" then erreur=erreur&"Vous n'avez pas rempli votre prénom.
" end if if request.form("adresse1")="" then erreur=erreur&"Vous n'avez pas rempli votre adresse.
" end if if request.form("cp")="" then erreur=erreur&"Vous n'avez pas rempli votre code postal.
" end if if request.form("ville")="" then erreur=erreur&"Vous n'avez pas rempli votre ville.
" end if if request.form("pays")="" then erreur=erreur&"Vous n'avez pas rempli votre pays.
" end if if request.form("email")<>"" then email=corrigemailpourlespolio(request.form("email")) if len(email)=4 and left(email,3)="bad" then erreur=erreur&"Votre email n'est pas correct.
" end if else email="" end if if request.form("payment")="" then erreur=erreur&"Vous n'avez pas choisi de mode de paiement.
" end if if erreur<>"" then status="pasok" else Application.Lock id=Application("idpassete") Application("idpassete")=id+1 Application.Unlock if request.form("adherent")="OUI" then adherent = 1 codepaiement="DA03"&id prix = "70 Euros" else adherent = 0 codepaiement="DA04"&id prix = "81 Euros" end if sqlinsert = "insert into CommandePassETE (refcommande,adherent,nom,prenom,adresse1,adresse2,cp,ville,pays,email,paiement,typepaiement)" sqlinsert = sqlinsert & " values("&id&","&adherent&",'"&convert(request.form("nom"))&"','"&convert(request.form("prenom"))&"','"&convert(request.form("adresse1"))&"','"&convert(request.form("adresse2"))&"','"&convert(request.form("cp"))&"','"&convert(request.form("ville"))&"','"&convert(request.form("pays"))&"','"&email&"','"&request.form("payment")&"',2)" 'response.write sqlinsert Conn.execute(sqlinsert) if request.form("newsletter") and email<>"" then Set RS = Conn.execute("SELECT count(*) as nombre FROM parisdansenewsletter where email='"&email&"'") if rs("nombre")=0 then Conn.execute("INSERT INTO parisdansenewsletter(depot,email,active,provenance) VALUES('"&Date&"','"&left(trim(email),150)&"',1,'Commande du Pass ETE')") else Conn.execute("update parisdansenewsletter set active=1 where email='"&email&"'") end if end if status="ok" if email<>"" then call envoiconfparticulier(email,codepaiement,request.form("payment"),prix) end if if request.form("payment")="CB" then response.redirect("http://paiement.cogitel-forum.fr/paiement.asp?reference="&codepaiement) end if end if end if %> <%if status="pasok" then response.write "
    "&erreur&"
" response.write "
" elseif status="ok" then response.write "Vous avez choisi de payer "&prix&" par chèque.
Merci de libeller un chèque à l'ordre de : COGITEL FORUM
en précisant la référence : "&codepaiement&" au dos du chèque que vous enverrez à l'adresse suivante :
COGITEL FORUM
41 rue du Temple
75004 PARIS

ATTENTION : Compte tenu des frais bancaires intra-communautaires, nous ne sommes pas en mesure d'accepter d'autres chèques que ceux émis et payables en France.
ATTENTION : c'est la réception de votre chèque qui déclenche l'envoi du Pass été par la poste.

Retour à la page d'accueil" else%>
Commander le passeport et la carte d'adhérent en ligne


Carte d'essais 5 cours différents : 70 €
(Non valable pour les cours de théâtre, chant, musique. Ni pour les ateliers du week end.)

NON REMBOURSABLE

Adhésion au Centre de Danse du Marais (obligatoire & valable pendant 1 an) : 11 € .

Conditions générales de vente

Je souhaite acheter un passeport d'une valeur de 70 Euros.

Nom Prénom
Adresse
 
CP Ville
Pays  
E-mail
 Je souhaite recevoir régulièrement la lettre d'information de Paris Danse par e-mail.


Dès réception de votre règlement, votre passeport (et éventuellement notre carte d'adhésion) vous sera(ont) expédié(s) par la poste sous 48h en recommandé AR.

Mode de paiement
Paiement sécurisé par carte bancaire (Carte Bleue, MasterCard, Visa)

  

plus d'infos sur le paiement sécurisé.
Chèque

N'oubliez pas de :

            

<%end if%>

Pour toute question, notre service abonnement est joignable au :
0892-680-134 [0,34 E/mn]
<% function convert(truc) convert = replace(truc,"'","`") end function Function envoiconfparticulier(email,code,payment,prix) if trim(prix)="81 Euros" then carteenplus="et la carte d'adhésion vous seront expédiés" else carteenplus="vous sera expédié" end if dim Mail Set Mail = Server.CreateObject("CDONTS.NewMail") mail.from = "passeport@paris-danse.com" mail.To = lcase(email) Const CdoBodyFormatHTML = 0 ' Body property is HTML Const CdoBodyFormatText = 1 ' Body property is plain text (default) Const CdoMailFormatMime = 0 ' NewMail object is in MIME format Const CdoMailFormatText = 1 ' NewMail object is plain text (default) mail.BodyFormat = CdoBodyFormatHTML mail.MailFormat = CdoMailFormatMime mail.subject = "[PARIS DANSE] Passeport" dim body dim rc,rc2 rc = chr(13) & chr(10) rc2 = rc & rc body = body & "Bienvenue sur le site Paris-Danse !

" &rc body = body & "Nous avons bien reçu votre commande de Passeport et vous en remercions.

" &rc if payment = "CB" then body = body & "Nous attendons la prise en compte de votre paiement par le Crédit mutuel sous 24 heures.

" &rc else body = body & "Pour la prise en compte de votre commande, vous devez libeller un chéque de "&prix&" à l'ordre de COGITEL FORUM, puis l'envoyer à l'adresse suivante :


IMPORTANT : Au dos du cheque rappelez le numero de la commande "&code&"

" &rc end if body = body & "A réception de votre réglement, le passeport "&carteenplus&" par la poste sous 48h.

" &rc body = body & "Artistiquement vôtre.

" &rc body = body & "L'Equipe de Paris-Danse" &rc mail.body = body mail.send if err <> 0 then response.write "une erreur s'est produite" & err.description 'wwwww end if set mail=nothing End function %>