Samedi 13 Mars 2010
Inscription à: Promotions AaZ Votre E-Mail:

<% function FrenchDate Dim FrenchMonth, FrenchDay Select Case Weekday(Weekday(Date())) Case 1 FrenchDay = "Dimanche" Case 2 FrenchDay = "Lundi" Case 3 FrenchDay = "Mardi" Case 4 FrenchDay = "Mercredi" Case 5 FrenchDay = "Jeudi" Case 6 FrenchDay = "Vendredi" Case 7 FrenchDay = "Samedi" End Select Select Case Month(date()) Case 1 FrenchMonth = "janvier" Case 2 FrenchMonth = "février" Case 3 FrenchMonth = "mars" Case 4 FrenchMonth = "avril" Case 5 FrenchMonth = "mai" Case 6 FrenchMonth = "juin" Case 7 FrenchMonth = "juillet" Case 8 FrenchMonth = "août" Case 9 FrenchMonth = "sept." Case 10 FrenchMonth = "octobre" Case 11 FrenchMonth = "novembre" Case 12 FrenchMonth = "décembre" End Select FrenchDate = FrenchDay & " " & Day(Date()) & " " & FrenchMonth & " " & Year(Date()) End function %>

			NOUS JOINDRE Si vous avez des questions, des commentaires ou toute autre information à nous faire parvenir, n'hésitez pas à le faire en prenant soin de remplir correctement le formulaire ci-dessous, en téléphonant au 819 469-4776        Merci 1- Votre nom et prénom : 2- Courriel : 3- Téléphone : 4- Nature de votre demande : Suggestion   Commentaires   Publicité   Autres   5- Description de votre demande :

<% sub pEnvoieMail(demail, amail, cc, cci, sujet, body) dim wobjmail set wobjmail = Server.CreateObject("CDO.Message") with wobjmail .From = demail .To = amail .Cc = cc .Bcc = cci .Subject = sujet .HTMLBody = body on error resume next .Send if err then response.write "" end if on error goto 0 end with set wobjmail = nothing end sub %>