<% 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() %>