<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% set oconne = server.createobject("ADODB.connection") oconne.open application("connexion") set rs = server.createobject("ADODB.recordset") strsql = "select * from actuNature order by dateA" rs.open strsql, oconne, 1, 3 dim tMois(11) tMois(0) = "janvier" tMois(1) = "février" tMois(2) = "mars" tMois(3) = "avril" tMois(4) = "mai" tMois(5) = "juin" tMois(6) = "juillet" tMois(7) = "août" tMois(8) = "septembre" tMois(9) = "octobre" tMois(10) = "novembre" tMois(11) = "décembre" set rsBandeau = server.CreateObject("ADODB.recordset") strsql = "select * from actuNatureBandeau where id = 1" rsBandeau.open strsql, oconne, 1, 1 %> La Maison des Libellules

<%=rsBandeau("titre")%>

<%=rsBandeau("sousTitre")%>

<%=replace(rsBandeau("texte"), vbcrlf, "
")%>

<%=replace(rsBandeau("lieu"), vbcrlf, "
")%>

<%while not rs.eof%>
<%=day(rs("dateA")) & " " & tMois(month(rs("dateA"))-1)%>

<%=rs("titre")%>

<%=rs("sousTitre")%>

<%if rs("texte") <> "" then response.write replace(rs("texte"), vbcrlf, "
")%>

<%if rs("photo") <> "" then%> " > <%end if%>
<%rs.movenext wend%>
<%rs.close oconne.close%>