Hejsa allesammen
Jeg har et problem med den fil-paging man kan finde på html.dk
(
http://www.html.dk/scripts/asp/00011)
Koden er:
<%
Dim ImageDir, objFS, objFolder, intPage, intPageSize, objFiles
ImageDir = "/files/wallpaper/" 'Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject") 'Laver Objectet
"FileSystemObject"
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir)) 'Sætter objFolder
= ImageDir
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 10 'Antal
filer pr. side
intImgCount = objFiles.Count 'HER ER DEN
FAMØSE LINIE 51!!!! Hvad er der galt?
intPage.Count = -Int(-(intImgCount/intPageSize))
Response.Write "<p><strong>" & intImgCount & " Wallpapers - Showing page " &
intPage & " af " & intPageCount & ":</strong></p>"
For Each Image In objFiles
intFile = intFile + 1
If (intFile >= ((intPage-1)*intPageSize)+1) And (int =< (intPageSize))
Then
Response.Write "<p><img src='" & ImageDir & Image.Name & "' /></p>"
End If
Next
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Go to page "
For i = 1 To intPageCount
Respons.Write "<a href=" & strScriptName & "?page=" & i & ">" & "</a> "
Next
Response.Write "</p>"
Set objFS = Nothing
%>
Øhh... Koden er lidt rodet... sorry 4 that...
Jeg får en fejl:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'
Et objekt er obligatorisk: ''
/wallpaper/wallpaper.asp, linje 51
Linie 51 lyder:
intImgCount = objFiles.Count
Er der nogen der kan se hvad der er galt??? (jo, kan godt se at der mangler
et objekt, men jeg er sgu ikk så fandens god til det....)
På forhånd MANGE tak
--
Best Regards
Santa AKA ?
--
Remove xXx to email :)
Wanted: (files may be uploadet to blackdefender.adsl.dk look/look. Please
write To Santa, it's a friends server...)
Crack for HomeSite 4.5.2 that works
Crack for ASP Edit 2001 build 28 that works
Licence # til DJ MIX PRO v. 2.0 build 4
Cheap ATX-cabinet for my pc