%
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
' -----------------------------------------------------------------------------------
dim startprogramma, opties
opties = "?"
For Each Itempje In Request.Querystring
opties = opties & Itempje & "=" & Request.Querystring(Itempje) & "&"
Next
startprogramma = "../nl/nieuws.asp" & opties
Session("verderwinkelen") = startprogramma
Session("menuIDterug") = 0
' -----------------------------------------------------------------------------------
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")
%><%
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"
%>