problemi caricamento pagine asp in locale

[scsi]

ciao a tutti!
ho appena cominciato ad usare l'asp...volevo provare alcuni script presenti sul sito ma quando provo a caricare la pagina in locale la barra di caricamento avanza lentamente ma non arriva mai alla fine e la pagina rimane bianca.
Uso Windows XP Professional SP2 con IIS. Le pagine sono state inserite nella cartella C:\Inetpub\wwwroot e ho dato tutti i permessi di condivisione web. La pagina iniziale di IIS si vede quando vado su localhost.
SCSI

[X_Gold*]

Originariamente inviato da scsi
ciao a tutti!
ho appena cominciato ad usare l'asp...volevo provare alcuni script presenti sul sito ma quando provo a caricare la pagina in locale la barra di caricamento avanza lentamente ma non arriva mai alla fine e la pagina rimane bianca.
Uso Windows XP Professional SP2 con IIS. Le pagine sono state inserite nella cartella C:\Inetpub\wwwroot e ho dato tutti i permessi di condivisione web. La pagina iniziale di IIS si vede quando vado su localhost.
SCSI

probabilmente va in loop il codice

[maximum]

Posta il codice della pagina ASP incrimininata.

[scsi]

ho provato gli script per le gallerie di immagini su http://freeasp.html.it/script/lista.asp?idcat=24

[maximum]

Non chiarisce però la problematica, serve il codice. :rollo:

[scsi]

<%
@Language = "VBscript"
%>
<%
'************************************************* ******************
' Darkroom Gallery v.1.0
'************************************************* ******************
' Copyright (C) 2004 bjawnie.com
'
' This script is freeware specified as follows:
'
' You may modify the script to fit your needs in anyway you like.
' If you wish to redistribute it, non-commercial or commercial, however
' you are obligated to contact the author to get his permission.
'
' All copyright notices regarding bjawnie.com or links to bjawnie.com
' must remain intact in the scripts and in the outputted HTML.
'
' Support can be obtained through our site at bjawnie.com
'************************************************* ******************

'*********
' SETTINGS
' -->
dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal
PageTitle = "Darkroom Gallery"
ImageDirectory = "foto"
ThumbnailHeight = 75
ThumbnailWidth = 75
ItemsPerPage = 10
ItemsHorizontal = 5
' <--

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=""_blank""

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


response.write "<html>" & vbnewline &_
"<head>" & vbnewline &_
"<title>" & PageTitle & "</title>" & vbnewline &_
"<style>" & vbnewline &_

"body" &_
"{" &_
"font-family: tahoma, verdana, arial;" &_
"font-size: 10pt;" &_
"color: #000000;" &_
"text-align:center;" &_
"}" & vbnewline &_

".table" &_
"{" &_
"margin:auto;" &_
"}" & vbnewline &_

".td" &_
"{" &_
"padding:20px;" &_
"}" & vbnewline &_

"a.link_image" &_
"{" &_
"border:5px groove #006600;" &_
"}" & vbnewline &_

"a.link_image:hover" &_
"{" &_
"border:5px groove #009900;" &_
"}" & vbnewline &_

"a.link_paging" &_
"{" &_
"text-decoration:underline;" &_
"color: #000000;" &_
"}" & vbnewline &_

"a.link_paging:hover" &_
"{" &_
"text-decoration:none;" &_
"color: #000000;" &_
"}" & vbnewline &_

"a.link_credits" &_
"{" &_
"font-size: 8pt;" &_
"color: #000000;" &_
"}" & vbnewline &_

".div_credits" &_
"{" &_
"font-size: 8pt;" &_
"color: #000000;" &_
"}" & vbnewline &_

".image" &_
"{" &_
"border:0px;" &_
"}" & vbnewline &_

"</style>" & vbnewline &_
"</head>" & vbnewline &_
"<body>" & vbnewline

call PrintGallery()

call PrintPaging()


response.write "
" & vbnewline &_
"
" & vbnewline &_

"<div class=""div_credits"">" &_
"Powered by <a href=""http://www.bjawnie.com/products/"" target=""_blank"" class=""link_credits"">Darkroom

Gallery</a> © 2003 bjawnie.com" &_
"</div>" & vbnewline &_

"</body>" & vbnewline &_
"</html>"
%>

[scsi]

...nessuna idea?