<% if not session("allow") = 1 then response.redirect("index.asp?wasat=" & replace(Request.ServerVariables("script_name") & "?" & Request.Querystring, "&", "_-AND-_")) %> Adventure life

   Downloads   

On this page we want to make available to you term programmes, notices and information about other various things involved with Adlife.

You will need Adobe Acrobat Reader to view most of the files available.


<% link = "downloads.asp?a=a" font = "" rootpath = "C:/" rootpath = server.mappath("downloads") set FSO = Server.CreateObject("scripting.FileSystemObject") set objFSO = fso.getFolder(rootpath & "/" & request.querystring("path")) response.write("" & font & "Downloads") if not request.querystring("path") = "" then strstring = request.querystring("path") do if instr(strstring, "/") > 0 then if path = "" then path = left(strstring, instr(strstring, "/") - 1) else path = path & "/" & left(strstring, instr(strstring, "/") - 1) response.write(" > " & left(strstring, instr(strstring, "/") - 1) & "") strstring = mid(strstring, instr(strstring, "/") + 1) else response.write(" > " & font & "" & strstring & "") exit do end if loop end if %>

<% if not request.querystring("path") = "" then response.write("") stdpath = request.querystring("path") & "/" else stdpath = "" end if For each objFolder in objFSO.SubFolders response.write("") Next For each objFile in objFSO.Files set FSO2 = Server.CreateObject("scripting.FileSystemObject") set objFSO2 = FSO2.getFolder(server.MapPath("ICONS")) For each objFile2 in objFSO2.files if lcase(right(objFile.name,3)) = lcase(left(objFile2.name,len(objfile2.name) - 4)) then iconname = objFile2.name exit for else iconname = "unknown.gif" end if next response.write("") Next%>
" & font & "... up one level ..
" & font & objFolder.name & "
" & font & objFile.name & "