<%
dim fs, folder, item, totalfiles
pageno = request.querystring("pageno")
if (pageno = 0 or pageno = null) then
pageno = 1
end if
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(Server.MapPath("/guest"))
totalfiles = folder.Files.Count
ReDim fileArray(totalfiles)
i=0
for each item in folder.Files
fileArray(i) = item.Name
i = i+1
next
start = 5*(pageno-1)
for i = 0 to 4
if (start+i < totalfiles) then
response.write ("" & vbcrlf & "" & vbcrlf)
response.write ("![](guest/")) " & " | " & vbcrlf & " " & vbcrlf)
end if
next
%>
|
<%
if (pageno = 1) then
response.write ("Next Page")
else
response.write ("Prev Page")
response.write (" ")
if (pageno+1 < (totalfiles/5)+1) then
response.write ("Next Page")
end if
end if
%>
|
|
![[Accommodation Approved Logo]](accommodation_approved.gif)
![[Western Canada Bed & Breakfast Innkeepers Association]](wcbbia_logo.gif){kind=logo}