<% If LCase (Session("Langue")) = "anglais" Then %> <% Else %> <% End If If Request.QueryString("Folder") <> "" Then DisplayList = True Select Case LCase(Request.QueryString("Folder")) Case "rivieramaya2005" If LCase (Session("Langue")) = "anglais" Then Response.Write "

We went to Xel-Há aquatic parc, Tulum's ruins and Isla Mujeres an island at 8 nautic miles of cancun. We wera at the Iberostar Paraiso Del Mar hotel. It is a wonderful place !

" Else Response.Write "

Nous avons visité le parc aquatic Xel-Há, des ruines de Tulum et Isla Mujeres un île à 8 miles nautique de Cancun. Nous étions à l'hôtel Iberostar Paraiso Del Mar, C'est une place magnifique !

" End If Case "lacst-jeanmai2003" If LCase (Session("Langue")) = "anglais" Then Response.Write "

3 days week-end trip to the Lac St-Jean

" Else Response.Write "

Fin de semaine de trois jours au Lac St-Jean

" End If Case "fall2002" If LCase (Session("Langue")) = "anglais" Then Response.Write "

Pictures of trees

" Else Response.Write "

Photos d'arbres

" End If Case "st-jean-quebec-2002" If LCase (Session("Langue")) = "anglais" Then Response.Write "

Pictures of Quebec

" Else Response.Write "

Photos du Vieux-Quebec

" End If Case "tremblant-spring-2002" Case "rafting-spring-2002" If LCase (Session("Langue")) = "anglais" Then Response.Write "

These pictures were taken on April 28 2002.
" & _ "Outside Temperature : 0°C with snow
" & _ "Water Temperature : 4°C
" & _ "

" Else Response.Write "

Ces photos ont été prises le 28 avril 2002.
" & _ "Temperature extérieure : 0°C et de la neige
" & _ "Temperature de l'eau : 4°C
" & _ "

" End If Case "wrxfastandfurious2", "protege5", "salonauto2002", "salonauto2003", "626", "partyguillaume", "salonauto2004" 'Do Nothing Case "rafting-summer-2001" If LCase (Session("Langue")) = "anglais" Then Response.Write "

These pictures were taken in August 2001.
" & _ "Outside Temperature : app. 30°C and a sunny sky
" & _ "

" Else Response.Write "

Ces photos ont été prises au début du mois d'août 2001.
" & _ "Temperature extérieure : environ 30°C et du beau soleil
" & _ "

" End If Case Else DisplayList = False End Select If DisplayList = True Then %><% Else If LCase (Session("Langue")) = "anglais" Then Response.Write "Error : You cannot access the requested folder." Else Response.Write "Erreur : Le dossier demandé, n'est pas accessible." End If End If End If %>