Encourage your family oriented pool by selecting the different sections in which you would like to participate. Then, fill out the identification information below and click on the "Submit" button!
Duties and Responsabilities - Pool and Tennis.
<% SELECT CASE Request.QueryString("go")
case "e"
DIM StrRep
DIM MailObj
DIM MailConf
SET MailObj = Server.CreateObject("CDONTS.NewMail")
SET MailConf = Server.CreateObject("CDONTS.NewMail")
StrRep = "Nom et prénom: " & Request.Form("nometprenom") &Chr(13)&Chr(10)&_
"Courriel: " & Request.Form("email") &Chr(13)&Chr(10)&_
"Numéro de téléphone: " & Request.Form("telephone") &Chr(13)&Chr(10)&_
"Embauche: " & Request.Form("embauche") &Chr(13)&Chr(10)&_
"Publicité: " & Request.Form("publicite") &Chr(13)&Chr(10)&_
"Calendrier: " & Request.Form("calendrier") &Chr(13)&Chr(10)&_
"Budget Annuel: " & Request.Form("budgetannuel") &Chr(13)&Chr(10)&_
"Préparation Piscines: " & Request.Form("preppiscines") &Chr(13)&Chr(10)&_
"Préparation Terrain: " & Request.Form("prepterrain") &Chr(13)&Chr(10)&_
"Fleurs: " & Request.Form("fleurs") &Chr(13)&Chr(10)&_
"Préparation Sauveteurs: " & Request.Form("prepsauveteurs") &Chr(13)&Chr(10)&_
"Commentaires: " & Request.Form("comment")
MailObj.Send Request.Form("email"), "mcharron@aproposoft.com", "Questionnaire RCC", StrRep
MailConf.Send "natation@curlingrosemere.com", Request.Form("email"), "Confirmation", "Merci pour votre participation."
SET MailObj = Nothing
SET MailConf = Nothing
%>
<% case else %>
<% END SELECT %>