Kan ikke åbne side 2 i mit billede galleri
Hejsa....Jeg har fundet et billede galleri inde på www.asp-script.dk som, jeg har fået tilpasset så det passer på min hjemmeside www.kauri.dk
Jeg har et problem når jeg vil se síde 2 i mit billed galleri, så kommer der kun en grå side frem. Min script ser således ud.
***** image_gallery.asp ****
<%
dim strfilearr, strcountfiles, randomfile, directory, allfiles, directoryfile
strmappe = "pic"
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(strmappe))
For each directoryfile in allfiles.files
strfilearr = strfilearr + directoryfile.Name & ","
strcountfiles = strcountfiles + 1
Next
if request.querystring("execute") ="popup" then
ImageArray = split(strfilearr,",")
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>image gallery [goat design]</title>" & vbCrLf &_
"<script>" & vbCrLf &_
"function resizeMe(){" & vbCrLf &_
"if (navigator.appName == 'Netscape'){" & vbCrLf &_
"adjWidth = document.images[""0""].width + 6;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 27;" & vbCrLf &_
"}" & vbCrLf &_
"else {" & vbCrLf &_
"adjWidth = document.images[""0""].width + 100;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 150;" & vbCrLf &_
"}" & vbCrLf &_
"window.resizeTo(adjWidth, adjHeight);" & vbCrLf &_
"window.focus()" & vbCrLf &_
"}" & vbCrLf &_
"</script>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body margin='0' onLoad=""resizeMe();"">" & vbCrLf &_
"<table style='width:100%;height:100%;'>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>" & vbCrLf &_
"<img src='"&strmappe&"/"&ImageArray(request.querystring("id")-1)&"' name=""0"" id='0' border='0'>" & vbCrLf &_
"</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='text-align:center;'><a href='java script:window.close();'>close</a></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf &_
"</body>" & vbCrLf &_
"</html>" & vbCrLf
else
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>image gallery [goat design]</title>" & vbCrLf &_
"<SCRIPT LANGUAGE=""Javascript"" type=""text/javascript"">" & vbCrLf &_
"<!--" & vbCrLf &_
"function Popit(url) {" & vbCrLf &_
" popupWin = window.open(url,'new_page','width=500,height=400,scrollbars=yes')" & vbCrLf &_
"}" & vbCrLf &_
"//-->" & vbCrLf &_
"</SCRIPT>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body style='text-align:center;'>" & vbCrLf
Dim CurrentPage, CountPages, ItemsprPage, ItemsTotal, ImageArray, StartImg, EndImg, SiteName, CountImgPrint
SiteName = "image_gallery.asp"
ItemsTotal = strcountfiles
ItemsprPage = "12"
CurrentPage = request.querystring("id")
If CurrentPage = "" or CurrentPage = "0" then CurrentPage = "1"
CountPages = (ItemsTotal/ItemsprPage)
if CountPages > int(CountPages) then CountPages = int(CountPages) + 1
ImageArray = split(strfilearr,",")
StartImg = ((CurrentPage-1)*(ItemsprPage))
If StartImg = "0" then StartImg = "1"
EndImg = (ItemsTotal-StartImg)
if cint(EndImg) > cint(ItemsprPage) then
EndImg = round(StartImg-1) + round(ItemsprPage)
else
EndImg = (StartImg + EndImg)
End if
response.write "<table style='width:50%;'>"
CountImgPrint = 0
For I = StartImg to EndImg
CountImgPrint = CountImgPrint +1
If CountImgPrint = 1 then response.write "<tr>" & vbCrLf & vbCrLf
response.write "<td style='width:20%;text-align:center;'><a href=""java script: Popit('"&SiteName&"?execute=popup&id="&I&"')"" onfocus='blur()'><img src='"&strmappe&"/"&ImageArray(I-1)&"' border='0' style='width:41px;;height:41px;' /></a></td>" & vbCrLf
If CountImgPrint = 5 then
response.write "</tr>" & vbCrLf & vbCrLf
CountImgPrint = 0
end if
Next
response.write "</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td colspan='5' style='width:100%;text-align:center;'>" & vbCrLf
For I = 1 to CountPages
If NOT Cint(CurrentPage) = Cint(I) then
response.write "<a href='default.asp?emne=pic?id="&I&"'>"&I&"</a><br>"
else
response.write "["&I&"]"
end if
Next
response.write "</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf &_
"</body>" & vbCrLf &_
"</html>" & vbCrLf
end if
%>
