In memoriam - Wanda

<% '--- Forcer la déclaration des variables Option explicit Dim msg Dim afficher '--- Variables concernant la connexion base de données Dim conn Dim rs Dim sql Dim i msg="" Afficher=500 ' afficher les 500 derniers messages ' Ouverture de la base et table liste Set conn = Server.CreateObject("ADODB.Connection") ' connexion avec DSN ' la base de données doit se situer dans le même répertoire que default.asp conn.Open "guestbook2" if request("action")="Envoyer" then ' On vérifie si l'utilisateur a bien entré un nom et un commentaire If trim(request("Nom"))="" OR trim(request("commentaire"))="" then ' Tous les champs ne sont pas rempli ' On remplit la variable message - elle n'est plus vide msg="Erreur : Remplissez tous les champs svp.
" end if if msg="" then ' tous les champs ont été remplis correctement sql = "SELECT * FROM wanda" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 ' Ajout d'un nouvel élément à la table rs.AddNew rs.fields("nom")=trim(request("nom")) rs.fields("message")=trim(request("commentaire")) rs.fields("date")=now() rs.Update ' On ferme la connexion sur le recordset rs.close ' On détruit l'objet recordset de la mémoire set rs=nothing ' On ferme la connexion sur la base conn.close ' On détruit l'objet créé pour établir la connexion set conn=nothing ' On reirige l'utilisateur vers default.asp ' ce qui à pour effet de recharger la page en cours response.redirect "wanda.asp" end if end if %> In memoriam - Wanda <% ' sélection de la table liste sql = "SELECT * FROM wanda" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>

Wanda Fazio, 1961 - 2002

	Nous avons la grande tristesse et le chagrin de faire part du décès, le 7 septembre dernier, de notre très chère sociétaire Wanda Fazio. Wanda était membre du comité administratif de la société, ainsi que gymnaste au groupe fitness-dames. Nous garderons d'elle un souvenir lumineux, elle qui avait une personnalité attachante, très sociale et toujours prête à s'engager, soit pour la vie du club, soit pour sa famille et d'autres groupes associatifs. Par ces quelques lignes, nous aimerions témoigner notre plus sincère sympathie à toute sa famille, dont Danilo et Denzia ses enfants, Nastasia sa nièce, membres de notre société.

Comme témoignage de soutien à la famille de Wanda,
vous pouvez ajouter votre nom à la liste ci-dessous
<%=msg%>

<% if rs.recordcount>0 then%><% i=1 ' compteur du nombre de message rs.movefirst do while not rs.eof AND i<=afficher %> <% i=i+1 ' on incrémente le compteur rs.movenext loop else %> <% end if ' Fermeture des objets créés rs.close set rs=nothing conn.close set conn=nothing %>

<%=rs("nom")%>	<%=rs("message")%>
pas de signature

alr, 13/09/2002