<% @LANGUAGE="VBScript" %><% if (request.querystring("var")<>"") then 'connexion a la base sans DSN set Conn = server.createObject ("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/forum/BD2_Angouweb.mdb") sql="SELECT * FROM agenda" Set CB=conn.execute(sql) varSQL="SELECT * FROM agenda" var=request.querystring("var") varSQL="SELECT agenda.type,agenda.id, agenda.debut_evenement, agenda.fin_evenement,agenda.titre, agenda.texte, agenda.renseignements, agenda.lieu FROM agenda WHERE agenda.id=" & var & "" Set BaseSet=Server.CreateObject("ADODB.Recordset") BaseSet.Open varSQL, conn %> Agenda Angouweb - Concerts
Retour
<%Do While not BaseSet.Eof%>
  • <%=baseset("titre")%>

    <% response.write("du : ")%><%=baseset("debut_evenement")%><%var=baseset("id")%><% response.write(" au: ")%><%=baseset("fin_evenement")%>

    <%=baseset("texte")%>

    <%=baseset("renseignements")%>

    <% BaseSet.MOveNext Loop%><% BaseSet.close CB.close Set BaseSet=Nothing Set CB=Nothing %>
 
<% end if %>