<%@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 DESC" set rs=Server.CreateObject("ADODB.Recordset") rs.Open rq, LiaisonBD,,3, adcmdtable %>

SITE INTERNET MARSEILLE - AIX EN PROVENCE - PACA
Zeugma Agence Internet - Marseille - Mimet

 


&titre=<%=rs.fields("titre")%>&descriptif=<%=rs.fields("descriptif")%>"> Site flash fiche

"> Site flash PDF

<%count=1%> <% while not rs.eof %>
Site flash de : <%Response.Write (rs.fields("titre"))%> - <%Response.Write (rs.fields("lientexte"))%>
Site flash contenu : <%Response.Write (rs.fields("descriptif"))%>



<%count=count+1%> <%rs.movenext%> <%wend%>

 

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