Snitz Forums 2000 - ASP Coding Help

'Store picture file names in an array x = 0 For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN strPicArray(0,x) = objFileItem.Name strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1) x = x + 1 End if Next
<%

' PhotoAlbum

Dim CurFile, PopFileShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath


Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, strPicArray()
intPicsPerRow  = 3
intPicsPerPage = 12

intPage = CInt(Request.QueryString("Page"))
If intPage = 0 Then
	intPage = 1
End If


CurFile = "PhotoAlbum.asp"
PopFile = "ShowPicture.asp"
%>
<body stylesrc="../../template.asp" background="../../Hovedside/arrow.jpg" bgproperties="fixed">
<script language="JavaScript">
<!--
function jumppage(sel) 
{
  var i = sel.selectedIndex
  self.location.href = sel.options[i].value
}
// -->
</script>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openGalleryWindow(url) {
	if (document.all)
		var xMax = screen.width, yMax = screen.height;
	else
		if (document.layers)
			var xMax = window.outerWidth, yMax = window.outerHeight;
		else
			var xMax = 800, yMax=600;
	var xOffset = (xMax - 200)/2, yOffset = (yMax - 200)/2;
	var xOffset = 100, yOffset = 100;

	popupWin = window.open(url,'new_page','width=700,height=535,screenX='+xOffset+',screenY='+yOffset+',top='+yOffset+',left='+xOffset+',scrollbars=auto,toolbars=no,menubar=no,resizable=yes')
}
// done hiding -->
</script>

<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
<tr>

<td align="center" width="25%">
  <form action="<%=PopFile%>" method="POST">
  <font face="<%= strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strBaseFontColor %>"><b>vælg photo album: </b>
  <select name="go" onChange="jumppage(this);" size="1">
  <% 
  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
  For each Folder in objFolder.SubFolders
  	If Left(Folder.Name,1)<>"_" Then
	  	Response.write "<option "
	  	If ShowSub=Folder.Name Then
	  		Response.Write "selected "
	  	End if
	  	Response.Write"value='" & CurFile & "?ShowSub="
	  	Response.Write(Replace(Folder.Name, " ", "%20"))
	  	response.write "'>"
	  	Response.Write(Folder.Name & "</option>")
	  	If ShowSub <= " " Then
	  	  ShowSub = Folder.Name
		End if
  	End if
  Next 
  Set objFSO = Nothing
  %>
  </select></h3>
  </form>
  </td>
</tr>
</table>


<%
If ShowPic > " " then
  ShowPic = Replace(ShowPic, " ", "%20")
  Response.Write "<a href='JavaScript:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><font face=""verdana"" size=""1""><b>Go Back</b></a>"
Else
%>
  <table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
  <tr>
  <%
  strPhysicalPath = Server.MapPath(".\" & ShowSub)
  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files



	 'Get the number of pictures in the subdirectory 
	 intTotPics = 0
    For Each objFileItem in objFolderContents
		If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
			intTotPics = intTotPics + 1
		End if
    Next

	'Get the total number of pages in the subdirectory 
	If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then
		intTotPages = int(intTotPics/intPicsPerPage)
	Else
		intTotPages = int(intTotPics/intPicsPerPage)+1
	End If
	Redim strPicArray(2,intTotPics)

	'Store picture file names in an array
	x = 0
	For Each objFileItem in objFolderContents
		If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
			strPicArray(0,x) = objFileItem.Name
			strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1)
			x = x + 1
		End if
	Next
	
	'Sort picture array
	call SortAlpha(strPicArray, "DESC", 0)

	'Determine if there are multiple pages and if so, display page numbers.
	If intTotPages > 1 Then
		Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Verdana,Arial' size='1'>SIDE:   "
		For x = 1 to intTotPages
			If x = intPage Then
				Response.Write "</font><font face='Arial' size='2'>" & x & "</font><font face='Arial' size='1'>    "
			Else
				Response.Write "<a href='PhotoAlbum.asp?Page=" & x & "&ShowSub=" & ShowSub & "'>" & x & "</a>    "
			End If
		Next
		Response.Write "</font></td>"
		Response.Write "</tr><tr><td> </td></tr><tr>"
	End If


	For x = 0 to UBound(strPicArray,2)-1
	If CInt(strPicArray(1,x)) = intPage Then
     ShowPic = Replace(strPicArray(0,x), " ", "%20")
   	  Response.write "<td align='center' width='25%'><a href=""Javascript:openGalleryWindow('" & PopFile & "?ShowPic=" & ShowSub & "/" & ShowPic & "')"""
	  Response.write "<br>"
	  Response.Write("<img src='" & ShowSub & "/" & strPicArray(0,x) & "' width=150> ")
	  Response.Write("<br><font color=""" & strBaseFontColor & """><b>" & Mid(strPicArray(0,x),1,Len(strPicArray(0,x))-4) & "</b></font>")
	  Response.write "</a></td>" & vbcrlf

	  PictureNo = PictureNo + 1
	  If PictureNo=intPicsPerRow Then
		  Response.write "</tr><tr>"
		  PictureNo = 0
	  End if
	End If
	Next



    Set objFSO = Nothing
  End if
  %>
  </tr>
  </table>
<%
End if

function SortAlpha(ary, direction, indexnum)
    Dim StopWork
    Dim i
    Dim i2
    Dim firstval()
    Dim secondval()
    
    redim firstval(ubound(ary,1))
    redim secondval(ubound(ary,1))
        
    StopWork=False
    Do Until StopWork=True
        StopWork=True
        For i = 0 To UBound(ary,2)
            if i=UBound(ary,2) Then Exit For
            if UCase(Direction) = "DESC" Then
                compare = ary(indexnum,i) < ary(indexnum,i+1)
                if compare Then
                    For i2 = 0 To ubound(firstval)
                        firstval(i2) = ary(i2,i)
                        secondval(i2) = ary(i2,i+1)
                        ary(i2,i) = secondval(i2)
                        ary(i2,i+1) = firstval(i2)                                    
                    Next
                    StopWork=False
                End if
            Else 
                compare = ary(indexnum,i) > ary(indexnum,i+1)
                if compare then
                    For i2 = 0 To ubound(firstval)
                        firstval(i2) = ary(i2,i)
                        secondval(i2) = ary(i2,i+1)
                        ary(i2,i) = secondval(i2)
                        ary(i2, i+1) = firstval(i2)                    
                    Next
                    StopWork=False
                End if
            End if
        Next
    Loop
    SortAlpha=ary
End function
%>
</center>
</html>