<html>
<head>
<title>Spoof Ads</title>
</head>
<body>
<%
strPhysicalPath = "/spoofs/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(strPhysicalPath))
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 10 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(objFiles.Count/intPageSize))
Response.Write "<p><strong>" & objFiles.Count & " Imágenes - "
Response.Write "página " & intPage & " de " & intPageCount & ":</strong></p>"
For Each objFileItem In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
Response.Write "<p><a href='" & strPhysicalPath & objFileItem.Name & "'>" & strPhysicalPath &
objFileItem.Name & "</a></p>"
End If
Next
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Páginas: "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">"
IF
i = CInt(intPage) THEN
Response.Write "<font size=2>" & i & "</font>"
ELSE
Response.Write i
END IF
Response.Write "</a> "
Next
Response.Write "</p>"
Set objFS = Nothing
%>
</body>
</html>