<%@ Language=VBScript %>
<% Option Explicit %>
<% ConnectRSM
dim vSection, vParent
dim InsSent
dim RightBar
RightBar = False
%>
Bottin Aînés Hébergement - Les commentaires des internautes
<%'**** ce bout de table doit être présent dans tout les headers%>
<% if Request.QueryString = "" then %>
<%
strSQL = "SELECT * FROM tblCommBottin AS c where Bottin = 1 ORDER BY Date_Comment "
RSM.Open strSQL, CNRSM
do While not RSM.EOF
%>
