<% Title="" Categ=Request("c") ' IF Categ = "" Then Categ=Session("Categ") IF Categ = "" Then Categ="SO" select Case Categ Case "SO" Title="Sortir" end select Session("Categ")=Categ MaxRecs = 0 ' maximum records per report ZoomURL = "sListeZoom.asp" ' name of zoom file. If blank none. ' RunReport = (Request("RunReport")<>"") RunReport = 1 if not (isempty(Request("i"))) then Index = (Request("i")) else Index=2 end if If Title="" then Title="Sortir" If request("Request_method")="POST" Then if Request("2")<>"" then Index=2 End If if Request("3")<>"" then Index=3 End If if Request("4")<>"" then Index=4 End If if Request("5")<>"" then Index=5 End If End if %> Sortir - St-Jean-sur-Richelieu.net


 
BoutonsAjoutez une idée de sortie BoutonsModifier une de vos Annonces
 

IDÉES DE SORTIES
Vous pouvez trier la liste de plusieurs façons

<% Today = dateValue(now()) if Today = "12/14/01" then Response.Write "
Votre indice du jour du concours Z-104 ""Commencez l'année en beauté"" : Jeu d'Action

" %>
<% oSortie.call "msg_SetHRefName", ZoomUrl iEnd = oSortie.Call("get_RunSortieListe", Index, 0, 0) %>
Trier la liste d'une autre façon