<% dim monRecordSet, compte connexion() Ouverture MonRecordSet, "Ami", "", "" monRecordSet.addnew monRecordSet("Nom") = Request("textfield1") monRecordSet("Prénom") = Request("textfield2") monRecordSet("Adresse") = Request("textfield3") monRecordSet("Tél") = Request("textfield4") monRecordSet("fax") = Request("textfield5") monRecordSet("Courriel") = Request("textfield6") monRecordSet.Update Fermeture(monRecordSet) Deconnexion() %>
Imprimer ce document Lancer l'impression   Fermer la fenêtre

 

<%if Request("radio1")=1 then%> J'adhère à l'association et verse une cotisation annuelle : <%else%> Je renouvelle mon engagement ainsi que ma cotisation annuelle : <%end if%>

<%if Request("radio2")=15 then compte=15%> Petit budget 15 € * <%else compte=30%> Normale 30 € * <%end if%>

<%if IsNumeric(Request("text2")) then%> Je soutiens l’Association en faisant un don ponctuel de <%=Request("text2")%> € * <%compte=compte+Request("text2") end if%>

<%if Request("checkbox1")=10 then compte=compte+Request("checkbox1")%> Je commande le Guide Accueil Paysan France 2007 - 2008 d’Accueil Paysan 10 € <%end if%>

<%if Request("checkbox1")=10 then compte=compte+Request("checkbox1")%> Je commande le Guide Accueil Paysan International 2007 - 2008  7,11 € <%end if%>

<%if Request("checkbox1")=10 then compte=compte+Request("checkbox1")%> Je commande le DVD de présentation d' Accueil Paysan  10 € <%end if%>

Montant total de mon règlement = <%=compte%> €

Ci-joint mon règlement par chèque bancaire à l’ordre de l’Association des Amis d’Accueil Paysan
MIN -117 rue des Alliés, 38030 Grenoble cedex 2

Nom – Prénom : <%Response.Write Request("textfield1")%> <%Response.Write Request("textfield2")%>

Adresse : <%Response.Write Request("textfield3")%>

Tél. : <%Response.Write Request("textfield4")%>

Fax : <%Response.Write Request("textfield5")%>

Email : <%Response.Write Request("textfield6")%>


<%select case Request("select1") case "accueil" Response.Write "

Comment avez-vous connu Accueil Paysan ? Lors d’un séjour d’accueil.

" case "internet" Response.Write "

Comment avez-vous connu Accueil Paysan ? Par Internet.

" case "guide" Response.Write "

Comment avez-vous connu Accueil Paysan ? Par le guide Accueil Paysan.

" case "autre" if Request("text1")="" or isnull(Request("text1")) then Response.Write "

Comment avez-vous connu Accueil Paysan ? autre sans précision.

" else Response.Write "

Comment avez-vous connu Accueil Paysan ? " & Request("text1") & ".

" end if end select%>

Coupon à imprimer et retourner à l’Association des Amis d’Accueil Paysan, 9 rue de la Poste - 38000 Grenoble (accompagné de votre règlement) .

 

* NB : la part de don déductible est de 60 %, dans la limite de 20 % de mon revenu imposable. Ainsi, en versant 100 €, il ne vous en coûtera que 40 € en réalité.