<!-- #include virtual="/www/lib/functions.asp" -->
<%
Response.Buffer = True

Select Case action
	Case Else
		showAll()
End Select

Private Sub showAll() 'tonen van alle items
	sSQL = 	"SELECT B.id, B.alt, P.id, P.titel, C.categorie, B.width, B.height " & _
			"FROM (tbl_paginas P INNER JOIN tbl_bestanden B ON P.fotomap_id = B.categorie_id) " & _
				"INNER JOIN tbl_categorie C ON P.categorie_id = C.id " & _
			"WHERE C.id="& folder_id &" AND P.deleted=0 AND P.soort_id=4 ORDER BY P.datum"
	arr = SelectSQL(sSQL)

	If IsArray(arr) Then
		titel = arr(4,0)
		
		old_id = 0
		Set tpl = New clsTpl
		With tpl
			.Row = "fotos/fotomap_rij.html"
		x = 0
		For i = 0 To Ubound(arr, 2)
			If Int(old_id) <> Int(arr(2,i)) Then
				old_id = arr(2,i)
				
				path = getImagePath(arr(0,i), False)
				.AddRow()
				
				'.Fill "{IMAGE}", getImageWithPath(path, arr(1,i), 150, arr(5,i), arr(6,i))
				.Fill "{IMAGE}", getImage(arr(0,i), arr(1,i), "", 150, 150)
				.Fill "{ALT}", arr(1,i)
				.Fill "{ID}", arr(2,i)
				.Fill "{TITEL}", arr(3,i)
			End If
		Next
		
		rij = .Value()
		
		End With
		Set tpl = Nothing
	Else
		rij = "Er is geen fotoalbum."
	End If
	
	Set tpl = New clsTpl
	With tpl
		.Tpl = "fotos/fotomap.html"
		.Fill "{FOTOMAP}", rij
		content = .Value
	End With
	Set tpl = Nothing
	
	Call showPage(titel, content, 0, folder_id, True, False)
End Sub
%>