<%
'extreiem la carpeta parametre
URL = Request.querystring("URL")
IDX = CInt(Request.querystring("IDX"))
PAT = "galeriamix.asp?URL=" & URL & "&IDX=" & CStr(IDX)
%>
català 
español 
english Photo Gallery (<% response.write URL %>)
<%
'extreure el nom de la carpeta del Servidor
carpeta = Server.MapPath(URL) & "\"
'connectem amb el sistema d'arxius
set FSO = Server.CreateObject("Scripting.FileSystemObject")
'pujem els fitxers de la carpeta
set carpeta = FSO.GetFolder(carpeta)
set fitxers = carpeta.Files
'visualitzem al centre la imatge actual
index = 0
for each nomfitxer in fitxers
'comptem la nova imatge
index = index + 1
'comprovem si es la imatge visualitzada
if index = IDX then
'obtenim el nom del fitxer
imatge = mid(nomfitxer,len(carpeta)+2)
imatgeHTML = URL & "\" & imatge
response.write ""
response.write "" & chr(13) end if next 'creem la taula response.write "
"
index = 0
trobat = FALSE
for each nomfitxer in fitxers
'comptem la nova imatge
index = index + 1
'obtenim el nom del fitxer
imatge = mid(nomfitxer,len(carpeta)+2)
imatgeHTML = URL & "\" & imatge
'comprovem si es la imatge anterior
if index = IDX - 1 then
'dibuixem la imatge anterior
response.write "  " & imatge & " "
trobat = TRUE
end if
next
if not trobat then response.write " "
response.write " | " & chr(13)
'visualitzem a sota la IMATGE ACTUAL
response.write " "
index = 0
for each nomfitxer in fitxers
'comptem la nova imatge
index = index + 1
'obtenim el nom del fitxer
imatge = mid(nomfitxer,len(carpeta)+2)
imatgeHTML = URL & "\" & imatge
'comprovem si es la imatge anterior
if index = IDX then
'dibuixem la imatge anterior
response.write " " & imatge end if next if not trobat then response.write " " response.write " | " & chr(13)
'visualitzem a sota la IMATGE SEGUENT
response.write " "
index = 0
trobat = FALSE
for each nomfitxer in fitxers
'comptem la nova imatge
index = index + 1
'obtenim el nom del fitxer
imatge = mid(nomfitxer,len(carpeta)+2)
imatgeHTML = URL & "\" & imatge
'comprovem si es la imatge anterior
if index = IDX + 1 then
'dibuixem la imatge anterior
response.write " " & imatge & "  "
response.write " "
trobat = TRUE
end if
next
if not trobat then response.write " "
response.write " | " & chr(13)
' tanquem la taula
response.write "
Fotos : Agustí Cucurulls i Núria Carabassa | ||
Copyright Federación Española de Piragüismo 2008/2009