<%@ Language= "VBScript" %> <% response.expires=-1000 sauvegarde = request.Form("sauvegarde") If sauvegarde = "true" Then count=0 erreur = False If Trim(request.Form("prenom")) = "" Then Count = Count + 1 reply = reply + "
  • Prénom
    • " End if If Trim(request.Form("nom")) = "" Then Count = Count + 1 reply = reply + "
  • Nom
    • " End if If Trim(request.Form("ville")) = "" Then Count = Count + 1 reply = reply + "
  • Ville
    • " End if If Trim(request.Form("courriel")) = "" Then Count = Count + 1 reply = reply + "
  • Courriel
    • " End if If Trim(request.Form("commentaires")) = ""Then Count = Count + 1 reply = reply + "
  • Commentaires
    • " End if If Trim(request.Form("validation")) <> "10" Then Count = Count + 1 reply = reply + "
  • Le résultat est incorrect
    • " End if If Count > 0 Then If Count > 1 Then reply = "Les champs suivants sont requis et n'ont pas été remplis:
    " + reply Else reply = "Le champ suivant est requis et n'a pas été rempli:
    " + reply End If erreur = True ActionSauvegarde = False Else 'Initialisation message confirmation messageConfirm = "Votre commentaire a été envoyé avec succès. Merci!
    Une fois validé, il sera affiché sur notre site web    " ActionSauvegarde = True sql_add= "SELECT * FROM commentaires" Set rs_add = Server.CreateObject("ADODB.Recordset") rs_add.CursorLocation = 3 rs_add.Open sql_add, conn, 3, 3 rs_add.addnew rs_add("val_nom") = apos(request.Form("nom")) rs_add("val_prenom") = apos(request.Form("prenom")) rs_add("val_ville") = apos(request.Form("ville")) rs_add("val_courriel") = apos(request.Form("courriel")) rs_add("val_commentaire_fr") = aposbr(request.Form("commentaires")) rs_add("val_date_creation") = date() rs_add("val_approuve") = 0 rs_add.update rs_add.Close Set rs_add = Nothing End If Else ActionSauvegarde = False erreur = False End If %> Domaine du Vieux Couvent

    COMMENTAIRES

    Il nous fait plaisir de vous partager quelques commentaires recueillis de clients qui nous disent avoir apprécié leur séjour au Domaine du Vieux Couvent.  Toujours à votre écoute, nous avons à coeur de vous offrir un produit de haute qualité.

    Merci de prendre le temps de nous écrire vos commentaires sur votre expérience.

    <%if ActionSauvegarde = false then if erreur then response.Write "

    " & reply & "

    " end if %>

    value="<%=apos(request.Form("nom"))%>"<%else%>value="Nom"<%end if%> size="20">    value="<%=apos(request.Form("prenom"))%>"<%else%>value="Prenom"<%end if%> size="20">    value="<%=apos(request.Form("ville"))%>"<%else%>value="Ville"<%end if%> size="20">    value="<%=apos(request.Form("courriel"))%>"<%else%>value="Courriel"<%end if%> size="20">

    Combien font 5 + 5 ?

    <%else 'Afficher message confirmation ajout response.Write "

    " & messageConfirm & "

    " end if%>

     

    Commentaires

    <% 'Affiche des commentaires déjà existant if UCase(request.QueryString("tout")) = "O" then limite = 999999 set rs_list = conn.execute("SELECT * FROM commentaires WHERE val_commentaire_fr is not null AND val_approuve = 1 ORDER BY val_date_creation DESC") else limite = 3 set rs_list = conn.execute("SELECT * FROM commentaires WHERE val_commentaire_fr is not null AND val_approuve = 1 ORDER BY val_date_creation DESC") end if x = 0 do while not rs_list.eof and x < limite response.Write "

    " & rs_list("val_commentaire_fr") & "
    " response.Write ""&rs_list("val_prenom") & " " & rs_list("val_nom") & "

    " x = x + 1 rs_list.movenext loop rs_list.close set rs_list = nothing %>

    Tous les commentaires »
    		Domaine du Vieux Couvent