Base de données
Databases

[

<% set ObjEvenements = Server.CreateObject ("ADODB.Recordset") SQLEvenements="select * from evenements" objevenements.open sqlevenements,objconn, adOpenDynamic, adLockOptimistic If Objevenements.Recordcount<>0 Then Objevenements.movefirst do while not Objevenements.eof response.write objevenements.fields("evenement1") response.write "

---

" objevenements.movenext Loop end if objevenements.close%>

]