d:/ftp_library/ermo/photoview/<br>http://www.nyvej.dk/mortensen<br>/<br>d:/ftp_library/ermo/photoview/<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\photoview\default.asp</B><BR>
<A HREF="http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/photoview/default.asp">http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/photoview/default.asp</A><BR></FONT>
<PRE>
    file size:  11.768 characters
 file created: &nbsp;<B>13. januar 2013 </B>&nbsp;15:25:37
last modified: &nbsp;<B>2. december 2004 </B>&nbsp;13:29:48
</PRE>
<FORM ACTION="karalist.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="fsDIR" VALUE="d:\ftp_library\ermo\photoview\">
<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;%
'***********************************************************************************
'***************www.ningzhou.com****************************************************
' Edit all the properties of this page here
'***********************************************************************************
  dim newFileDays, dirname, fileName, filesPerPage
  newFileDays = 14				 'Number of days a file is to be considered new
  dirname = &quot;../sixpack/&quot;			 'Directory containing the files
  fileName = &quot;default.asp&quot;	 'The name of the current page
  filesPerPage=50				 'Number of files to display per page
'***********************************************************************************
'***************www.ningzhou.com****************************************************
%&gt;

&lt;html&gt;

&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Language&quot; content=&quot;en-us&quot;&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;&gt;
&lt;body&gt;
&lt;P align=center&gt;&lt;FONT face=Verdana color=white&gt;&lt;STRONG&gt;&lt;FONT 
color=darkorange&gt;::&lt;/FONT&gt; Sixpack fotos&lt;/STRONG&gt;&lt;/FONT&gt;&lt;/P&gt;


&lt;title&gt;Mortensen's fotos fra Sixpack&lt;/title&gt;

&lt;script type=&quot;text/javascript&quot;&gt;
window.status = &quot;Photos&quot;
function setWait()
{
window.status = &quot;Please Wait... Searching for Photos&quot;
}
&lt;/script&gt;
&lt;link rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;input.css&quot; /&gt;
&lt;/head&gt;

&lt;body bgcolor=&quot;#000000&quot; link=&quot;#ffffff&quot; vlink=&quot;#ffffff&quot; alink=&quot;#ffffff&quot;&gt;
  &lt;form onSubmit=&quot;setWait();&quot; id=form1 name=form1&gt;
&lt;br&gt;&lt;br&gt;
&lt;div align=&quot;center&quot;&gt;
  &lt;center&gt;
  &lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; style=&quot;BORDER-COLLAPSE: collapse&quot; bordercolor=&quot;#ffffff&quot; width=&quot;730&quot; id=&quot;AutoNumber4&quot;&gt;
    &lt;tr&gt;
      &lt;td width=&quot;100%&quot;&gt;


&lt;div align=&quot;center&quot;&gt;
  &lt;center&gt;
  &lt;table border=&quot;1&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; style=&quot;BORDER-COLLAPSE: collapse&quot; width=&quot;100%&quot; id=&quot;AutoNumber3&quot; bordercolor=&quot;#ffffff&quot;&gt;
    &lt;tr&gt;
      &lt;td&gt;&lt;b&gt;
            &lt;A style=&quot;TEXT-DECORATION: none&quot; href=&quot;&lt;%= fileName%&gt;?dayOld=&lt;% =newFileDays%&gt;&amp;searchText=&amp;search=Go&quot; &gt;&lt;FONT color=royalblue face=verdana size=1 &gt;&lt;b&gt;Antal nye billeder:&lt;/FONT&gt;&lt;/A&gt;&amp;nbsp;&lt;/font&gt;
            &lt;%
			Dim  mypath, fso, folder, filez, FileCount
			
			dim searchCheck
			searchCheck=Request.QueryString(&quot;search&quot;)
			Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
			Set folder = fso.GetFolder(server.mappath(dirname))
			Set filez = folder.Files
			FileCount = folder.Files.Count
			Dim i, maxPage
			
			if (FileCount mod filesPerPage) = 0 then
			 maxPage = Int(FileCount/filesPerPage)
			else
			 maxPage= Int(FileCount/filesPerPage + 1 )
			end if
			Dim currentPage
			currentPage=1
			if Request.QueryString(&quot;page&quot;)&lt;&gt; &quot;&quot; then
			 currentPage = Request.QueryString(&quot;page&quot;)
			end if
            if Int(currentPage)&gt;1 and searchCheck&lt;&gt;&quot;Go&quot; then
              Response.Write &quot;&lt;A style=&quot;&quot;TEXT-DECORATION: none&quot;&quot; href=&quot;&amp;fileName&amp;&quot;?page=&quot;&amp; currentPage-1 &amp;&quot;&gt;&lt;font face=Verdana size=1 color=royalblue&gt;&lt;b&gt; &lt;&lt; &lt;/b&gt;&lt;font color=orange&gt;&amp;nbsp;&lt;/font&gt;&lt;/a&gt;&lt;/font&gt;&quot;
            end if
		
            if Int(currentPage)&lt;maxPage and searchCheck&lt;&gt;&quot;Go&quot; then
              Response.Write &quot;&lt;A style=&quot;&quot;TEXT-DECORATION: none&quot;&quot; href=&quot;&amp;fileName&amp;&quot;?page=&quot;&amp; currentPage+1 &amp;&quot;&gt;&lt;font face=Verdana size=1 color=royalblue&gt;&lt;b&gt; &gt;&gt; &lt;/b&gt;&lt;font color=orange&gt;&amp;nbsp;&lt;/font&gt;&lt;/a&gt;&lt;/font&gt;&quot;
            end if
         
			for i=1 to maxPage
			 if i=Int(currentPage) and searchCheck&lt;&gt;&quot;Go&quot; then
			   Response.Write &quot;&lt;font face=Verdana size=2 color=orange&gt; &quot;&amp; i &amp;&quot;&lt;/font&gt; &lt;font size=1 color=orange&gt;&amp;nbsp;&lt;/font&gt;&lt;/font&gt;&quot;
			 else
			   Response.Write &quot;&lt;A style=&quot;&quot;TEXT-DECORATION: none&quot;&quot; href=&quot;&amp;fileName&amp;&quot;?page=&quot;&amp; i &amp;&quot;&gt;&lt;font face=Verdana size=1 color=royalblue&gt; &quot;&amp; i &amp;&quot; &lt;font color=orange&gt;|&amp;nbsp;&lt;/font&gt;&lt;/a&gt;&lt;/font&gt;&quot;
			 end if 
			next 

			%&gt;
		&lt;/b&gt;
	  &lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
     &lt;td valign=top height=&quot;12&quot;&gt;&lt;center&gt;
     &lt;FONT color=SlateGray face=Verdana size=1&gt;&lt;b&gt; &lt;font color=Yellow&gt;:&lt;/font&gt; S&#216;G BILLEDER &lt;font color=Yellow&gt;:&lt;/font&gt;&lt;/b&gt; &lt;/font&gt;
     &amp;nbsp;&lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=white&gt;antal dage gamle: &lt;/font&gt;&lt;input name=&quot;dayOld&quot; size=4&gt;&amp;nbsp;
     &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=white&gt;n&#248;gleord: &lt;/font&gt;&lt;input name=&quot;searchText&quot; size=10&gt;
     &lt;input type=&quot;submit&quot; value=&quot;S&#248;g&quot; name=&quot;search&quot;&gt;
     &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=orange&gt;&lt;b&gt;&amp;nbsp; &amp;nbsp; &lt;/b&gt;&lt;/font&gt;
     &lt;Font face=Verdana size=1 color=white&gt;Klik p&#229; filnavnet for at se billedet &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=orange&gt;&lt;b&gt;&amp;nbsp;&lt;/font&gt;
	 &lt;/center&gt;
	&lt;/td&gt;
   &lt;/tr&gt;
  &lt;/table&gt;

  

  &lt;/center&gt;
&lt;/div&gt;
  
      &lt;table border=&quot;1&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; style=&quot;BORDER-COLLAPSE: collapse&quot; bordercolor=&quot;#cacaca&quot; width=&quot;100%&quot; id=&quot;AutoNumber5&quot;&gt;
        &lt;tr&gt;
          &lt;td width=&quot;100%&quot;&gt;
          &lt;p align=&quot;center&quot;&gt;
 &lt;%
 
if searchCheck &lt;&gt; &quot;Go&quot; then %&gt;
    &lt;CENTER&gt;&lt;FONT color=white&gt; &lt;FONT face=Verdana size=1&gt;&lt;%= (currentPage-1)*filesPerPage +1 %&gt; til 
    &lt;%if (currentPage)*filesPerPage &lt;= FileCount then
         Response.Write (currentPage)*filesPerPage
      else
         Response.Write FileCount
      end if %&gt; af &lt;%= FileCount %&gt;  fotos 
            fundet&lt;/FONT&gt;  &lt;/FONT&gt;&lt;/CENTER&gt;
 &lt;% end if %&gt;
    &lt;TABLE align=&quot;center&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; bordercolorlight=&quot;#000000&quot; bordercolordark=&quot;#ffffff&quot; width=&quot;95%&quot; style=&quot;WIDTH: 95%&quot;&gt;
    	&lt;TR bgcolor=&quot;#010194&quot;&gt;
    		&lt;TD align=&quot;middle&quot; bgcolor=&quot;#333333&quot;&gt;&lt;FONT face=&quot;Verdana&quot; color=&quot;#ffffff&quot; size=&quot;1&quot;&gt;&lt;STRONG&gt;Filnavn:&lt;/STRONG&gt; &lt;/FONT&gt;
    		&lt;/TD&gt;
    		&lt;TD align=&quot;middle&quot; bgcolor=&quot;#666666&quot;&gt;&lt;FONT face=&quot;Verdana&quot; color=&quot;#ffffff&quot; size=&quot;1&quot;&gt;&lt;STRONG&gt;Filst&#248;rrelse (MB):&lt;/STRONG&gt;  &lt;/FONT&gt;
    		&lt;/TD&gt;
    		&lt;TD align=&quot;middle&quot; bgcolor=&quot;#333333&quot;&gt;&lt;FONT face=&quot;Verdana&quot; color=&quot;#ffffff&quot; size=&quot;1&quot;&gt;&lt;STRONG&gt;Oprettelsesdato:&lt;/STRONG&gt; &lt;/FONT&gt;
    		&lt;/TD&gt;
    		&lt;TD align=&quot;middle&quot; bgcolor=&quot;#666666&quot;&gt;&lt;FONT face=&quot;Verdana&quot; color=&quot;#ffffff&quot; size=&quot;1&quot;&gt;&lt;STRONG&gt;Filtype:&lt;/STRONG&gt; &lt;/FONT&gt;
    		&lt;/TD&gt;
    	&lt;/TR&gt;
    	
    	   
    &lt;%
    Dim strPath 'Path of directory for Photos
    Dim objFSO 'FileSystemObject variable
    Dim objFolder 'Folder variable
    Dim objItem 'Variable used To Loop through the contents of the folder

   
  
    Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
  
    Set objFolder = objFSO.GetFolder(Server.MapPath(dirname))
    'Dim var for size of photo files
    Dim totalSize, subTotal
    totalSize=0
    Dim pageFileCount
    pageFileCount=0
    
if searchCheck=&quot;Go&quot; then
    dim searchOn, daysOld
    daysOld = Request.QueryString(&quot;dayOld&quot;)
    daysOld = Trim(daysOld)
    searchOn = Request.QueryString(&quot;searchText&quot;)
    searchOn=Trim(searchOn)
    dim searchcount
    searchcount = 0
    For Each objItem In objFolder.Files
    totalSize = totalSize + objItem.Size/1000000
        dim txt2, txtfound, dayfound, currentPos, nextPos
        txtfound = false
        dayfound = false
    	txt2=objItem.Name
    	currentPos=1
    	dim count
    	count=0
    	
    	do while Len(searchOn) &gt; currentPos
    		nextPos=InStr(Mid(searchOn, currentPos), &quot; &quot;)
    		
    		if nextPos=0 then
    		   nextPos=Len(searchOn)
    		end if
    			if InStr(UCase(txt2),UCase(Trim(Mid(searchOn, currentPos, nextPos))))&lt;&gt;0 then
    			  txtfound=true
    			end if
    		
    		currentPos=currentPos + nextPos
        loop 
        if searchOn=&quot;&quot; then
          txtfound=true
        end if
        if Len(daysOld) &gt;=1 and IsNumeric(daysOld) then
          if DateDiff(&quot;d&quot;,FormatDateTime(objItem.DateCreated),Date)&lt;= Int(daysOld) then
             dayfound=true
           end if
        else
          dayfound=true
        end if
     
    	if txtfound=true and dayfound=true then
    		 subTotal = subTotal + objItem.Size/1000000
    		 searchcount = searchcount + 1
    	  %&gt;
			
    		&lt;TR bgcolor=&quot;#87bcfe&quot;&gt;
    			&lt;TD align=&quot;left&quot; bgcolor=#000000&gt;
    			&lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=red&gt;::&lt;/font&gt;
			        &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=white&gt;
    				 &lt;A style=&quot;TEXT-DECORATION: none&quot; href=&quot;viewphoto.asp?file=&lt;%= fileName%&gt;&amp;dir=&lt;% =dirname%&gt;&amp;viewphoto=&lt;%= objItem.Name %&gt;&amp;search=Go&amp;dayOld=&lt;%=daysOld%&gt;&amp;searchText=&lt;%=searchOn%&gt;&quot;&gt; 
    				
    				
    				
    				&lt;%= Replace(Left(objItem.Name, Len(objItem.Name)-4),&quot;_&quot;,&quot; &quot;) %&gt;&lt;/A&gt; &lt;/font&gt;
    				&lt;%if DateDiff(&quot;d&quot;,FormatDateTime(objItem.DateCreated),Date)&lt;Int(newFileDays) then
    				Response.Write &quot;&lt;font face=Verdana size=1 color=yellow&gt;&lt;b&gt; NY&lt;/b&gt;&lt;/font&gt;&quot;
    				end if%&gt;
    			&lt;/TD&gt;
    			&lt;TD align=&quot;middle&quot; bgcolor=&quot;#000000&quot;&gt;
			        &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=silver&gt;
    				&lt;%= objItem.Size/1000000 %&gt;
			        &lt;/font&gt;
    			&lt;/TD&gt;
    			&lt;TD align=&quot;middle&quot; bgcolor=&quot;#000000&quot;&gt;
			        &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=white&gt;
    				&lt;%= objItem.DateCreated %&gt;
			        &lt;/font&gt;
    			&lt;/TD&gt;
    			&lt;TD align=&quot;right&quot; bgcolor=&quot;#000000&quot;&gt;
			        &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=silver&gt;
    				&lt;%= objItem.Type %&gt;
			        &lt;/font&gt;
    			&lt;/TD&gt;
    		&lt;/TR&gt;
    		&lt;%
        end if
       
    Next 
    if searchcount &lt;=0 then
    Response.Write &quot;&lt;center&gt;&lt;font face=verdana color=yellow size=1&gt; No Photos Found.  Try Adding More Key Words. &lt;font&gt;&lt;br&gt;&lt;/center&gt;&quot;
    else
     Response.Write &quot;&lt;center&gt;&lt;font face=verdana color=yellow size=1&gt; &quot;&amp; searchcount &amp; &quot; Photos Found.&lt;font&gt;&lt;br&gt;&lt;/center&gt;&quot;
    end if
    
else
 
   For Each objItem In objFolder.Files
    totalSize = totalSize + objItem.Size/1000000
    if (pageFileCount&gt;=((currentPage-1) * filesPerPage))and (pageFileCount &lt; (currentPage * filesPerPage))then
        subTotal = subTotal + objItem.Size/1000000 %&gt;
    
    	&lt;TR bgcolor=&quot;#87bcfe&quot;&gt;
    		&lt;TD align=&quot;left&quot; bgcolor=#000000&gt;
    		&lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=red&gt;::&lt;/font&gt;
                &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=white&gt;
    			 &lt;A style=&quot;TEXT-DECORATION: none&quot; href=&quot;viewphoto.asp?file=&lt;%= fileName%&gt;&amp;dir=&lt;% =dirname%&gt;&amp;viewphoto=&lt;%= objItem.Name %&gt;&amp;page=&lt;%=currentPage%&gt;&quot;&gt; 
    			
    			
    			
    			&lt;%= Replace(Left(objItem.Name, Len(objItem.Name)-4),&quot;_&quot;,&quot; &quot;)%&gt;&lt;/A&gt; &lt;/font&gt;
    			&lt;%if DateDiff(&quot;d&quot;,FormatDateTime(objItem.DateCreated),Date)&lt;Int(newFileDays) then
    			Response.Write &quot;&lt;font face=Verdana size=1 color=yellow&gt;&lt;b&gt; NY&lt;/b&gt;&lt;/font&gt;&quot;
    			end if%&gt;
    		&lt;/TD&gt;
    		&lt;TD align=&quot;middle&quot; bgcolor=&quot;#000000&quot;&gt;
                &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=silver&gt;
    			&lt;%= objItem.Size/1000000 %&gt;
                &lt;/font&gt;
    		&lt;/TD&gt;
    		&lt;TD align=&quot;middle&quot; bgcolor=&quot;#000000&quot;&gt;
                &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=white&gt;
    			&lt;%= objItem.DateCreated %&gt;
                &lt;/font&gt;
    		&lt;/TD&gt;
    		&lt;TD align=&quot;right&quot; bgcolor=&quot;#000000&quot;&gt;
                &lt;font face=&quot;Verdana&quot; size=&quot;1&quot; color=silver&gt;
    			&lt;%= objItem.Type %&gt;
                &lt;/font&gt;
    		&lt;/TD&gt;
    	&lt;/TR&gt;
    	&lt;%
    end if
    pageFileCount = pageFileCount+1
    Next 
end if
'Set obj to nothing
    Set objItem = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    %&gt;&lt;tr&gt;&lt;td&gt;&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;
    &lt;tr&gt;&lt;td&gt;&lt;font face=verdana size=1 color=yellow&gt;&gt;&gt;&lt;font color=white&gt;&lt;b&gt;&lt;%=FormatNumber(subTotal,2)%&gt; MB af &lt;% =FormatNumber(totalSize,2)%&gt; MB totalt&lt;/b&gt;&lt;/font&gt;
    &lt;/td&gt;&lt;/tr&gt;
    &lt;/TABLE&gt;
         
&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
      &lt;FONT color=#ffd700&gt;.............................................................................................................................................................................................&lt;/FONT&gt;
      &lt;P&gt;&lt;/P&gt;
&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;

&lt;/div&gt;&lt;/CENTER&gt;
 &lt;/form&gt;
&lt;P align=center&gt;&lt;A style=&quot;TEXT-DECORATION: none&quot; href=&quot;http://www.nyvej.dk/mortensen/&quot; &gt;&lt;FONT color=royalblue face=verdana size=1 &gt;&lt;b&gt;Tilbage til Mortensen's&lt;/FONT&gt;&lt;/A&gt;&lt;/P&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>12. juli 2026 &nbsp; 07:43:45
</BODY></HTML>