<!-- #include virtual="/www/lib/functions.asp" -->
<%
action 	= Request("action")
Select Case action
	Case Else
		Page()
End Select

Private Sub Page() 'tonen van de pagina inhoud
	sSQL =  "SELECT titel, tekst, soort_id, fotomap_id, bestandsmap_id, adressengroep_id, datum " & _
			"FROM tbl_paginas " & _
			"WHERE deleted=0 AND id="& id
 	Set Rst = Server.CreateObject("ADODB.RecordSet")
	Rst.Open sSQL, con
	If Not Rst.EOF Then
		titel 				= Rst("titel")
		tekst				= Rst("tekst")
		soort_id			= Rst("soort_id")
		fotomap_id			= Rst("fotomap_id")
		bestandsmap_id 		= Rst("bestandsmap_id")
		adressengroep_id	= Rst("adressengroep_id")
		datum				= Rst("datum")
	End If
	Rst.Close()
	Set Rst = Nothing
	
	blnEmpty = False
	'op basis van de soort_id de extra content voor deze pagina ophalen
	Select Case soort_id
		Case 1 'gewone tekst
			content = ""
		Case 2 'nieuws
			content = ""
			header = getNieuwsHeader(datum)
		Case 4 'foto's
			content = getFotos(fotomap_id)
		Case 5 'contactformulier
			content = getTpl("contact/contact.html")
			content = Replace(content, "{PAGEID}", id)
		Case 6 'bestanden
			content = getBestanden(bestandsmap_id)
		Case 7 'nieuwsbrief
			content = getTpl("contact/nieuwsbrief.html")
			content = Replace(content, "{PAGEID}", id)
		Case 9 'adressen
			content = getAdressen(adressengroep_id, False)
			 blnEmpty = True
		Case 10 'webshop
			id = -3
	End Select
	tekst = header & tekst & content

	Call showPage(titel, tekst, id, folder_id, True, blnEmpty)
End Sub
%>