limite degli array!?!?

[morphe]

Ciao ragazzi, ho fatto una pagina ASP che mi prenda tutte le immagini da una cartella e mi crea una galleria d'immagini. Funziona perfettamente se non fosse per il fatto che ora ho messo nella cartella del server 60 immagini da 50k l'una e quando clicco sulla pagina asp non me la apre piu'... che mi dite? Un problema di array che non riesce a gestirmi 60 file? Grazie mille!
Se volete vedere il problema dal vivo: www.matteomunaretto.it/gallery/

[weppos]

Direi che è un errore di codice.
ASP gestice molti + di 60 dati in array.

[morphe]

posso postartelo? con meno foto funziona benissimo

[weppos]

Originariamente inviato da morphe
posso postartelo? con meno foto funziona benissimo

Ok.
Ma nell'array inserisci cosa? Il percorso della foto?

[morphe]

questa è la parte principale - se hai problemi magari te lo invio via mail. Oh grazzzzzie mille

<%
@Language = "VBscript"
%>

<%
dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal
PageTitle = "Matteo Munaretto - our.Gallery - New York 2003"
ImageDirectory = "/images/ny"
ThumbnailHeight = 120
ThumbnailWidth = 160
ItemsPerPage = 12
ItemsHorizontal = 4

dim TotalItems, CurrentPage

sub PrintGallery()
CurrentPage = request.querystring("page")

if CurrentPage = "" OR int(CurrentPage) = 0 then
CurrentPage = 1
end if

dim StartItem
StartItem = ((CurrentPage - 1) * ItemsPerPage) + 1

if int(StartItem) = 0 then
StartItem = 1
end if

dim FileSystemObject, FileSystemObjectFiles
set FileSystemObject = server.createobject("scripting.filesystemobject")
set FileSystemObjectFiles = FileSystemObject.getfolder(server.mappath(ImageDir ectory))

dim item, ItemArray
for each item in FileSystemObjectFiles.files
TotalItems = TotalItems + 1

if int(StartItem) <= int(TotalItems) AND int(StartItem + ItemsPerPage) > int(TotalItems) then
if ItemArray = "" then
ItemArray = ItemArray & item.name
else
ItemArray = ItemArray & "," & item.name
end if
end if
next

ItemArray = split(ItemArray, ",")

response.write "<table class=""table"">" & vbnewline

dim i, ItemPrints
for i = 0 to ubound(ItemArray)
ItemPrints = ItemPrints + 1

if int(ItemPrints) = 1 then
response.write "<tr>" & vbnewline
end if

response.write "<td class=""td"">" &_
"<a href="""& ImageDirectory & "/" & ItemArray(i) & """ target=""_parent"" class=""link_image"">" &_
"[img][/img]" &_
"</a>" &_
"</td>" & vbnewline

if int(ItemPrints) = int(ItemsHorizontal) OR i = ubound(ItemArray) then
ItemPrints = 0
response.write "</tr>" & vbnewline
end if
next

response.write "</table>" & vbnewline

end sub


private sub PrintPaging()
dim TotalPages
TotalItems = TotalItems
TotalPages = TotalItems/ItemsPerPage

if int(TotalPages) < TotalPages then
TotalPages = int(TotalPages) + 1
end if

dim PageName
PageName = request.servervariables("script_name")

if 1 < TotalPages then
response.write "<div class=""div_paging"">" &_
"Page: "

dim i
for i = 1 to TotalPages
if int(CurrentPage) = int(i) then
response.write " ("& i &")"
else
response.write " <a href="""& PageName &"?page="& i &""" class=""link_paging"">" &_
i &_
"</a>"
end if

if NOT i = TotalPages then
response.write ", "
end if
next

response.write "</div>"
end if
end sub

[weppos]

Inseriscila nel tag code, a leggerla così mi viene già male.

[morphe]

hai messenger o icq? così ti mando il file li e fai prima

[weppos]

Originariamente inviato da morphe
hai messenger o icq? così ti mando il file li e fai prima

No, postalo qua.
Non mi prendo compiti a casa.

[morphe]

come faccio a postartelo diversamente?

[weppos]

Originariamente inviato da morphe
come faccio a postartelo diversamente?

http://forum.html.it/forum/showthrea...threadid=97487
Punto 13.