<%@LANGUAGE="VBSCRIPT"%> <% set randoDB = Server.CreateObject("ADODB.connection") randoDB.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("database/justine.mdb")&"" %> <% from=request.querystring("from") sqltext="SELECT * FROM message WHERE afficher=true ORDER BY date_message DESC" set rsmessage=randoDB.execute(sqltext) %> Auberge du Grand Gït - Le livre d'or

 

 
Retour page d'accueil

Livrez ici
vos impressions
pour ceux qui
ne connaissent
pas encore
notre Auberge !
<%do while not rsmessage.eof%> <% rsmessage.movenext loop %>

<%=rsmessage("prenom")%> <%=rsmessage("nom")%>

<%=rsmessage("message")%>