d:/ftp_library/ermo/photoview/
http://www.nyvej.dk/mortensen
/
d:/ftp_library/ermo/photoview/

Filliste (Detail Page)

Use this page to view a single document on this web site.

d:\ftp_library\ermo\photoview\viewphoto.asp
http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/photoview/viewphoto.asp

    file size:  7.816 characters
 file created:  13. januar 2013  14:25:37
last modified:  2. december 2004  12:30:39

DOCUMENT CONTENTS

<%
'***********************************************************************************
'***************www.ningzhou.com****************************************************
' Edit all the properties of this page here
'***********************************************************************************
 dim fileName
 
 fileName = Request.QueryString("file")	 'The name of the main photo page

'***********************************************************************************
'***************www.ningzhou.com****************************************************
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode"><META content="MSHTML 5.50.4916.2300" name=GENERATOR></HEAD>
<BODY bgColor=black>
:: Sixpack fotos
<title>Mortensen's fotos fra Sixpack</title>

<%
 server.ScriptTimeout=999999
	dim photoToView
	photoToView=Request.QueryString("viewphoto")
 Dim dirname, mypath, fso, folder, filez, FileCount
 dirname = Request.QueryString("dir")
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set folder = fso.GetFolder(server.mappath(dirname))
 Set filez = folder.Files
 FileCount = folder.Files.Count 
 Dim strPath 'Path of directory to show
 Dim objFSO 'FileSystemObject variable
 Dim objFolder 'Folder variable
 Dim objItem 'Variable used To Loop through the contents of the folder
 ' You could just as easily read this fro
 ' m some sort of input, but I don't
 ' need you guys and gals roaming around 
 ' our server so I've hard coded it to
 ' a directory I set up to illustrate the
 ' sample.
 ' NOTE: As currently implemented, this n
 ' eeds to end with the /
 
 ' Create our FSO
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 ' Get a handle on our folder
 Set objFolder = objFSO.GetFolder(Server.MapPath(dirname))
 ' Show a little description line and the
 ' title row of our table
 Dim totalSize
 totalSize=0
 dim searchCheck
	searchCheck=Request.QueryString("search")
	dim thePage
	thePage = Request.QueryString("page")
 Dim prevView, nextView
 prevView=photoToView
 nextView=photoToView
 dim photoname
 Dim found, done
 done = false
 found=false
 if searchCheck="Go" then
		dim searchOn, daysOld
		daysOld = Request.QueryString("dayOld")
		daysOld = Trim(daysOld)
		searchOn = Request.QueryString("searchText")
		searchOn=Trim(searchOn)
		dim searchcount
		searchcount = 0
		For Each objItem In objFolder.Files
 
		 dim txt2, txtfound, dayfound, currentPos, nextPos
		 txtfound = false
		 dayfound = false
			txt2=objItem.Name
			currentPos=1
			dim count
			count=0
			
			do while Len(searchOn) > currentPos
				nextPos=InStr(Mid(searchOn, currentPos), " ")
				
				if nextPos=0 then
				 nextPos=Len(searchOn)
				end if
				'Response.Write(Mid(searchOn, currentPos, nextPos) & currentPos & nextPos & " ")
					if InStr(UCase(txt2),UCase(Trim(Mid(searchOn, currentPos, nextPos))))<>0 then
					 txtfound=true
					end if
				
				currentPos=currentPos + nextPos
		 loop 
		 if searchOn="" then
		 txtfound=true
		 end if
		 if Len(daysOld) >=1 and IsNumeric(daysOld) then
		 if DateDiff("d",FormatDateTime(objItem.DateCreated),Date)<= Int(daysOld) then
		 dayfound=true
		 end if
		 else
		 dayfound=true
		 end if
		 
			if txtfound=true and dayfound=true then

if objItem.Name<>photoToView and not found and not done then
					prevView=objItem.Name
				end if
				if objItem.Name<>photoToView and found and not done then
					nextView=objItem.Name
					done=true
				end if
			
				if photoToView=objItem.Name then
				 found=true
				end if
				
				
			end if
 
 Next 'objItem
 photoname=Replace(photoToView,"_"," ")
	photoname=Replace(photoname, ".jpg", "")
	photoname=Replace(photoname, ".JPG", "")
	Response.Write(" <center>"&photoname&" ")
	Response.Write(" <img src="&dirname&photoToView&"> ")
	If prevView <> photoToView then
	 Response.Write("<A style=""TEXT-DECORATION: none"" href=viewphoto.asp?file="&fileName&"&dir="&dirname&"&viewphoto="& prevView &"&search=Go&dayOld="& daysOld&"&searchText="&searchOn&"><< Tilbage</a>") 
	Else
	 Response.Write("<< Previous") 	
	End If
	Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
	Response.Write("<A style=""TEXT-DECORATION: none"" href="&fileName&"?search=Go&dayOld="& daysOld&"&searchText="&searchOn&">| Hovedside |</a>")
	Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
	If nextView <> photoToView then
	 Response.Write("<A style=""TEXT-DECORATION: none"" href=viewphoto.asp?file="&fileName&"&dir="&dirname&"&viewphoto="& nextView &"&search=Go&dayOld="& daysOld&"&searchText="&searchOn&">Frem >></a> </center>")
	Else
	 Response.Write("Next >> </center>")
	End If
Else
	
 For Each objItem In objFolder.Files
 
 if objItem.Name<>photoToView and not found and not done then
 		prevView=objItem.Name
		end if
		if objItem.Name<>photoToView and found and not done then
 		nextView=objItem.Name
 		done=true
		end if
 	
 	if photoToView=objItem.Name then
 	 found=true
 end if
 Next 'objItem
 
	photoname=Replace(photoToView,"_"," ")
 photoname=Replace(photoname, ".jpg", "")
 photoname=Replace(photoname, ".JPG", "")
 Response.Write(" <center>"&photoname&" ")
 Response.Write(" <img src="&dirname&photoToView&"> ")
 If prevView <> photoToView then
 Response.Write("<A style=""TEXT-DECORATION: none"" href=viewphoto.asp?file="&fileName&"&dir="&dirname&"&viewphoto="& prevView &"&page="&thePage&"><< Tilbage</a>") 
 Else
 Response.Write("<< Previous") 
 End If
 Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
 Response.Write("<A style=""TEXT-DECORATION: none"" href="&fileName&"?page="&thePage&">| Hovedside |</a>")
 Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
 If nextView <> photoToView then
 Response.Write("<A style=""TEXT-DECORATION: none"" href=viewphoto.asp?file="&fileName&"&dir="&dirname&"&viewphoto="& nextView &"&page="&thePage&">Frem >> </center>")
	Else
	 Response.Write("Next >></a> </center>")
	End If
End If

Set objItem = Nothing
    Set objFolder = Nothing
    ' All done! Kill off the object variable
    '     s.
    Set objFSO = Nothing
    	
    	%>

<A style="TEXT-DECORATION: none" href="http://www.nyvej.dk/mortensen/" >Tilbage til Mortensen's</A>
</BODY>
</HTML>

Erik Mortensen
20. december 2025 03:59:40