%'----------------------------------------------------------------------
'-----------------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---------------------%>
Lot |
Sponsor |
Description |
Position |
Modif/Suppr |
<%'----début de la boucle-----------%>
<%RsTable.MoveFirst
do while not RsTable.eof%>
<%=RsTable("lot")%> |
<%=RsTable("sponsor")%> |
<%=RsTable("description")%> |
<%=RsTable("place_lot")%> |
">modifier
/
">supprimer
|
<%RsTable.MoveNext
loop%>
<%'-------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%>