<%'################# FONCTIONS DE CONTROLE DE CHAMP Function ValidEmail(sEMail) Dim sInvalidChars Dim bTemp Dim i Dim sTemp ' Caratères interdits sInvalidChars = Chr(33) & Chr(34) & Chr(35) & Chr(36) & Chr(37) & Chr(38) & Chr(39) & Chr(40) & Chr(41) & Chr(42) & Chr(43) & Chr(44) & Chr(47) & Chr(58) & Chr(59) & Chr(60) & Chr(61) & Chr(62) & Chr(63) & Chr(91) & Chr(92) & Chr(93) & Chr(94) & Chr(96) & Chr(123) & Chr(124) & Chr(125) & Chr(126) & Chr(127) sInvalidChars = sInvalidChars & Chr(128) & Chr(129) & Chr(130) & Chr(131) & Chr(132) & Chr(133) & Chr(134) & Chr(135) & Chr(136) & Chr(137) & Chr(138) & Chr(139) & Chr(140) & Chr(141) & Chr(142) & Chr(143) & Chr(144) & Chr(145) & Chr(146) & Chr(147) & Chr(148) & Chr(149) & Chr(150) & Chr(151) & Chr(152) & Chr(153) & Chr(154) & Chr(155) sInvalidChars = sInvalidChars & Chr(156) & Chr(157) & Chr(158) & Chr(159) & Chr(160) & Chr(161) & Chr(162) & Chr(163) & Chr(164) & Chr(165) & Chr(166) & Chr(167) & Chr(168) & Chr(169) & Chr(170) & Chr(171) & Chr(172) & Chr(173) & Chr(174) & Chr(175) & Chr(176) & Chr(177) & Chr(178) & Chr(179) & Chr(180) & Chr(181) & Chr(182) & Chr(183) sInvalidChars = sInvalidChars & Chr(184) & Chr(185) & Chr(186) & Chr(187) & Chr(188) & Chr(189) & Chr(190) & Chr(191) & Chr(192) & Chr(193) & Chr(194) & Chr(195) & Chr(196) & Chr(197) & Chr(198) & Chr(199) & Chr(200) & Chr(201) & Chr(202) & Chr(203) & Chr(204) & Chr(205) & Chr(206) & Chr(207) & Chr(208) & Chr(209) & Chr(210) & Chr(211) sInvalidChars = sInvalidChars & Chr(212) & Chr(213) & Chr(214) & Chr(215) & Chr(216) & Chr(217) & Chr(218) & Chr(219) & Chr(220) & Chr(221) & Chr(222) & Chr(223) & Chr(224) & Chr(225) & Chr(226) & Chr(227) & Chr(228) & Chr(229) & Chr(230) & Chr(231) & Chr(232) & Chr(233) & Chr(234) & Chr(235) & Chr(236) & Chr(237) & Chr(238) & Chr(239) sInvalidChars = sInvalidChars & Chr(240) & Chr(241) & Chr(242) & Chr(243) & Chr(244) & Chr(245) & Chr(246) & Chr(247) & Chr(248) & Chr(249) & Chr(250) & Chr(251) & Chr(252) & Chr(253) & Chr(254) & Chr(255) 'Rechercher qu'il y a au moins un '@' bTemp = InStr(sEMail, "@") <= 0 'Rechercher qu'il y a au moins un '.' bTemp = bTemp Or InStr(sEMail, ".") <= 0 'Vérifions que la taille est plus grande que 6 caractères (a@a.ca) bTemp = bTemp Or Len(sEMail) < 6 'Vérifier qu'il y a qu'n seul '@' i = InStr(sEMail, "@") sTemp = Mid(sEMail, i + 1) bTemp = bTemp Or InStr(sTemp, "@") > 0 'Vérifier qu'il y un '.' après le '@' bTemp = bTemp Or InStr(sTemp, ".") = 0 'Vérifier la présence de (") bTemp = bTemp Or InStr(sEMail, Chr(34)) > 0 'Vérifier la présence de (.@) bTemp = bTemp Or InStr(sEMail, ".@") > 0 'Vérifier la présence de (@.) bTemp = bTemp Or InStr(sEMail, "@.") > 0 'Vérifier la présence de (..) bTemp = bTemp Or InStr(sEMail, "..") > 0 'Vérifié s'il y a des caractères interdits For i = 1 To Len(sEMail) If InStr(sInvalidChars, Mid(sEMail, i, 1)) > 0 Then bTemp = True End If Next ' S'il y a une seule des conditions ci-dessus qui repond true alors l'e-mail est invalide ValidEmail = Not bTemp End Function '################# FONCTIONS POUR MAIL Function formatag(str) dim azer azer = str & "" azer = replace(azer,"À","À") azer = replace(azer,"à","à") azer = replace(azer,"Â","Â") azer = replace(azer,"â","â") azer = replace(azer,"Ç","Ç") azer = replace(azer,"ç","ç") azer = replace(azer,"È","È") azer = replace(azer,"è","è") azer = replace(azer,"É","É") azer = replace(azer,"é","é") azer = replace(azer,"Ê","Ê") azer = replace(azer,"ê","ê") azer = replace(azer,"Ë","Ë") azer = replace(azer,"ë","ë") azer = replace(azer,"Î","Î") azer = replace(azer,"î","î") azer = replace(azer,"Ï","Ï") azer = replace(azer,"ï","ï") azer = replace(azer,"Ô","Ô") azer = replace(azer,"ô","ô") azer = replace(azer,"Œ","Œ") azer = replace(azer,"œ","œ") azer = replace(azer,"Ù","Ù") azer = replace(azer,"ù","ù") azer = replace(azer,"Û","Û") azer = replace(azer,"û","û") azer = replace(azer,"Ü","Ü") azer = replace(azer,"ü","ü") azer = replace(azer,"Ÿ","Ÿ") azer = replace(azer,"ÿ","ÿ") azer = replace(azer,"€","€") azer = replace(azer, "'", "’") 'azer = replace(azer, """", """) 'azer = replace(azer, "<", "<") 'azer = replace(azer, ">", ">") 'azer = replace(azer,"<br>","
") formatag = azer End function dim JMail, introhtml, sql, champ, i, valid if request.form("validform.x")>0 then valid="ok" sql = request.form("txtf") 'response.write sql & "
################################
" 'sql = replace(sql,Vbcrlf,"
") sql = replace(sql,"""","") sql = replace(sql," class=champ1 ","") sql = replace(sql," AUTOCOMPLETE=OFF","") sql = replace(sql,"",replace(Request.Form(Champ)&"",Vbcrlf,"
")) sql = replace(sql,"",replace(Request.Form(Champ)&"",Vbcrlf,"
")) elseif left(champ,1)="t" and champ<>"txtf" then 'les input sql = replace(sql," "," ") if Request.Form(Champ)<>"" then sql = replace(sql,"" & Request.Form(Champ) & "" & Request.Form(Champ) & "","") sql = replace(sql,""& Vbcrlf introHtml = introHtml & "" '" & rf_titr & ""& Vbcrlf introHtml = introHtml&""& Vbcrlf introHtml = introHtml &"" introhtml = introhtml & "FORMULAIRE DE CONTACT PARTICULIER, CE REMPLI LE " & now() & ".

" introhtml = introhtml & sql & "" Set JMail = Server.CreateObject("JMail.message") JMail.Logging = true JMail.silent = true if validemail(request.form("t11")) then JMail.From = request.form("t11") JMail.FromName = request.form("t6") & " " & request.form("t8") else JMail.From = "agence@imagospirit.com" JMail.FromName = "CONTACT WEB" end if JMail.AddRecipient "disca@imagospirit.com","Administrateur Imagospirit" JMail.AddRecipientBCC "yjldisca@yahoo.com","Administrateur Imagospirit" 'JMail.AddRecipientBCC "brunet@imagospirit.com","Administrateur Imagospirit" JMail.Subject = "DJ LOIC et REBECCA [PARTICULIER, CE]" JMail.ContentType = "text/html" JMail.Priority = 3 JMail.Body = formatag(introhtml) JMail.Send("80.118.147.182") end if %>
 
 
Devis immédiat au
06 14 20 82 67
reginarebecca@orange.fr
 
ANIMATION DE
Mariage - Baptème - Bar ou Bat Mitzvah - Communion - Anniversaire - Départ à la retraite - CE
Boum Ados - Evènement particulier - Repas de fin d’année - Divorce !! - Soirées sur mesure…
<%if valid="ok" then%>
MERCI DE VOTRE DEMANDE
Vos informations nous sont bien parvenues.
Nous vous répondrons dans les plus brefs délais.
<%else%>
<% if request.form("txtf")<>"" then%>
ATTENTION !
Vous n'avez pas correctement rempli ce formulaire.
Veuillez compléter les informations manquantes ou erronées.


<%=request.form("txtf")%> <%else%>
1. Type de votre événement
Mariage Baptême Communion Anniversaire Départ à la retraite Divorce Soirée sur-mesures
2. Prénom(s) du ou des principaux intéressés
3. Date de votre évènement 4. Horaires approximatifs de votre évènement
5. Lieu, adresse et téléphone de votre évènement
6. Vos coordonnées
Mme. Melle. M.
Société
Adresse
Nom
Code postal
Prénom
Ville
Téléphone
E-mail
7. Style que vous souhaitez donner à votre événement
Classique Avant-gardiste
Sur un thème précis, précisez :
TROIS QUESTIONS TYPIQUES MARIAGES
8. Comment se fera l'entrée des mariés? Sur quelle musique?
9. Sur quelle musique souhaitez-vous l'arrivée de la pièce montée?
10. Les mariés, ou un parent avec l’enfant, souhaitent-ils ouvrir le bal à un certain moment? Sur quelle musique?
11. Que préférez-vous?
Beaucoup d’intervention de l’animateur ou animatrice DJ. un animateur(trice) DJ plutôt discret.
12. Souhaitez vous l’intervention d’artistes chanteurs et ou chanteuses? Dans quel style de répertoire?
13. Souhaitez vous l’intervention de danseurs et ou danseuses (c’est à dire que les artistes font plusieurs passages au cours de la soirée avec des costumes différents, parfois en chorégraphies, parfois en animation et vous font participer)?
Latino Brésilien typique Disco Salsa Oriental typique Actuel groovy
Autre, précisez :
14. Formule DJ seul ou formule DJ live avec musiciens ? Souhaitez-vous l’intervention d’artistes musiciens : pianiste- percussioniste- violoniste…?
14bis. Une animation inhabituelle? Artiste de feu? Échassier? Magicien? Pick pocket? Acrobates? Cabaret? Humoriste? Autre idée?
15. Y a-t-il une 2ème salle à sonoriser (pour le cocktail ou vin d’honneur par exemple)?
16. Des discours sont-ils prévus?
17. Y aura-t-il des animations ou artistes autres que ceux que je vous propose ? Lesquelles et leur numéro de téléphone, s'il vous plaît?
18. Liste des musiques que vous souhaitez absolument entendre lors du repas, ou cocktail.
19. Liste des musiques sur lesquelles vous souhaitez absolument danser entre les plats, ou à la fin du repas seulement.
20. Liste de musique que vous ne souhaitez surtout pas entendre.
21. Apparition de votre vedette préférée? Ou d’un sosie?
22. Votre participation avec l’équipe d’animation?
23. Avez vous déjà trouvé votre traiteur? Votre photographe? Votre caméraman? Votre décorateur de salle?
24. Avez-vous déjà votre projecteur et écran si vous souhaitez projeter une vidéo?
25. Souhaitez-vous que le DJ anime des jeux que vous lui proposerez, ou bien nos quizz ? Lesquels ?
26. Combien de personnes y aura-t-il approximativement?
<%end if%>
<%end if%>
 
       
   
Copyright © Régina Rebecca 2009 <%if year(now())<>"2009" then%> - <%=year(now())%> <%end if%> Tous droits réservés - Mentions légales - Réalisation : Imagospirit - informations non contractuelles