<% ' Alle variabelen moeten gedefinieerd zijn! Option Explicit %> <% ' Variabelen definieren. Session.LCID = 1043 dim oDb dim oRst,pRst, qRst dim sSql dim sPaginaNr dim sTaalcode dim sSoortmenu dim sContents dim sTitel dim sNaam dim sImagepagina1 dim sImagepagina2 dim sStandaardpagina dim lAantal dim nAantal dim lSubmenu dim lOnderdeelVan dim sFotoIndex dim oFSO dim oFolder dim oFiles dim oFile dim nIndex dim sFotoMap dim nNieuwsnr ' Objecten aanmaken. set oDb = Server.CreateObject("ADODB.Connection") set oRst = Server.CreateObject("ADODB.RecordSet") set pRst = Server.CreateObject("ADODB.RecordSet") set qRst = Server.CreateObject("ADODB.RecordSet") ' Database openen. Application("CONNECTION") = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath(".\database\odekerken.mdb") oDb.Open application("CONNECTION") ' Variabelen van de client ophalen. sPaginaNr = cdbl(request.querystring("paginanr")) nNieuwsNr = cdbl(request.querystring("NieuwsNr")) if isnull(sPaginaNr) or len(sPaginaNr) = 0 or sPaginaNr = 0 then sPaginaNr = 1 end if sTaalcode = request.querystring("taal") if len(sTaalcode) > 0 then session("taal") = sTaalcode else if len(session("taal")) = 0 then session("taal") = "NL" end if end if session("projectnr") = request.querystring("projectnr") sSql = " select *" & _ " from vw_pagina" & _ " where paginanr = " & sPaginanr & _ " and taalcode= '" & session("taal") & "'" &_ " order by volgnr" oRst.Open sSql, oDb, adOpenForwardOnly, adLockReadOnly, adCmdText if not oRst.EOF then sContents = oRst("tekst") sTitel = oRst("titel") sNaam = oRst("naam") sImagepagina1 = oRst("imagemenu") sImagepagina2 = oRst("imagepagina2") sStandaardpagina = oRst("standaardpagina") sSoortmenu =oRst("soortmenu") end if oRst.close %> Odekerken bestratingen <% if sPaginanr= 3 then %> <% else %>

GEBRS. ODEKERKEN WEGENBOUW B.V

<% sSql = " select paginanr" & _ " , imagemenu" & _ " , imagemenuover" & _ " , naam" & _ " , volgnr" & _ " , soortmenu" & _ " from pagina" & _ " where tonen='J' and navigatie = 'Z' and (isnull(onderdeelvan) or len(onderdeelvan)=0)" & _ " order by volgnr" oRst.Open sSql, oDb, adOpenForwardOnly, adLockReadOnly, adCmdText %>
<% sSql = " select paginanr" & _ " , imagemenu" & _ " , imagemenuover" & _ " , naam" & _ " , volgnr" & _ " , soortmenu" & _ " from pagina" & _ " where tonen='J' and navigatie = 'B' and (isnull(onderdeelvan) or len(onderdeelvan)=0)" & _ " order by volgnr" oRst.Open sSql, oDb, adOpenForwardOnly, adLockReadOnly, adCmdText %>
<% if sPaginanr = 1 then %> <% elseif sPaginanr= 4 then %> <% elseif sPaginanr= 5 then %> <% elseif sPaginanr= 16 then %> <% else %>

<%=sNaam%>

<% if len(sContents) > 0 then %>

<%=replace(sContents,"[END]", "")%>

<% end if %>
<% end if end if%>
<% oDb.close %>