<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' OPSTART VAN DE PAGINA VANUIT EEN RSS-READER if Request.Querystring("rssID") > " " then Session("RSSmenuID") = 0 tempinput = Request.Querystring("rssID") allstates = split(tempinput,"-") maxcounter = ubound(allstates) FOR counter= 0 TO maxcounter thisstate=allstates(counter) if counter = 0 then Session("nieuwsID") = thisstate + 0 Session("RSSnieuwsID") = Session("nieuwsID") ' Session("titelID") = thisstate + 0 end if if counter = 1 then Session("administratieID") = thisstate + 0 end if if counter = 2 then Session("RSSmenuID") = thisstate if counter = 3 then Session("STARTMENU_RSSFEED") = thisstate NEXT Session("startmenu") = Session("STARTMENU_RSSFEED") Session("rssID") = "" Response.redirect "nieuws.asp?administratieID=" & Session("administratieID") & "&nieuwsID=" & Session("nieuwsID") & "&menu=" & Session("startmenu") end if ' Response.write Session("menubeheerniveau") & " " & Session("actueleautorisatieniveau") & "
" ' ------------------------------------------------------------------------------------------------------------------------------------ ' 25-03-2005 Nieuwe databasetool ' ------------------------------------------------------------------------------------------------------------------------------------ %> <% Dim tonenJN Dim zoekitem dim logo dim preview dim toonbroncode dim refreshJN dim home1tekstopbouw dim setbreedteTABEL dim volgendedatum, vorigedatum, previewdatum dim POStop, POSleft dim legeregel toonbroncode = "NEE" if Session("WEBSITEID") = "HARTFALENCDROM" then toonbroncode = "JA" if Session("HOME1TEKST") > " " then home1tekstopbouw = "NEE" else home1tekstopbouw = "JA" end if ' ----------------------------------------------------------------------------------- ' MOGELIJKE VARIABELEN MEE TE STUREN (QUERYSTRING): ' ----------------------------------------------------------------------------------- ' administratieID: niet verplicht, indien niet aangeleverd, dan wordt de vorige waarde vastgehouden if Request.querystring("administratieID") <> "" then Session("administratieID") = Request.Querystring("administratieID") + 0 if Request.Querystring("preview") = "JA" then preview = "JA" Session("BEZIGMETONDERHOUD") = "JA" end if if Request.Querystring("doorlink") = "JA" then statement = "SELECT omschrijving FROM administraties WHERE administratieID = " & Session("administratieID") controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) navigatieomschrijving = oRs("omschrijving") Session("#TITEL") = oRs("omschrijving") oRs.MoveNext Loop oRs.close Set oRs = Nothing if preview <> "JA" AND Session("NAVIGATIEBALK") > " " then Session("NAVIGATIEBALK") = Session("NAVIGATIEBALK") & " > " & navigatieomschrijving & "" end if Session("zoekstring") = "" If Request.form("zoekstring") <> "" then Session("zoekstring") = Request.form("zoekstring") end if if Request.Querystring("titelID") > 0 then Session("titelID") = Request.Querystring("titelID") if Session("titelID") > 0 then statement = "SELECT onderwerp FROM nieuws WHERE nieuwsID = " & Session("titelID") controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) Session("#TITEL") = oRs("onderwerp") Session("#MENU-TITEL") = oRs("onderwerp") oRs.MoveNext Loop oRs.close Set oRs = Nothing Session("titelID") = 0 end if refreshJN = "JA" if Session("WEBSITEID") = "VANDERWULP" then refreshJN = "NEE" if Request.Querystring("refresh") > " " then refreshJN = Request.Querystring("refresh") if Request.Querystring("bewerkbutton") > " " then Session("bewerkbutton") = Request.Querystring("bewerkbutton") end if bewerkbutton = Session("bewerkbutton") if Request.Querystring("datum") > " " then previewdatum = Request.Querystring("datum") + 0 volgendedatum = previewdatum + 1 vorigedatum = previewdatum - 1 else previewdatum = year(date()) & "-" if month(date()) < 10 then previewdatum = previewdatum & "0" previewdatum = previewdatum & month(date()) & "-" if day(date()) < 10 then previewdatum = previewdatum & "0" previewdatum = previewdatum & day(date()) volgendedatum = date() + 1 vorigedatum = date() - 1 volgendedatum = Cdbl(volgendedatum) vorigedatum = Cdbl(vorigedatum) end if ' ----------------------------------------------------------------------------------- Session("overzicht") = "zoeken" if Session("administratieID") = "" OR Session("administratieID") = 0 then %> <% Response.end end if %> <% if Request("nieuwsID") > " " OR Session("administratieID") > 0 then teller = 0 statement = "SELECT onderwerp, hyperlinks, nieuwsID, afbeeldinglink, linktarget, titel, omschrijving FROM nieuws WHERE administratieID = " & Session("administratieID") & " AND (omschrijving > ' ' OR titel > ' ') ORDER BY tijdstempel DESC" if Request("nieuwsID") > " " then statement = "SELECT onderwerp, hyperlinks, nieuwsID, afbeeldinglink, linktarget, titel, omschrijving FROM nieuws WHERE nieuwsID = " & Request("nieuwsID") & " AND (omschrijving > ' ' OR titel > ' ') ORDER BY tijdstempel DESC" end if controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) AND teller = 0 inputveld = oRs("omschrijving") if oRs("onderwerp") > " " then inputveld = oRs("onderwerp") if oRs("titel") > " " then inputveld = oRs("titel") TEKSTNAARHTML MAAKHYPERLINKS if outputveld > " " then outputveld = Replace(outputveld, "
", " ") if outputveld > " " then outputveld = Replace(outputveld, "", "") %><% if outputveld > " " then outputveld = Replace(outputveld, "'", "") inputveld = outputveld VERWIJDERTAGS allstates = split(outputveld," ") maxcounter = ubound(allstates) if maxcounter > 14 then maxcounter = 14 Session("MENU_DESCRIPTION") = "" FOR counter= 0 TO maxcounter thisstate=allstates(counter) Session("MENU_DESCRIPTION") = Session("MENU_DESCRIPTION") & thisstate & " " NEXT if Session("MENU_DESCRIPTION") > " " then teller = 1 end if oRs.MoveNext Loop oRs.close Set oRs = Nothing end if Response.write "" if Session("#MENU-TITEL") > " " then Session("#TITEL") = Session("#MENU-TITEL") if Session("#TITEL") > " " THEN Response.write Session("#TITEL") & " - " else if Session("TITEL_SUBKEUZE") > " " then inputveld = Session("TITEL_SUBKEUZE") VERWIJDERTAGS Response.write outputveld & " - " else if Session("TITEL_HOOFDKEUZE") > " " then inputveld = Session("TITEL_HOOFDKEUZE") VERWIJDERTAGS Response.write outputveld & " - " end if end if end if if Request("nieuwsID") > " " then Response.write Session("MENU_DESCRIPTION") else if Session("actuelehoofdkeuze") <> Replace(Session("actuelehoofdkeuze"), "home", "") then if Session("#HIGHLIGHTS_EERSTEONDERWERP") > " " then Response.write Session("#HIGHLIGHTS_EERSTEONDERWERP") & " - " & Session("SITE-NAAM") else Response.write Session("MENU_DESCRIPTION") end if else Response.write Session("SITE-NAAM") end if end if Response.write "" & chr(10) Response.write "" & chr(10) Response.write "" %> <% ' MOBIEL if Session("parameterID") = 70 then Response.write "" %> <% if refreshJN = "JA" then ' Response.write "" end if %> "> <% if Session("WEBSITEID") = "BAARSSEN" then %> <% end if %> <% if preview <> "JA" AND toonbroncode = "NEE" AND Session("WEBSITEID") <> "PKNMIJDRECHT" AND Session("WEBSITEID") <> "GIBACO" then Response.write "" %> "JA" AND toonbroncode = "NEE" AND Session("WEBSITEID") <> "DESIGNONWHEELS" AND Session("WEBSITEID") <> "PKNMIJDRECHT" AND Session("WEBSITEID") <> "GIBACO" AND Session("WEBSITEID") <> "BAARSSEN" then Response.write " oncontextmenu='return false' onselectstart='return false' ondragstart='return false' " end if %> class='algemeen'><% ' legeregel: niet verplicht, indien niet aangeleverd, dan 1 lege regel tussen de (nieuws)items legeregel = "JA" if Request.querystring("legeregel") <> "" then legeregel = Request.Querystring("legeregel") if preview = "JA" then Response.write "" Response.write "
" if vorigedatum >= Cdbl(date()) then Response.write "  " end if Response.write "" Response.write " " Response.write "

" else if (Session("menubeheerniveau") <= Session("actueleautorisatieniveau") AND Session("SOORT_APPLICATIE") = "WEBSITE") OR Session("actueleautorisatieniveau") = 9 then Response.write "" Response.write "
" ' Response.write "  " if preview <> "JA" then if Session("bewerkbutton") <> "NEE" then Response.write "" else Response.write "" end if end if Response.write "

" end if end if %> <% if Session("WEBSITEID") = "EXCLUTON" then Response.write "" Response.write "
 " end if %> <% ' ----------------------------------------------------------------------------------------------------------------------- Session("nieuwspaginaIDTF") = Session("administratieID") setbreedteTABEL = "JA" verhogenAANTALKEERGELEZEN = "JA" %> <% verhogenAANTALKEERGELEZEN = "NEE" if teller = 0 AND Request.Querystring("tag") > " " then %><% Response.redirect "../nl/nieuws.asp?zoekwoord=" & Request.Querystring("tag") end if setbreedteTABEL = "NEE" inputveld = nieuwsitem & "" %><% nieuwsitem = outputveld & "" if toonbroncode = "JA" then Response.write "Broncode:


" end if Response.write nieuwsitem & "" if home1tekstopbouw = "JA" then Session("HOME1TEKST") = nieuwsitem end if ' ----------------------------------------------------------------------------------------------------------------------- if Session("WEBSITEID") = "EXCLUTON" then Response.write "
 
 
" end if Session("gegevens_lezen") = "JA" Session("tabje") = "tab1" if Session("WEBSITEID") = "JEWEKA" then Response.write "" end if %>