Script svarer ikke..
Jeg har siddet på arbejdet og lavet det her, hvor jeg pager 9 billeder (3x3)af gangen, men nu svarer det slet ikke, ingen fejlmeddelse, men det svarer bare ikke..? Så er der noegn forslag..?Plus er det her noget der kræver meget af en server..?
StrRoot = Request.QueryString("root")
StrPage = Request.Querystring("page")
ImageDir = "galleri\" & StrRoot & "\thum\" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
StrPage = Request.Querystring("page")
If isNumeric(StrPage) = False Or StrPage < 1 Then
StrPage = 1
End If
StrPageSize = 9 ' Antal filer på hver side
intImgCount = objFiles.Count
StrPageCount = -Int(-(intImgCount/StrPageSize))
'PJAT TEXT
'Response.Write "<p><strong>" & intImgCount & " Billeder - "
'Response.Write "viser side " & StrPage & " af " & StrPageCount & ":</strong></p>"
TDair = "30"
TRair = "11"
Response.Write "<table cellspacing=""0"" cellpadding=""0"" border=""0"">"& vbCrLf & "<tr>"
PicCount = 0
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((StrPage-1)*StrPageSize)+1) And (intFile =< (StrPageSize*StrPage)) Then
PicCount = PicCount + 1
Response.Write "<td align='center' valign=""middle""><a href=""include/repop.asp?id=" & StrId & "&root=" & StrRoot & "&show=" & Image.Name & "&page=" & StrPage & """>" &_
"<img src='" & ImageDir & Image.Name & "' border='0' class=""line""/></a></td>" & vbCrLf &_
"<td width=""" & TDair & """><img src=""pic/space.gif"" width=""" & TDair & """ border=""0""></td>" & vbCrLf
End If
If PicCount = 3 Or PicCount = 6 Then
Response.Write "</tr><tr>" & vbCrLf &_
"<td colspan=""6"" height=""" & TRair & """><img src=""pic/space.gif"" width=""250"" height=""" & TRair & """ border=""0""></td>" & vbCrLf &_
"</tr><tr>"
End If
Next
