%
Session.lcid= 1043
Server.ScriptTimeout = 3600
Session.Timeout= 1300
%>
<%
iPagId = request("pid")
iNavId = request("nid")
iMenId = request("mid")
' response.write "P: "&iPagId
' response.write "
N: "&iNavId
' response.write "
M: "&iMenId
if iNavId="" and iMenId<>"" then
set rsNavigatie = Server.CreateObject("ADODB.Recordset")
rsNavigatie.Open "SELECT * FROM tblmenu WHERE men_id="& iMenId &"", dbconn, 3, 3
if not rsNavigatie.EOF then
iNavId = rsNavigatie("men_navigation")
iPagId = rsNavigatie("men_page")
end if
rsNavigatie.Close
else if iPagId = "" and iNavId="" and iMenId="" then
iPagId = 1
iNavId = 1
end if
end if
call PrintHeaderTitle("Welkom by Bluyssen Communicatie en Coaching")
call PrintHeader(iNavId)
call PrintPage(iPagId, iNavId)
call PrintFooter()
%>