d:/ftp_library/ermo/<br>http://www.nyvej.dk/mortensen<br>/<br>d:/ftp_library/ermo/<br>
		<table align="CENTER" border="0">
        <form action="JavaScript:history.go(-1)" id="FORM2" method="post" name="FORM2">
          <input name="submit" type="submit" value="Back">
        </form></table>

<META NAME="description" CONTENT="" Filliste (Detail Page). Erik Mortensen>
<META NAME="keywords" CONTENT=", filliste (detail page),  filliste (detail page), one file footprint, Ermo, TEST,JMC ">

<TABLE WIDTH="100%">

<TR><TD ALIGN="LEFT" VALIGN="BOTTOM" BGCOLOR=silver><FONT FACE="Arial, Helvetica, sans-serif" SIZE=4 COLOR="#FFFFFF"><B>&nbsp;Filliste (Detail Page)</B></FONT></TD></TR>
<TR><TD ALIGN="LEFT" VALIGN="TOP"><FONT FACE="Arial, Helvetica, sans-serif" SIZE=2>Use this page to view a single document on this web site.</FONT></TD></TR>
</TABLE>


<!-- begin karalist.asp -->
<!-- ---------------------------------------------------------- -->
<P><FONT FACE="Andale Mono, Monotype.com, Courier New, Courier, sans-serif" SIZE=4><B>d:\ftp_library\ermo\dirlist.asp</B><BR>
<A HREF="http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/dirlist.asp">http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/dirlist.asp</A><BR></FONT>
<PRE>
    file size:  19.379 characters
 file created: &nbsp;<B>13. januar 2013 </B>&nbsp;14:20:44
last modified: &nbsp;<B>20. oktober 2003 </B>&nbsp;13:21:28
</PRE>
<FORM ACTION="karalist.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="fsDIR" VALUE="d:\ftp_library\ermo\">
<TABLE BGCOLOR=silver><TR><TD>
<FONT TITLE="Use this text area to view this document. " FACE="Arial, Helvetica, sans-serif"SIZE=1><B>DOCUMENT CONTENTS</B></FONT><BR>
<TEXTAREA NAME="FILEDATA" ROWS=18 COLS=70 WRAP="OFF">&lt;%@ ENABLESESSIONSTATE = False %&gt;
&lt;% Option Explicit %&gt;
&lt;%
'----------------------------------------------------
' Author: Fx
' Website: http://www11.brinkster.com/fx01
' Last Updated: October 10, 2003
' Version: 1.1
'----------------------------------------------------

'--USER SETTINGS-------------------------------------
' Show properties icon next to file/folder?
dim ShowProperties
ShowProperties = true ' true for yes, false for no

' Display properties as images or text?
dim DisplayProperties
DisplayProperties = 1 ' 1 for images, 0 for text

' Show this script's name and all images associated with it in the list of files?
dim ShowScriptInFiles
ShowScriptInFiles = false ' true for yes, false for no

' Display coloured file type icons?
dim ColouredFileTypes
ColouredFileTypes = true ' true for yes, false for no

' Calculate and show time taken to process page?
dim ShowTime
ShowTime = false ' true for yes, false for no

' Don't display the following directories:
' Syntax: array(&quot;dir/subdir1&quot;,&quot;dir/subdir2&quot;,&quot;dir/subdir3&quot;)
dim DontDisplayDirs
DontDisplayDirs = array(&quot;&quot;)
'----------------------------------------------------

' Get filename of page running script
dim cur_filename, filename
cur_filename = split(request.servervariables(&quot;SCRIPT_NAME&quot;),&quot;/&quot;)
filename = cur_filename(ubound(cur_filename))

' List folder contents
sub ListFolderContents(path)
	dim fs, folder
	set fs = CreateObject(&quot;Scripting.FileSystemObject&quot;)
	if fs.FolderExists(path) = false then response.redirect(filename &amp; &quot;?fexists=false&quot;)
	set folder = fs.GetFolder(path)

	' Display the target folder and info, and folder breadcrumb
	dim file, item, url, filecount, subfldrcnt, filessize, rootdir, rootdir1, rootdir2, rootdir3, t, k, i, j, l, StripDown
	dim extraspaces, extraspacesend, extraspaces2, extraspaces2end, upfolderpath, upfunction, upfunctionend, Display, Display2
	if ShowProperties then
		if folder.Files.Count &gt; 0 then filecount = folder.Files.Count
		if folder.Files.Count &gt; 0 then filecount = filecount &amp; &quot; files, &quot; else filecount = &quot;0 files, &quot;
		if folder.Files.Count = 1 then filecount = &quot;1 file, &quot;
		if folder.SubFolders.Count &gt; 0 then	subfldrcnt = folder.SubFolders.Count
		if folder.SubFolders.Count &gt; 0 then subfldrcnt = subfldrcnt &amp; &quot; directories, &quot; else subfldrcnt = &quot;0 directories, &quot;
		if folder.SubFolders.Count = 1 then subfldrcnt = &quot;1 directory, &quot;
		if Round(folder.Size / 1024 / 1024 / 1024,2) &gt;= 1 then
			filessize = round(folder.size / 1024 / 1024 / 1024,2) &amp; &quot; GB total&quot;
		elseif Round(folder.Size / 1024 / 1024,2) &gt;= 1  then
			filessize = round(folder.size / 1024 / 1024,2) &amp; &quot; MB total&quot;
		else
			filessize = Round(folder.Size / 1024,2) &amp; &quot; KB total&quot;
		end if
	end if
	rootdir1 = split(server.mappath(&quot;.&quot;),&quot;\&quot;)
	rootdir2 = rootdir1(ubound(rootdir1))
	rootdir3 = split(folder,&quot;\&quot;)
	for t = 0 to ubound(rootdir3)
		if lcase(rootdir3(t)) = lcase(rootdir1(ubound(rootdir1))) then
			rootdir = rootdir3(t)
		end if
	next
	if request.querystring(&quot;folder&quot;) &lt;&gt; &quot;&quot; then
		StripDown = split(request.querystring(&quot;folder&quot;),&quot;/&quot;)
		for k = 0 to ubound(StripDown)-1
			if StripDown(k) = &quot;..&quot; or StripDown(k) = &quot;.&quot; then
				response.redirect(filename &amp; &quot;?k=1&quot;)
			end if
		next
		response.write &quot;&lt;a href=&quot;&quot;&quot; &amp; filename &amp; &quot;?folder=&quot;&quot;&gt;&lt;img src=&quot;&quot;dirlist1.gif&quot;&quot; width=&quot;&quot;9&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;img src=&quot;&quot;dirlist3.gif&quot;&quot; width=&quot;&quot;16&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; align=&quot;&quot;bottom&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;maindirtext&quot;&quot;&gt;&quot; &amp; rootdir &amp; &quot;&lt;/span&gt;&lt;/a&gt;&lt;br /&gt;&quot; &amp; vbcrlf
		For i = 0 to ubound(StripDown)-1
			if upfolderpath &lt;&gt; &quot;&quot; then upfolderpath = upfolderpath &amp; &quot;/&quot; &amp; StripDown(i) else upfolderpath = StripDown(i)
			if upfolderpath &lt;&gt; &quot;&quot; then
				upfunction = &quot;&lt;a href=&quot;&quot;&quot; &amp; filename &amp; &quot;?folder=&quot; &amp; replace(upfolderpath,&quot; &quot;,&quot;%20&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
				upfunctionend = &quot;&lt;/a&gt;&quot;
			end if
			for j = 0 to i
				extraspaces = extraspaces &amp; &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
				extraspacesend = extraspacesend &amp; &quot;&quot;
			next
			response.write &quot;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&quot; &amp; extraspaces &amp; &quot;&lt;/span&gt;&quot; &amp; upfunction &amp; &quot;&lt;img src=&quot;&quot;dirlist1.gif&quot;&quot; width=&quot;&quot;9&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;img src=&quot;&quot;dirlist3.gif&quot;&quot; width=&quot;&quot;16&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; align=&quot;&quot;bottom&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;maindirtext&quot;&quot;&gt;&quot; &amp; StripDown(i) &amp; &quot;&lt;/span&gt;&quot; &amp; upfunctionend &amp; &quot;&lt;br /&gt;&quot; &amp; extraspacesend &amp; vbcrlf
			extraspaces = &quot;&quot;
			extraspacesend = &quot;&quot;
		Next
	end if
	extraspaces2 = &quot;&quot;
	extraspaces2end = &quot;&quot;
	if trim(request.querystring(&quot;folder&quot;)) &lt;&gt; &quot;&quot; then
		for l = 0 to ubound(StripDown)
			extraspaces2 = extraspaces2 &amp; &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
			extraspaces2end = extraspaces2end &amp; &quot;&quot;
		next
	end if
	if upfolderpath = &quot;&quot; and trim(request.querystring(&quot;folder&quot;)) &lt;&gt; &quot;&quot; then
		upfunction = &quot;&lt;a href=&quot;&quot;&quot; &amp; filename &amp; &quot;?folder=&quot;&quot;&gt;&quot;
		upfunctionend = &quot;&lt;/a&gt;&quot;
	end if
	if extraspaces2 &lt;&gt; &quot;&quot; then extraspaces2 = &quot;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&quot; &amp; extraspaces2 &amp; &quot;&lt;/span&gt;&quot;
	if DisplayProperties then Display = &quot;&lt;img src=&quot;&quot;dirlist7.gif&quot;&quot; width=&quot;&quot;14&quot;&quot; height=&quot;&quot;14&quot;&quot; title=&quot;&quot;&quot; &amp; filecount &amp; subfldrcnt &amp; filessize &amp; &quot;&quot;&quot; alt=&quot;&quot;&quot; &amp; filecount &amp; subfldrcnt &amp; filessize &amp; &quot;&quot;&quot; class=&quot;&quot;helppointer&quot;&quot; align=&quot;&quot;top&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&quot; else Display = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;span class=&quot;&quot;propertiesdirtext&quot;&quot;&gt;(&quot; &amp; filecount &amp; subfldrcnt &amp; filessize &amp; &quot;)&lt;/span&gt;&quot;
	if not ShowProperties then
		Display = &quot;&quot;
	end if
	Response.Write extraspaces2 &amp; upfunction &amp; &quot;&lt;img src=&quot;&quot;dirlist1.gif&quot;&quot; width=&quot;&quot;9&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;img src=&quot;&quot;dirlist8.gif&quot;&quot; width=&quot;&quot;16&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; align=&quot;&quot;bottom&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;maindirtext&quot;&quot;&gt;&quot; &amp; folder.Name &amp; &quot;&lt;/span&gt;&quot; &amp; upfunctionend &amp; &quot;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot; &amp; Display &amp; &quot;&lt;br /&gt;&quot; &amp; extraspaces2end &amp; vbCrLf

	' Display a list of sub folders.
	dim extraspaces4, extraspaces4end, fldrfilesize, fldrdircount, fldrfilecount, gotopath, p, h, DDD
	if trim(request.querystring(&quot;folder&quot;)) &lt;&gt; &quot;&quot; then
		if ubound(StripDown) = 0 then
			extraspaces4 = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
			extraspaces4end = &quot;&quot; 
		else
			for p = 0 to ubound(StripDown)+1
				extraspaces4 = extraspaces4 &amp; &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
				extraspaces4end = extraspaces4end &amp; &quot;&quot;
			next
		end if
	else
		extraspaces4 = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
		extraspaces4end = &quot;&quot;
	end if
	for each item in folder.SubFolders
		if item.Files.count &gt; 0 then
			if ShowProperties then
				if Round(item.Size / 1024 / 1024 / 1024,2) &gt;= 1 then
					fldrfilesize = round(item.size / 1024 / 1024 / 1024,2) &amp; &quot; GB in directory&quot;
				elseif Round(item.Size / 1024 / 1024,2) &gt;= 1 then
					fldrfilesize = round(item.size / 1024 / 1024,2) &amp; &quot; MB in directory&quot;
				else
					fldrfilesize = Round(item.Size / 1024) &amp; &quot; KB in directory&quot;
				end if
			end if
		else
			fldrfilesize = &quot; 0 KB in directory&quot;
		end if
		if ShowProperties then
			if item.subfolders.count &gt; 0 then fldrdircount = item.subfolders.count
			if item.subfolders.count &gt; 1 then fldrdircount = fldrdircount &amp; &quot; directories, &quot; else fldrdircount = &quot;0 directories, &quot;
			if item.files.count &gt; 0 then fldrfilecount = item.files.count
			if item.files.count &gt; 1 then fldrfilecount = fldrfilecount &amp; &quot; files, &quot; else fldrfilecount = &quot;0 files, &quot;
		end if
		if request.querystring(&quot;folder&quot;) &lt;&gt; &quot;&quot; then gotopath = request.querystring(&quot;folder&quot;) &amp; &quot;/&quot; &amp; item.name else gotopath = item.name
		if DisplayProperties then Display2 = &quot;&lt;img src=&quot;&quot;dirlist7.gif&quot;&quot; width=&quot;&quot;14&quot;&quot; height=&quot;&quot;14&quot;&quot; title=&quot;&quot;&quot; &amp; fldrfilecount &amp; fldrdircount &amp; fldrfilesize &amp; &quot;&quot;&quot; alt=&quot;&quot;&quot; &amp; fldrfilecount &amp; fldrdircount &amp; fldrfilesize &amp; &quot;&quot;&quot; class=&quot;&quot;helppointer&quot;&quot; align=&quot;&quot;top&quot;&quot; /&gt;&quot; else Display2 = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;span class=&quot;&quot;propertiesdirtext&quot;&quot;&gt;(&quot; &amp; fldrfilecount &amp; fldrdircount &amp; fldrfilesize &amp; &quot;)&lt;/span&gt;&quot;
		if not ShowProperties then
			Display2 = &quot;&quot;
		end if
		for h = 0 to ubound(DontDisplayDirs)
			if lcase(DontDisplayDirs(h)) &lt;&gt; lcase(gotopath) then
				DDD = true
			else
				DDD = false
				exit for
			end if
		next
		if DDD then response.write &quot;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&quot; &amp; extraspaces4 &amp; &quot;&lt;/span&gt;&quot; &amp; &quot;&lt;a href=&quot;&quot;&quot; &amp; filename &amp; &quot;?folder=&quot; &amp; server.URLEncode(gotopath) &amp; &quot;&quot;&quot;&gt;&lt;img src=&quot;&quot;dirlist2.gif&quot;&quot; width=&quot;&quot;9&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;img src=&quot;&quot;dirlist3.gif&quot;&quot; width=&quot;&quot;16&quot;&quot; height=&quot;&quot;13&quot;&quot; alt=&quot;&quot;&quot;&quot; align=&quot;&quot;bottom&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;maindirtext&quot;&quot;&gt;&quot; &amp; item.name &amp; &quot;&lt;/span&gt;&lt;/a&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot; &amp; Display2 &amp; &quot;&lt;br /&gt;&quot; &amp; extraspaces4end &amp; vbcrlf
		fldrdircount = &quot;&quot;
		fldrfilesize = &quot;&quot;
		fldrfilecount = &quot;&quot;
		DDD = false
	next
	
	' Display a list of files.
	dim extraspaces5, extraspaces5end, q, filesize, extension, filepath, Display3, DNSI
	if trim(request.querystring(&quot;folder&quot;)) &lt;&gt; &quot;&quot; then
		if ubound(StripDown) = 0 then
			extraspaces5 = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
			extraspaces5end = &quot;&quot; 
		else
			for q = 0 to ubound(StripDown)+1
				extraspaces5 = extraspaces5 &amp; &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
				extraspaces5end = extraspaces5end &amp; &quot;&quot;
			next
		end if
	else
		extraspaces5 = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;
		extraspaces5end = &quot;&quot;
	end if
	
	for each item in folder.Files
		' if ShowScriptInFiles is false and item.name equals one of the script's files, do not show it in files list.
		if not ShowScriptInFiles and lcase(item.name) = lcase(filename) and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist1.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist2.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist3.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4-1.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4-2.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4-3.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4-4.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4-5.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist4-6.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist5.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist6.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist7.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;dirlist8.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		elseif not ShowScriptInFiles and lcase(item.name) = &quot;valid.gif&quot; and request.querystring(&quot;folder&quot;) = &quot;&quot; then
			DNSI = true
		else
			DNSI = false
		end if
		
		if not DNSI then
			dim GetVirDirPath, GetVirDirPath2, a, ff
			if ShowProperties then
				if round(item.size / 1024 / 1024 / 1024,2) &gt;= 1 then
					filesize = round(item.size / 1024 / 1024 / 1024,2) &amp; &quot; GB&quot;
				elseif round(item.size / 1024 / 1024,2) &gt;= 1 then
					filesize = round(item.size / 1024 / 1024,2) &amp; &quot; MB&quot;
				elseif round(item.size / 1024,2) &gt;= 1 then
					filesize = Round(item.Size / 1024,2) &amp; &quot; KB&quot;
				elseif item.size &lt; 1024 then
					filesize = round(item.size) &amp; &quot; Bytes&quot;
				end if
			end if
			if ColouredFileTypes then	
				if right(lcase(item.name),4) = &quot;.exe&quot; or right(lcase(item.name),4) = &quot;.bat&quot; or right(lcase(item.name),4) = &quot;.com&quot; then
					extension = &quot;dirlist4-1.gif&quot;
				elseif right(lcase(item.name),4) = &quot;.gif&quot; or right(lcase(item.name),4) = &quot;.jpg&quot; or right(lcase(item.name),5) = &quot;.jpeg&quot; or right(lcase(item.name),4) = &quot;.bmp&quot; or right(lcase(item.name),4) = &quot;.png&quot; then
					extension = &quot;dirlist4-2.gif&quot;
				elseif right(lcase(item.name),4) = &quot;.mp3&quot; or right(lcase(item.name),4) = &quot;.mpg&quot; or right(lcase(item.name),5) = &quot;.mpeg&quot; or right(lcase(item.name),4) = &quot;.avi&quot; then
					extension = &quot;dirlist4-3.gif&quot;
				elseif right(lcase(item.name),4) = &quot;.zip&quot; or right(lcase(item.name),4) = &quot;.ace&quot; or right(lcase(item.name),4) = &quot;.arj&quot; or right(lcase(item.name),4) = &quot;.lzh&quot; or right(lcase(item.name),4) = &quot;.cab&quot; or right(lcase(item.name),4) = &quot;.jar&quot; or right(lcase(item.name),4) = &quot;.gz&quot; or right(lcase(item.name),4) = &quot;.tar&quot; then
					extension = &quot;dirlist4-4.gif&quot;
				elseif right(lcase(item.name),4) = &quot;.htm&quot; or right(lcase(item.name),5) = &quot;.html&quot; or right(lcase(item.name),4) = &quot;.asp&quot; or right(lcase(item.name),3) = &quot;.js&quot; or right(lcase(item.name),4) = &quot;.css&quot; or right(lcase(item.name),4) = &quot;.vbs&quot; then
					extension = &quot;dirlist4-5.gif&quot;
				elseif right(lcase(item.name),4) = &quot;.pdf&quot; or right(lcase(item.name),4) = &quot;.doc&quot; or right(lcase(item.name),4) = &quot;.xls&quot; or right(lcase(item.name),4) = &quot;.txt&quot; or right(lcase(item.name),4) = &quot;.nfo&quot; then
					extension = &quot;dirlist4-6.gif&quot;
				else
					extension = &quot;dirlist4.gif&quot;
				end if
			else
				extension = &quot;dirlist4.gif&quot;
			end if
			GetVirDirPath = split(request.ServerVariables(&quot;URL&quot;),&quot;/&quot;)
			GetVirDirPath2 = request.querystring(&quot;folder&quot;)
			for a = 1 to ubound(GetVirDirPath)-1
				ff = GetVirDirPath(a)
			next
			if GetVirDirPath2 &lt;&gt; &quot;&quot; then filepath = GetVirDirPath2 &amp; &quot;/&quot; &amp; item.name else filepath = item.name
			filepath = replace(filepath,&quot;%&quot;,&quot;%25&quot;)
			filepath = replace(filepath,&quot; &quot;,&quot;%20&quot;)
			if DisplayProperties then Display3 = &quot;&lt;img src=&quot;&quot;dirlist5.gif&quot;&quot; width=&quot;&quot;14&quot;&quot; height=&quot;&quot;14&quot;&quot; title=&quot;&quot;&quot; &amp; filesize &amp; &quot;&quot;&quot; alt=&quot;&quot;&quot; &amp; filesize &amp; &quot;&quot;&quot; class=&quot;&quot;helppointer&quot;&quot; align=&quot;&quot;top&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;img src=&quot;&quot;dirlist6.gif&quot;&quot; width=&quot;&quot;14&quot;&quot; height=&quot;&quot;14&quot;&quot; title=&quot;&quot;Last modified on &quot; &amp; item.DateLastModified &amp; &quot;&quot;&quot; alt=&quot;&quot;Last modified on &quot; &amp; item.DateLastModified &amp; &quot;&quot;&quot; class=&quot;&quot;helppointer&quot;&quot; align=&quot;&quot;top&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&quot; else Display3 = &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;span class=&quot;&quot;propertiesfiletext&quot;&quot;&gt;(&quot; &amp; filesize &amp; &quot;. Last modified on &quot; &amp; item.DateLastModified &amp; &quot;)&lt;/span&gt;&quot;
			if not ShowProperties then
				Display3 = &quot;&quot;
			end if
			Response.Write &quot;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&quot; &amp; extraspaces5 &amp; &quot;&lt;/span&gt;&quot; &amp; &quot;&lt;a href=&quot;&quot;&quot; &amp; filepath &amp; &quot;&quot;&quot;&gt;&lt;img src=&quot;&quot;&quot; &amp; extension &amp; &quot;&quot;&quot; width=&quot;&quot;12&quot;&quot; height=&quot;&quot;14&quot;&quot; alt=&quot;&quot;&quot; &amp; item.type &amp; &quot;&quot;&quot; title=&quot;&quot;&quot; &amp; item.type &amp; &quot;&quot;&quot; border=&quot;&quot;0&quot;&quot; /&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;mainfiletext&quot;&quot;&gt;&quot; &amp; item.Name &amp; &quot;&lt;/span&gt;&lt;/a&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt; &lt;/span&gt;&lt;span class=&quot;&quot;resize&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot; &amp; Display3 &amp; &quot;&lt;br /&gt;&quot; &amp; extraspaces5end &amp; vbCrLf
			filepath = &quot;&quot;
		end if
	next
	
	' Cleanup
	set fs = nothing
	set folder = nothing
end sub
%&gt;
&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Directory Listing&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot; /&gt;
&lt;style type=&quot;text/css&quot;&gt;
&lt;!--
&lt;%
dim strUserAgent, IE, Opera, NS4
strUserAgent = ucase(cstr(request.servervariables(&quot;HTTP_USER_AGENT&quot;)))
if instr(strUserAgent, &quot;MSIE&quot;) then IE = true
if instr(strUserAgent, &quot;OPERA&quot;) then Opera = true
if instr(strUserAgent, &quot;MOZILLA/4&quot;) and not (IE OR Opera) then NS4 = true
if not NS4 then response.write &quot;img { vertical-align: top; }&quot;
%&gt;
body { font-family: Tahoma, Arial, sans-serif; font-size: 12px; margin: 5px; padding: 0px; } /* Change the margin and padding to whatever you want */
.helppointer { cursor: help; }
.resize { font-size: 10px; }
.error { color: #f00; margin-bottom: 10px; text-decoration: underline; }
.maindirtext { } /* Style for directories text */
.mainfiletext { } /* Style for files text */
.propertiesdirtext { font-style: italic; } /* Style for properties text for directories */
.propertiesfiletext { font-style: italic; } /* Style for properties text for files */
.footer { font-family: Tahoma, Arial; font-size: 12px; }
.validimg:hover { background-color: #ff0; }
a:link { color: #000; text-decoration: none; }
a:visited { color: #000; text-decoration: none; }
a:hover { color: #999; text-decoration: none; }
--&gt;
&lt;/style&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;%
dim dirtraversal, nStartTime, nEndTime, nTime
if left(trim(request.querystring(&quot;folder&quot;)),1) = &quot;/&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),2) = &quot;..&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),1) = &quot;.&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),3) = &quot;/..&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),2) = &quot;/.&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),4) = &quot;/../&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),3) = &quot;/./&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),3) = &quot;../&quot; then dirtraversal = true
if left(trim(request.querystring(&quot;folder&quot;)),2) = &quot;./&quot; then dirtraversal = true
if right(trim(request.querystring(&quot;folder&quot;)),3) = &quot;/..&quot; then dirtraversal = true
if right(trim(request.querystring(&quot;folder&quot;)),4) = &quot;/../&quot; then dirtraversal = true
if right(trim(request.querystring(&quot;folder&quot;)),2) = &quot;/.&quot; then dirtraversal = true
if right(trim(request.querystring(&quot;folder&quot;)),3) = &quot;/./&quot; then dirtraversal = true

if dirtraversal = true then
	response.redirect(filename &amp; &quot;?k=1&quot;)
elseif trim(request.querystring(&quot;folder&quot;)) = &quot;&quot; then
	if ShowTime then nStartTime = Timer()
	if request.querystring(&quot;k&quot;) = 1 then
		response.write &quot;&lt;p class=&quot;&quot;error&quot;&quot;&gt;&lt;strong&gt;Error in path!&lt;/strong&gt;&lt;/p&gt;&quot; &amp; vbcrlf
	elseif request.querystring(&quot;fexists&quot;) = &quot;false&quot; then
		response.write &quot;&lt;p class=&quot;&quot;error&quot;&quot;&gt;&lt;strong&gt;Folder not found!&lt;/strong&gt;&lt;/p&gt;&quot; &amp; vbcrlf
	end if
	response.write &quot;&lt;p&gt;&quot; &amp; vbcrlf
	ListFolderContents server.MapPath(&quot;.&quot;)
	response.write &quot;&lt;/p&gt;&quot; &amp; vbcrlf
	if ShowTime then
		nEndTime = Timer()
		nTime = nEndTime - nStartTime
		response.write &quot;Display took &lt;strong&gt;&quot; &amp; round(nTime,2) &amp; &quot;&lt;/strong&gt; seconds.&quot;
	end if
else
	if ShowTime then nStartTime = Timer()
	response.write &quot;&lt;p&gt;&quot; &amp; vbcrlf
	dim t, DDD1
	for t = 0 to ubound(DontDisplayDirs)
		if lcase(DontDisplayDirs(t)) &lt;&gt; lcase(request.querystring(&quot;folder&quot;)) then
			DDD1 = true
		else
			DDD1 = false
			exit for
		end if
	next
	if DDD1 then
		ListFolderContents Server.MapPath(request.querystring(&quot;folder&quot;))
	else
		response.redirect(filename &amp; &quot;?fexists=false&quot;)
	end if
	response.write &quot;&lt;/p&gt;&quot; &amp; vbcrlf
	if ShowTime then
		nEndTime = Timer()
		nTime = nEndTime - nStartTime
		response.write &quot;Display took &lt;strong&gt;&quot; &amp; round(nTime,2) &amp; &quot;&lt;/strong&gt; seconds.&quot;
	end if
end if
%&gt;
&lt;/body&gt;
&lt;/html&gt;</TEXTAREA>
</TD></TR></TABLE>

<BR><BR>

</FORM>

<!-- ---------------------------------------------------------- -->
<!-- end karalist.asp -->

		<table align="CENTER" border="0">
        <form action="JavaScript:history.go(-1)" id="FORM2" method="post" name="FORM2">
          <input name="submit" type="submit" value="Back">
        </form></table>

<HR><FONT SIZE=1 FACE="Arial, Helvetica, sans-serif"><FONT COLOR=silver SIZE=3 FACE="Arial, Helvetica, sans-serif">Erik Mortensen</FONT>
<BR>20. december 2025 &nbsp; 02:35:29
</BODY></HTML>