<% dim advertising(100) if request.querystring("page") = "" then page = 1 else page = request.querystring("page") end if ' Get images from folder Set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.GetFolder("c:\www\thedesigngroup\htdocs\images\advertising") Set fc3 = f.files x = 0 for each fl in fc3 x = x + 1 advertising(x) = fl.name ' response.write(fl.name) ' response.write("
") next total_entries = x ' next entry next_entry = page + 1 if next_entry > total_entries then next_entry = 1 end if ' prev entry prev_entry = page - 1 if prev_entry < 1 then prev_entry = total_entries end if %>