<%Script_Name = Request.ServerVariables("SCRIPT_NAME") if Request("Page") <> "" Then Page = Request("Page") Else Page = 1%> Tapez vos commentaires dans l

Retour accueil

<%If Page = 1 Then%>

Si vous désirez des renseignements complémentaires
 sur nos produits, n'hésitez pas à nous laisser un message,
 nous vous répondrons le plus rapidement possible :

Indiquez vos coordonnées :

Nom

E-mail

Téléphone

Adresse

Ville

<%End if if Page = 2 Then%> <% fromemail="vanhaeren@optic2.com" toemail="vanhaeren@optic2.com" subject="FORMULAIRE SITE OPTIC2" 'body=request.form("comments") For i=1 To request.form.count strMessage = strMessage & request.form.key(i) & ": " & request.form.item(i) & vbCrLf Next Dim objMail Set objMail = CreateObject("CDONTS.NewMail") objMail.Send fromemail,toemail,subject,strMessage if err Then response.Write err.Description Else%> Message envoyé ! <%End if%> <%End if%>
RETOUR ACCUEIL