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\karalist.asp</B><BR>
<A HREF="http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/karalist.asp">http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/karalist.asp</A><BR></FONT>
<PRE>
    file size:  17.897 characters
 file created: &nbsp;<B>13. januar 2013 </B>&nbsp;14:20:45
last modified: &nbsp;<B>25. januar 2009 </B>&nbsp;16:54:59
</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;%'&lt;!--#include file =&quot;top.asp&quot;--&gt;%&gt;
&lt;%
'

	'universal variables (these undo the option explicit)

	Dim action
	Dim a,b,c,i,item,j
	Dim arr,tstr

	'security

'configuration

	Dim gblSiteName,gblSiteCode
	gblSiteName = &quot;Erik Mortensen&quot; 'Your site name here
	gblSiteCode = &quot;&quot;

	Dim gblNow		'server may not be local time
	gblNow = Now

	Dim gblFace,gblColor	'needs three quotes
	gblFace	= &quot;&quot;&quot;Arial, Helvetica, sans-serif&quot;&quot;&quot;
	gblColor = &quot;&quot;&quot;silver&quot;&quot;&quot;

	'global variables

	Dim gblTitle,gblPageText
	gblTitle = &quot; * * * TITLE NOT SET * * * &quot;
	gblPageText = Null

	'global constants

	Dim gblScriptName
	gblScriptName = Request.ServerVariables(&quot;Script_Name&quot;)
	gblScriptName = Mid(gblScriptName,InstrRev(gblScriptName,&quot;/&quot;) + 1)

	Dim gblRoot
	gblRoot = Replace(Request.ServerVariables(&quot;Script_Name&quot;),&quot;/&quot; &amp; gblScriptName,&quot;&quot;)
	
	Dim gblRed
	gblRed = &quot;&quot;&quot;#FF0000&quot;&quot;&quot;

	Dim gblReverse
	gblReverse = &quot;&quot;&quot;#E0E0E0&quot;&quot;&quot;

Sub StartHTML

%&gt;
&lt;% if fsRoot &lt;&gt; &quot;d:\ftp_library\ermo\karaoke\&quot; then %&gt;
		&lt;table align=&quot;CENTER&quot; border=&quot;0&quot;&gt;
        &lt;form action=&quot;JavaScript:history.go(-1)&quot; id=&quot;FORM2&quot; method=&quot;post&quot; name=&quot;FORM2&quot;&gt;
          &lt;input name=&quot;submit&quot; type=&quot;submit&quot; value=&quot;Back&quot;&gt;
        &lt;/form&gt;&lt;/table&gt;
&lt;% else 
end if%&gt;
&lt;META NAME=&quot;description&quot; CONTENT=&quot;&quot; &lt;%=gblTitle%&gt;. &lt;%=gblSiteName%&gt;&gt;
&lt;META NAME=&quot;keywords&quot; CONTENT=&quot;, &lt;%=Lcase(gblTitle)%&gt;,  &lt;%=Lcase(gblTitle)%&gt;, one file footprint, Ermo, TEST,JMC &quot;&gt;

&lt;TABLE WIDTH=&quot;100%&quot;&gt;

&lt;TR&gt;&lt;TD ALIGN=&quot;LEFT&quot; VALIGN=&quot;BOTTOM&quot; BGCOLOR=silver&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=4 COLOR=&quot;#FFFFFF&quot;&gt;&lt;B&gt;&amp;nbsp;&lt;%=gblTitle%&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;
&lt;TR&gt;&lt;TD ALIGN=&quot;LEFT&quot; VALIGN=&quot;TOP&quot;&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=2&gt;&lt;%=gblPageText%&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;
&lt;/TABLE&gt;


&lt;!-- begin &lt;%=gblScriptName%&gt; --&gt;
&lt;!-- ---------------------------------------------------------- --&gt;
&lt;%
End Sub 
Sub EndHTML
%&gt;
&lt;!-- ---------------------------------------------------------- --&gt;
&lt;!-- end &lt;%=gblScriptName%&gt; --&gt;
&lt;% if fsRoot &lt;&gt; &quot;d:\ftp_library\ermo\karaoke\&quot; then %&gt;
		&lt;table align=&quot;CENTER&quot; border=&quot;0&quot;&gt;
        &lt;form action=&quot;JavaScript:history.go(-1)&quot; id=&quot;FORM2&quot; method=&quot;post&quot; name=&quot;FORM2&quot;&gt;
          &lt;input name=&quot;submit&quot; type=&quot;submit&quot; value=&quot;Back&quot;&gt;
        &lt;/form&gt;&lt;/table&gt;
&lt;% else 
end if%&gt;
&lt;HR&gt;&lt;FONT SIZE=1 FACE=&lt;%=gblFace%&gt;&gt;&lt;FONT COLOR=silver SIZE=3 FACE=&lt;%=gblFace%&gt;&gt;&lt;%=gblSiteName%&gt;&lt;/FONT&gt;
&lt;BR&gt;&lt;%= FormatDateTime(gblNow,1) %&gt; &amp;nbsp; &lt;%= FormatDateTime(gblNow,3) %&gt;
&lt;/BODY&gt;&lt;/HTML&gt;&lt;%
End Sub 'EndHTML

'--
' Authorize


'--
' Condensation
Function Condensation(s)
	a = 0
	For i = 1 to len(s)
		a = (ASC(mid(s,i,1)) + a*2) Mod 77411
	Next 'i
	Condensation = Right(&quot;00000&quot; &amp; Cstr(a),5) &amp; Right(&quot;00000&quot; &amp; Cstr((len(s)*23)+25433),5)
End Function 'Condensation(s)

'--
' CreateImageTag
Function CreateImageTag(fn,altstr,align,border)
Dim f,fso,pn
Dim tstr,alignstr,borderstr
Dim chars,hw,width,height

	If border = &quot;&quot; Then
		borderstr = &quot; BORDER=0&quot;
	Else
		borderstr = &quot; BORDER=&quot; &amp; Cstr(border)
	End If
	If align = &quot;&quot; Then
		alignstr = &quot;&quot;
	Else
		alignstr = &quot; ALIGN=&quot;&quot;&quot; 
		Select Case UCase(left(align,1))
		Case &quot;L&quot;
			tstr = &quot;LEFT&quot;
		Case &quot;R&quot;
			tstr = &quot;RIGHT&quot;
		Case &quot;C&quot;
			tstr = &quot;CENTER&quot;
		Case Else
		End Select
		alignstr = &quot; ALIGN=&quot;&quot;&quot; &amp; tstr &amp; &quot;&quot;&quot;&quot;
	End If		

	Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
	pn = Server.MapPath(fn) 
	
	tstr = &quot;&quot;
	Set f = fso.OpenTextFile(pn)

	Select Case UCase(Right(fn,4))
	Case &quot;.GIF&quot;,&quot;.JPG&quot;
		If NOT f.AtEndOfStream Then
			If UCase(Right(fn,4)) = &quot;.GIF&quot; Then 'always works
				chars		= f.read(10)
				width		= asc(mid(chars,8,1))*256 + asc(mid(chars,7,1))
				height	= asc(mid(chars,10,1))*256 + asc(mid(chars,9,1))
				hw = &quot; WIDTH=&quot; &amp; width &amp; &quot; HEIGHT=&quot; &amp; height
			Else 'usually works
				chars		= f.read(200)
				height	= asc(mid(chars,164,1))*256 + asc(mid(chars,165,1))
				width		= asc(mid(chars,166,1))*256 + asc(mid(chars,167,1))
				If (height &gt; 600) OR (height &lt; 3) OR (WIDTH &lt; 3) OR (WIDTH &gt; 600) Then
					'could be wrong height, width... forget 'em
				Else
					hw = &quot; WIDTH=&quot; &amp; width &amp; &quot; HEIGHT=&quot; &amp; height
				End If
			End If
		End If
		tstr = &quot;&lt;IMG SRC=&quot;&quot;&quot; &amp; Replace(Replace(fn,&quot;\&quot;,&quot;/&quot;),&quot; &quot;,&quot;%20&quot;) &amp; &quot;&quot;&quot;&quot; &amp; hw &amp; borderstr &amp; alignstr &amp; &quot; ALT=&quot;&quot;&quot; &amp; altstr &amp; &quot;&quot;&quot;&gt;&quot;
	End Select
	f.Close
	Set f = Nothing
	Set fso = Nothing
	CreateImageTag = tstr
End Function 'CreateImageTag

'--
' DetailPage
Sub DetailPage
Dim chars,fstr,hw,height,width
Dim IsTextFile,pathname
Dim fsize,fdatecreated,fdatelastmodified

	pathname = fsDir &amp; fn
	If right(pathname,1) = &quot;\&quot; Then pathname = Left(pathname,len(pathname)-1)
	
	' create if you gotta
	If fso.FileExists(pathname) Then
	Else
		Select Case UCase(Request.QueryString(&quot;T&quot;))
		Case &quot;D&quot; 'create document
			Set f = fso.CreateTextFile(pathname)
			f.Close
			Set f= Nothing
		Case &quot;F&quot; 'create folder
			Set f = fso.CreateFolder(pathname)
			pathname = pathname &amp; &quot;\&quot;
			response.redirect gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(pathname)
		End Select
	End If
	
	StartHTML
	response.write &quot;&lt;P&gt;&lt;FONT FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=4&gt;&lt;B&gt;&quot; &amp; pathname &amp; &quot;&lt;/B&gt;&lt;BR&gt;&quot; &amp; VBCRLF
	response.write &quot;&lt;A HREF=&quot;&quot;&quot; &amp; webbase &amp; fn &amp; &quot;&quot;&quot;&gt;&quot; &amp; webbase &amp; fn &amp; &quot;&lt;/A&gt;&lt;BR&gt;&lt;/FONT&gt;&quot; &amp; VBCRLF
	
	If fso.FileExists(pathname) Then 
		' fetch NT's file information 
		Set f = fso.GetFile(pathname) 
		fsize = f.size 
		fdatecreated = f.datecreated 
		fdatelastmodified = f.datelastmodified
		response.write &quot;&lt;PRE&gt;&quot; &amp; VBCRLF
		response.write &quot;    file size:  &quot; &amp; FormatNumber(fsize,0) &amp; &quot; characters&quot; &amp; VBCRLF
		response.write &quot; file created: &amp;nbsp;&lt;B&gt;&quot; &amp; FormatDateTime(fdatecreated,1) &amp; &quot; &lt;/B&gt;&amp;nbsp;&quot; &amp; FormatDateTime(fdatecreated,3) &amp; VBCRLF
		response.write &quot;last modified: &amp;nbsp;&lt;B&gt;&quot; &amp; FormatDateTime(fdatelastmodified,1) &amp; &quot; &lt;/B&gt;&amp;nbsp;&quot; &amp; FormatDateTime(fdatelastmodified,3) &amp; VBCRLF
		response.write &quot;&lt;/PRE&gt;&quot; &amp; VBCRLF
		Set f = Nothing
	End If
	
	response.write &quot;&lt;FORM ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;&quot;&quot; METHOD=&quot;&quot;POST&quot;&quot;&gt;&quot; &amp; VBCRLF
	response.write &quot;&lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;fsDIR&quot;&quot; VALUE=&quot;&quot;&quot; &amp; fsDir &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
	
	IsTextFile = FALSE
	Select Case UCase(Right(fn,4))
	Case &quot;.GIF&quot;,&quot;.JPG&quot;
		tstr = CreateImageTag(basedir &amp; fn,fn &amp; &quot; (&quot; &amp; FormatNumber(Int(fsize/1024*10+.05)/10,1) &amp; &quot; Kb)&quot;,&quot;&quot;,0)
		response.write &quot;&lt;FONT FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=2&gt;&quot;
		response.write Server.HTMLEncode(tstr) &amp; &quot;&lt;/FONT&gt;&lt;BR&gt;&lt;BR&gt;&quot; &amp; tstr &amp; &quot;&lt;P&gt;&quot; &amp; VBCRLF
	Case &quot;.URL&quot;
		Set f = fso.OpenTextFile(pathname)
		If NOT f.AtEndOfStream Then tstr = f.readall
		f.Close
		Set f = Nothing
		response.write &quot;&lt;FONT COLOR=&quot;&quot;#3333FF&quot;&quot; FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=2&gt;&quot; &amp; VBCRLF
		response.write Replace(Server.HTMLEncode(tstr),VBCRLF,VBCRLF &amp; &quot;&lt;BR&gt;&quot;)
		response.write &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF
	Case &quot;.TXT&quot;,&quot;.ASA&quot;,&quot;.ASP&quot;,&quot;.HTM&quot;,&quot;HTML&quot;,&quot;.CFM&quot;,&quot;PHP3&quot;
		'read the file
		Set f = fso.OpenTextFile(pathname)
		If NOT f.AtEndOfStream Then fstr = f.readall
		f.Close
		Set f = Nothing
		Set fso = Nothing
		IsTextFile = TRUE
		response.write &quot;&lt;TABLE BGCOLOR=silver&gt;&lt;TR&gt;&lt;TD&gt;&quot; &amp; VBCRLF
		response.write &quot;&lt;FONT TITLE=&quot;&quot;Use this text area to view this document. &quot;&quot; FACE=&quot; &amp; gblFace &amp; &quot;SIZE=1&gt;&lt;B&gt;DOCUMENT CONTENTS&lt;/B&gt;&lt;/FONT&gt;&lt;BR&gt;&quot; &amp; VBCRLF
		response.write &quot;&lt;TEXTAREA NAME=&quot;&quot;FILEDATA&quot;&quot; ROWS=18 COLS=70 WRAP=&quot;&quot;OFF&quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(fstr) &amp; &quot;&lt;/TEXTAREA&gt;&quot; &amp; VBCRLF
		response.write &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&quot; &amp; VBCRLF
	End Select
	response.write VBCRLF &amp; &quot;&lt;BR&gt;&lt;BR&gt;&quot;
	
	If IsTextFile Then
%&gt;
&lt;%
	Else
%&gt;
&lt;INPUT TYPE=&quot;HIDDEN&quot; NAME=&quot;PATHNAME&quot; VALUE=&quot;&lt;%=pathname%&gt;&quot;&gt;
&lt;INPUT TYPE=&quot;SUBMIT&quot; NAME=&quot;POSTACTION&quot; VALUE=&quot;BACK&quot;&gt;&lt;BR&gt;
&lt;%
	End If
%&gt;

&lt;/FORM&gt;
&lt;%
	EndHTML
End Sub 'DetailPage

'--
' DisplayCode
Sub DisplayCode
Dim fn,fso,f
Dim code,tstr
Dim a,arr,i

	fn = Request.QueryString(&quot;c&quot;)

	response.write &quot;&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE&gt;&quot; &amp; fn &amp; &quot;&lt;/TITLE&gt;&lt;/HEAD&gt;&lt;BODY&gt;&quot; &amp; VBCRLF
	response.write &quot;&lt;STYLE&gt;&quot; &amp; VBCRLF
	response.write &quot;&lt;!&quot; &amp; &quot;--&quot; &amp; VBCRLF
	response.write &quot;  SPAN {color:Navy; background-color:Yellow}&quot; &amp; VBCRLF
	response.write &quot;--&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
	response.write &quot;&lt;/STYLE&gt;&quot; &amp; VBCRLF

	If Instr(fn,fsroot) = 1 Then
		Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
		Set f = fso.OpenTextFile(fn, 1, 0, 0)
		If f.AtEndOfStream Then
			code = &quot;&quot;
		Else
			code = f.ReadAll					'totally unconverted
		End If
		'quickly format code for readability...
		' could be smarter, but it sure is simple!
		tstr = Server.HTMLEncode(code)
		tstr = Replace(tstr,chr(9),&quot;   &quot;)
		tstr = Replace(tstr,&quot;  &quot;,&quot;&amp;nbsp;&amp;nbsp;&quot;)
		tstr = Replace(tstr,&quot;&amp;lt;%&quot;,&quot;&lt;SPAN&gt;&amp;lt;&quot; &amp; &quot;%&lt;/SPAN&gt;&lt;FONT COLOR=&quot;&quot;#000000&quot;&quot;&gt;&quot;)
		tstr = Replace(tstr,&quot;%&amp;gt;&quot;,&quot;&lt;SPAN&gt;%&quot; &amp; &quot;&lt;/FONT&gt;&amp;gt;&lt;/SPAN&gt;&quot;)
		tstr = Replace(tstr,&quot;&amp;lt;!--&quot;,&quot;&lt;I&gt;&lt;FONT COLOR=&quot;&quot;#CC0033&quot;&quot;&gt;&amp;lt;!--&quot;)
		tstr = Replace(tstr,&quot;--&amp;gt;&quot;,&quot;--&amp;gt;&lt;/I&gt;&lt;/FONT&gt;&quot;)

		response.write &quot;&lt;TABLE WIDTH=&quot;&quot;100%&quot;&quot; BGCOLOR=silver&gt;&lt;TR&gt;&lt;TD&gt;&lt;FONT COLOR=&quot;&quot;#FFFFFF&quot;&quot; FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=5&gt;&lt;B&gt;&quot; &amp; VBCRLF
		response.write &quot;&amp;nbsp;&quot; &amp; fn &amp; &quot;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&quot; &amp; VBCRLF

		response.write &quot;&lt;FONT COLOR=&quot;&quot;#0000FF&quot;&quot; FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=2&gt;&quot; &amp; VBCRLF
		response.write &quot;&lt;!&quot; &amp; &quot;-- code listing --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF &amp; VBCRLF
		arr = Split(Replace(tstr,chr(13),&quot;&quot;),chr(10)) 'handle unix files too
		For i = 0 to UBound(arr)
			'add line numbers and output
			response.write &quot;&lt;BR&gt;&lt;FONT COLOR=&quot;&quot;#008000&quot;&quot;&gt;&quot; &amp; Right(&quot;000&quot; &amp; i+1,3) &amp; &quot;:&lt;/FONT&gt; &quot;
			tstr = arr(i)
			If left(Replace(Replace(tstr,&quot;&amp;nbsp;&quot;,&quot;&quot;),&quot; &quot; ,&quot;&quot;),1) = &quot;'&quot; Then
				response.write &quot;&lt;FONT COLOR=&quot;&quot;#CC0033&quot;&quot;&gt;&lt;I&gt;&quot; &amp; tstr &amp; &quot;&lt;/I&gt;&lt;/FONT&gt;&quot; &amp; VBCRLF
			Else
				response.write tstr &amp; VBCRLF
			End If
		Next 'i
		response.write VBCRLF &amp; &quot;&lt;!&quot; &amp; &quot;-- end of code listing --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
		response.write &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF 
	Else
		response.write &quot;&lt;P&gt;&lt;FONT COLOR=&quot;&quot;#CC0033&quot;&quot; SIZE=3&gt;Cannot access &quot; &amp; fn &amp; &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF
	End If

	response.write &quot;&lt;HR&gt;&lt;/BODY&gt;&lt;/HTML&gt;&quot;
End Sub 'DisplayCode

'--
' DisplayFileName
Sub DisplayFileName(dirfile,fhandle)
Dim newgif,linktarget
Dim fsize

	response.write &quot;&lt;TR&gt;&quot; &amp; VBCRLF
	If dirFile = &quot;DIR&quot; Then
		linktarget = &quot;&lt;A HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(fhandle) &amp; &quot;\&quot;&quot; TITLE=&quot;&quot;Click here to move down a level and list the documents in this folder.&quot;&quot;&gt;&quot;
		tstr = &quot;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=2&gt;&quot; &amp; linktarget &amp; LCase(fhandle.name) &amp; &quot;&lt;/A&gt;&lt;/FONT&gt;&quot;
	response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; ALIGN=&quot;&quot;RIGHT&quot;&quot;&gt;&quot; &amp; MockIcon(&quot;fldr&quot;) &amp; &quot;&lt;/TD&gt;&quot; &amp; VBCRLF
	response.write &quot;&lt;TD COLSPAN=3 VALIGN=&quot;&quot;TOP&quot;&quot; BGCOLOR=Silver&gt;&quot; &amp; Tstr &amp; &quot;&lt;/TD&gt;&quot; &amp; VBCRLF
	Else
		newgif = &quot;&quot;
		If fhandle.datelastmodified+14 &gt; gblNow Then newgif = MockIcon(&quot;newicon&quot;)
		b = &quot;&quot;
		If len(fhandle.name) &gt; 4 Then b = Ucase(Right(fhandle.name,4))
		If Left(b,1) = &quot;.&quot; Then b = Right(b,3)
		Select Case b
		Case &quot;ASP&quot;,&quot;HTM&quot;,&quot;HTML&quot;,&quot;ASA&quot;,&quot;TXT&quot;,&quot;CFM&quot;,&quot;PHP3&quot;
			newgif = newgif &amp; &quot; &lt;A TARGET=&quot;&quot;_blank&quot;&quot; HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?c=&quot; &amp; URLSpace(fsDir &amp; fhandle.name) &amp;  &quot;&quot;&quot; TITLE=&quot;&quot;Click here to list the contents of this document.&quot;&quot;&gt;&quot; &amp; MockIcon(&quot;view&quot;) &amp; &quot;&lt;/A&gt;&quot;
			tstr = webbase &amp; replace(fhandle.name,&quot; &quot;,&quot;%20&quot;)
		Case &quot;URL&quot;
			tstr = ShortCutURL
		Case Else
			tstr = webbase &amp; replace(fhandle.name,&quot; &quot;,&quot;%20&quot;)
		End Select
		If fhandle.size &lt; 10240 Then
			If fhandle.size = 0 Then
				fsize = &quot;0&quot;
			Else
				fsize = FormatNumber(fhandle.size,0,0,-2)
			End If
		Else
			fsize = FormatNumber((fhandle.size+1023)/1024,0,0,-2) &amp; &quot;K&quot;
		End If
		tstr = &quot;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=2&gt;&lt;A HREF=&quot;&quot;&quot; &amp; tstr &amp; &quot;&quot;&quot; TITLE=&quot;&quot;Click here to link to this document.&quot;&quot;&gt;&quot; &amp; LCase(fhandle.name) &amp; &quot;&lt;/A&gt;&lt;/FONT&gt;&quot; &amp; newgif

%&gt;&lt;TD VALIGN=&quot;TOP&quot; ALIGN=&quot;RIGHT&quot;&gt;&lt;A HREF=&quot;&lt;%=gblScriptName%&gt;?f=&lt;%=URLSpace(fhandle.name)%&gt;&amp;d=&lt;%=URLSpace(fsDir)%&gt;&quot; TITLE=&quot;Click here to view more details about this document.&quot;&gt;&lt;%=MockIcon(b)%&gt;&lt;/A&gt;&lt;/TD&gt;
&lt;TD VALIGN=&quot;TOP&quot; BGCOLOR=silver&gt;&lt;%=Tstr%&gt;&lt;/TD&gt;
&lt;TD VALIGN=&quot;TOP&quot; BGCOLOR=silver&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=1&gt;&lt;%=FormatDateTime(fhandle.datelastmodified,0)%&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;TD VALIGN=&quot;TOP&quot; BGCOLOR=silver&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=1&gt;&lt;%=fsize%&gt; bytes&lt;/FONT&gt;&lt;/TD&gt;
&lt;%
	End If 
	response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF
End Sub 'DisplayFileName

'--
' MockIcon (icon emulator)
Function MockIcon(txt)
Dim tstr,d

	'Sorry, mac users.
	tstr = &quot;&lt;FONT FACE=&quot;&quot;WingDings&quot;&quot; SIZE=4 COLOR=Black&gt;&quot;
	Select Case Lcase(txt)
	Case &quot;bmp&quot;,&quot;gif&quot;,&quot;jpg&quot;,&quot;tif&quot;,&quot;jpeg&quot;,&quot;tiff&quot;
		d = 176
	Case &quot;doc&quot;
		d = 50
	Case &quot;exe&quot;,&quot;bat&quot;,&quot;bas&quot;,&quot;c&quot;,&quot;src&quot;
		d = 255
	Case &quot;file&quot;
		d = 51
	Case &quot;fldr&quot;
		d = 48
	Case &quot;htm&quot;,&quot;html&quot;,&quot;asa&quot;,&quot;asp&quot;,&quot;cfm&quot;,&quot;php3&quot;
		d = 182
	Case &quot;pdf&quot;
		d = 38
	Case &quot;txt&quot;,&quot;ini&quot;
		d = 52
	Case &quot;xls&quot;
		d = 252
	Case &quot;zip&quot;,&quot;arc&quot;,&quot;sit&quot;
		d = 59
	Case &quot;newicon&quot;
		tstr = &quot;&lt;FONT TITLE=&quot;&quot;This document has been modified sometime during the last 14 days.&quot;&quot; FACE=&quot;&quot;WingDings&quot;&quot; SIZE=4 COLOR=White&gt;&quot;
		d = 171
	Case &quot;view&quot;
		d = 52
	Case Else
		d = 51
	End Select
	tstr = tstr &amp; Chr(d) &amp; &quot;&lt;/FONT&gt;&quot;
	MockIcon = tstr
End Function 'mockicon

'--
' Navigate
Sub Navigate
Dim emptyDir

	emptyDir = TRUE
	response.write &quot;&lt;TABLE BORDER=0 CELLPADDING=2 CELLSPACING=3 WIDTH=&quot;&quot;100%&quot;&quot;&gt;&quot;

	' get the directory of file names
	If toplevel Then
		parent = &quot;&quot;
	Else
		parent = fso.GetParentFolderName(fsDir) &amp; &quot;\&quot;
%&gt;
&lt;TR&gt;
&lt;TD VALIGN=&quot;TOP&quot; ALIGN=&quot;RIGHT&quot;&gt;&lt;FONT FACE=&quot;WingDings&quot; SIZE=4 COLOR=white&gt;&lt;%=chr(199)%&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;TD COLSPAN=3&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=1&gt;&lt;B&gt;&lt;A TITLE=&quot;Click here to move up a level to the parent folder.&quot; HREF=&quot;&lt;%=gblScriptName%&gt;?d=&lt;%=URLSpace(parent)%&gt;&quot;&gt;&lt;%=UCASE(fso.GetParentfolderName(fsDir) &amp; &quot;\&quot;)%&gt;&lt;/A&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;/TR&gt;
&lt;%
	End If
	Set f = fso.GetFolder(fsDir)
	Set FileList = f.subFolders
	a = 0
	For Each fn in FileList
		emptyDir = FALSE
		If a = 0 Then
			a = 1
%&gt;
&lt;TR&gt;&lt;TD VALIGN=&quot;TOP&quot;&gt;&amp;nbsp;&lt;/TD&gt;
&lt;TD COLSPAN=3&gt;&lt;HR&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=4&gt;&lt;B&gt;Biblioteker&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;/TR&gt;
&lt;TR&gt;&lt;TD VALIGN=&quot;TOP&quot;&gt;&amp;nbsp;&lt;/TD&gt;
&lt;TD COLSPAN=3 VALIGN=&quot;BOTTOM&quot;&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; COLOR=White SIZE=1&gt;&lt;B&gt;FOLDER NAME&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;/TR&gt;
&lt;%
		End If
		DisplayFileName &quot;DIR&quot;,fn
	Next 'fn
%&gt;
&lt;TR&gt;&lt;TD VALIGN=&quot;TOP&quot;&gt;&amp;nbsp;&lt;/TD&gt;
&lt;TD COLSPAN=3&gt;&lt;HR&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; SIZE=4&gt;&lt;B&gt;Filer i dette bibliotek&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;/TR&gt;
&lt;TR&gt;&lt;TD VALIGN=&quot;TOP&quot;&gt;&amp;nbsp;&lt;/TD&gt;
&lt;TD VALIGN=&quot;BOTTOM&quot;&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; COLOR=silver SIZE=1&gt;&lt;B&gt;Fil navn&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;TD VALIGN=&quot;BOTTOM&quot;&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; COLOR=silver SIZE=1&gt;&lt;B&gt;Sidst opdateret&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;TD VALIGN=&quot;BOTTOM&quot;&gt;&lt;FONT FACE=&lt;%=gblFace%&gt; COLOR=silver SIZE=1&gt;&lt;B&gt;Fil st&#248;rrelse&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;
&lt;/TR&gt;
&lt;%
	Set filelist = f.Files
	For Each fn in filelist
		emptyDir = FALSE
		DisplayFileName &quot;FILE&quot;,fn
	Next 'fn

%&gt;
  
  &lt;/TD&gt;&lt;/TR&gt;&lt;/FORM&gt;
&lt;/TABLE&gt;
&lt;%
End Sub 'Navigate

'--
' ShortCutURL
Function ShortCutURL
Dim f,fstr,tstr
	tstr = &quot;&quot;
	Set f = fso.OpenTextFile(fn)
	Do While NOT f.AtEndOfStream 
		fstr = tstr
		tstr = f.readline 'get next to last line
	Loop
	f.Close
	Set f= Nothing
	If fstr = &quot;&quot; Then
		ShortCutURL = fn
	Else
		ShortCutURL = Replace(mid(fstr,5,255),&quot; &quot;,&quot;%20&quot;)
	End If
End Function 'ShortCutURL

'--
' UploadPage


'--
' URLspace
Function URLSpace(s)
	URLSpace = replace(replace(s,&quot;+&quot;,&quot;%2B&quot;),&quot; &quot;,&quot;+&quot;)
End Function 'URLSpace

'----
'MAIN
'----
	Dim f,fso,filelist,fn,upl
	Dim TextObject,fhandle,lsplit

	Dim fsDir,baseDir,webbase
	Dim fsRoot,webRoot
	Dim pathname
	Dim parent
	Dim toplevel

	gblTitle = &quot;Filliste&quot;

	'get password


	
		Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
	
		'dynamically find out where the documents and web pages are located
	
		fsDir = LCase(Request.QueryString(&quot;d&quot;))
		If fsDir = &quot;&quot; Then fsDir = Request.Form(&quot;fsDir&quot;)
		'************for use whit dynamic serverpath***place file in root file folder
		'fsRoot = LCase(Replace(Server.MapPath(gblScriptName),&quot;\&quot; &amp; gblScriptName,&quot;&quot;) &amp; &quot;\&quot;)
		'**********test*****uses static server path***************
		if fsdir = &quot;&quot; then
		fsRoot= &quot;d:\ftp_library\ermo\karaoke\&quot;
		else fsRoot = fsdir
		end if
		'*********************************************
		If Instr(fsdir,fsroot) &lt;&gt; 1 Then fsDir = fsRoot
		If Lcase(fsDir) = Lcase(fsRoot) Then toplevel = TRUE
		basedir = Replace(Mid(fsDir,len(fsRoot),250),&quot;\&quot;,&quot;/&quot;)
		webRoot = &quot;http://&quot; &amp; Request.ServerVariables(&quot;SERVER_NAME&quot;) &amp; Replace(Request.ServerVariables(&quot;SCRIPT_NAME&quot;),&quot;/&quot; &amp; gblScriptName,&quot;&quot;)
		'*******ajust to point to your own servers file path*****************
		dir_sub = Replace(fsdir, &quot;\&quot;, &quot;/&quot;)
		dir_end = replace(dir_sub, &quot;d:/ftp_library/ermo/karaoke/&quot;, &quot;&quot;)
		webbase = replace(webroot &amp; basedir,&quot; &quot;,&quot;%20&quot;)&amp; &quot;karaoke/&quot; &amp; dir_end 
		'webbase = &quot;karaoke/&quot;
		Response.Write dir_sub &amp; &quot;&lt;br&gt;&quot;
		Response.Write webroot &amp; &quot;&lt;br&gt;&quot;
		Response.Write basedir &amp; &quot;&lt;br&gt;&quot;
		Response.Write dir_end &amp; &quot;&lt;br&gt;&quot;
		
		
		'process a GET/POST request
		%&gt;

				
		
		&lt;%
			Action = Request.Form(&quot;POSTACTION&quot;)
			pathname = Request.Form(&quot;PATHNAME&quot;)
	
		If Action &lt;&gt; &quot;&quot; Then
			tstr = gblScriptName &amp; &quot;?d=&quot;
			If NOT toplevel Then	tstr = tstr &amp; URLSpace(fsDir)
			response.redirect tstr
		End If
	
		'check for mode... navigate, code display, upload, or detail?
	
		fn = LCase(Request.QueryString(&quot;f&quot;))
		If fn = &quot;&quot; Then
			If Request.QueryString(&quot;u&quot;) = &quot;Y&quot; Then
				gblTitle = gblTitle &amp; &quot; (Upload Page)&quot;
				gblPageText = &quot;Use this page to upload a single document to this web site.&quot;
				UploadPage
			Else
				If Request.QueryString(&quot;c&quot;) = &quot;&quot; Then
					gblPageText	= &quot;Karaokefiler &quot;
					StartHTML
					Navigate
					EndHTML
				Else
					DisplayCode
				End If
			End If
		Else
			gblTitle = gblTitle &amp; &quot; (Detail Page)&quot;
			gblPageText = &quot;Use this page to view a single document on this web site.&quot;
			DetailPage
		End If
		
	
%&gt;
&lt;%'&lt;!--#include file =&quot;bottom.asp&quot;--&gt;%&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:33:38
</BODY></HTML>