Le liste
<%
set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.ActiveConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& Server.mappath("db/webcom.mdb") & ";"
RS1.Source = "SELECT * FROM liste ORDER by ORD"
RS1.CursorType = 0
RS1.CursorLocation = 2
RS1.LockType = 3
RS1.Open
if (NOT RS1.EOF) then
col = "class=""alt"""
%>
<%
while NOT RS1.EOF
if col = "class=""alt""" then col = "" else col = "class=""alt"""
%>
>
"> |
<%=db("testoHTM")%> |
<%
RS1.MoveNext
Wend
%>
<%
end if
RS1.Close
Set RS1 = Nothing
%>