NEWS ZEUGMA

L'agence web made in Marseille

<%@LANGUAGE="VBSCRIPT"%> <% dim LiaisonBD set LiaisonBD = Server.CreateObject("ADODB.Connection") LiaisonBD.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("20042/creations.mdb") liaisonBD.Open ,"","" rq="select * from creation order by class ASC" set rs=Server.CreateObject("ADODB.Recordset") rs.Open rq, LiaisonBD,,3, adcmdtable %> <% rq="select * from news" set rs=Server.CreateObject("ADODB.Recordset") rs.Open rq, LiaisonBD,,3, adcmdtable %> <% while not rs.eof %> <%Response.Write (rs.fields("ttexte"))%>

<%rs.movenext%> <%wend%> <% rs.close set rs=nothing LiaisonBD.close set LiaisonBD=nothing %>