<%'---------------------------------------------------------------------- '-----------------Initiation à la programmation ASP---------------------- '------------------------www.asp-irine.com------------------------------- '-------------------le site qui décapsule l'ASP !------------------------ '------------------------------------------------------------------------%> <%'-------déclaration de la base----------------------------------------------------- '---------(opération qu'il suffit de faire une seule fois en début de fichier)------- DSN_BASE = "DBQ=" & Server.Mappath("marathon2000.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%> Marathon2000 - asp-irine.com : Liste des lots pour modifier/supprimer Liste des lots :

<%'----------------OBJECTIF : LISTER TOUS LES LOTS DE LA COURSE-------------------%> <%'-------création de la connection et du recordset-------------------------- Set ConnTable = Server.CreateObject("ADODB.Connection") ConnTable.Open DSN_BASE Set RsTable = Server.CreateObject("ADODB.Recordset")%> <%'-------définition de la sélection TOUS les lots--------- RsTable.Open "Select * from recompenses" , ConnTable%> <%'-------gestion d'une éventuelle table vide-------------------------------- if RsTable.eof=true then%>
aucune récompense ne figure encore dans la table! <%else%> <%'-------------------affichage des résultats da,s un tableau---------------------%> <%'----début de la boucle-----------%> <%RsTable.MoveFirst do while not RsTable.eof%> <%RsTable.MoveNext loop%>
Lot Sponsor Description Position Modif/Suppr
<%=RsTable("lot")%> <%=RsTable("sponsor")%> <%=RsTable("description")%> <%=RsTable("place_lot")%> ">modifier / ">supprimer
<%'-------fin de la gestion de la table vide----------------------------------%> <%end if%> <%'-------fermeture de la connection et du recordset---------- RsTable.Close Set RsTable = Nothing ConnTable.Close Set ConnTable = Nothing%>