<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' ------------------------------------------------------------------------------------------------------------------------------------ ' 17-03-2005 Wijzigingen i.v.m. verkeerd geheugengebruik ' 25-03-2005 Nieuwe databasetool ' ------------------------------------------------------------------------------------------------------------------------------------ opties = "?" For Each Itempje In Request.Querystring opties = opties & Itempje & "=" & Request.Querystring(Itempje) & "&" Next startprogramma = "../nl/concertagenda.asp" & opties Session("verderwinkelenAGENDA") = startprogramma if Request("vorige3mnd") = "JA" OR Request("volgende3mnd") = "JA" then ' niets doen else Session("vorigedatumCA") = 0 Session("volgendedatumCA") = 0 end if %> <% ' ------------------------------------------ Dim ZetLokaal ZetLokaal = SetLocale("nl") ' ------------------------------------------ Dim zoekitem dim legeregel dim jaar, maandnummer dim streepjeweergeven dim huidigjaar dim concertsoort dim concertagendaINHOUD dim datumveld, datumveldSAVE, datum1, datum2 dim doelframe dim historie dim kleurvervanging, regelkleur, toelichting, toonregelkleur dim i dim maxaantalseconden dim kolomnummerCA kolomnummerCA = 0 maxaantalseconden = 10 ' maximaal aantal seconden van de zoekopdracht jaar = 0 maandnummer = 0 huidigjaar = year(date()) streepjeweergeven = "NEE" legeregel = "JA" doelframe = "extra" if Session("NOFRAMES") = "JA" OR Session("top") = "JA" then doelframe = "_self" Session("BESTELACTIECODE") = Lcase(Session("BESTELACTIECODE")) historie = "NEE" if Request.Querystring("historie") = "JA" then historie = "JA" if Request.Querystring("historie") = "MIX" then historie = "MIX" ' ----------------------------------------------------------------------------------- ' MOGELIJKE VARIABELEN MEE TE STUREN (QUERYSTRING): ' ----------------------------------------------------------------------------------- if Request.Querystring("weergave") > " " then Session("WEERGAVE_CONCERTAGENDA") = Request.Querystring("weergave") Session("agendaGENRE") = "" Session("paginaIDCA") = 0 Session("paginaIDCAbottom") = 0 end if if Request.Querystring("WEERGAVE_CONCERTAGENDA") > " " then Session("WEERGAVE_CONCERTAGENDA") = Request.Querystring("WEERGAVE_CONCERTAGENDA") Session("agendaGENRE") = "" Session("paginaIDCA") = 0 Session("paginaIDCAbottom") = 0 end if if Session("WEERGAVE_CONCERTAGENDA") = "" then Session("WEERGAVE_CONCERTAGENDA") = 1 if Request.Querystring("agendaID") > " " then Session("agendaNUMMER") = Request.Querystring("agendaID") Session("paginaIDCA") = 0 Session("paginaIDCAbottom") = 0 end if if Request("BESTELACTIECODE") > " " then Session("BESTELACTIECODE") = Request("BESTELACTIECODE") if Session("agendaNUMMER") = "" OR Session("agendaNUMMER") = 0 then Session("agendaNUMMER") = 1 end if if Request.Querystring("jaar") > " " then Session("jaar") = Request.Querystring("jaar") + 0 if Request.Querystring("maand") > " " then Session("maand") = Request.Querystring("maand") + 0 If Request.form("zoekstring") <> "" then Session("zoekstring") = Request.form("zoekstring") If Request.Querystring("zoekstring") <> "" then Session("zoekstring") = Request.Querystring("zoekstring") If Request.Querystring("genre") > " " then Session("agendaGENRE") = Request.Querystring("genre") Session("zoekstring") = "" end if if Session("agendaGENRE") = "" then Session("agendaGENRE") = "989898**" if Request.Querystring("schonen") = "JA" then Session("jaar") = 0 Session("maand") = 0 Session("zoekstring") = "" Session("agendaGENRE") = "" end if if Request.Querystring("bewerkbutton") > " " then Session("bewerkbutton") = Request.Querystring("bewerkbutton") end if ' ----------------------------------------------------------------------------------- Session("overzicht") = "zoeken" %> <% 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 if Session("AGENDA_DATUM1") > " " then inputveld = Session("AGENDA_DATUM1") VERWIJDERTAGS Response.write outputveld & " - " end if if Session("AGENDA_PLAATS1") > " " then inputveld = Session("AGENDA_PLAATS1") VERWIJDERTAGS Response.write outputveld & " - " end if if Session("AGENDA_LOCATIE1") > " " then inputveld = Session("AGENDA_LOCATIE1") VERWIJDERTAGS Response.write outputveld & " - " end if if Session("AGENDA_TOELICHTING1") > " " then inputveld = Session("AGENDA_TOELICHTING1") VERWIJDERTAGS Response.write Left(outputveld, 30) & " - " end if Response.write Session("SITE-NAAM") %> "> <% if Session("menubeheerniveau") <= Session("actueleautorisatieniveau") then Response.write "" Response.write "
" Response.write "  " if Session("actueleautorisatieniveau") >= 5 then if Session("bewerkbutton") <> "NEE" then Response.write "" else Response.write "" end if end if Response.write "

" end if concertagendaINHOUD = "" if Session("WEERGAVE_CONCERTAGENDA") >= 1 then if Session("WEERGAVE_CONCERTAGENDA") = 3 OR Session("WEERGAVE_CONCERTAGENDA") = 4 then if Session("actuelebedrijfsadministratie") > 0 then Response.write "" Response.write "
" if Session("WEBSITEID") = "HEERENLOGEMENT" then Response.write " Kies genre: " Response.write "" end if statement = "SELECT waardeAlfanumeriek, waardeNumeriek, toelichting, codeID FROM stamtabel WHERE bedrijfsadministratieID = " & Session("actuelebedrijfsadministratie") & " AND groepID = 'concertsoorten' ORDER BY codeID" controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) statement2 = "SELECT min(concertagendaID) AS eersterecord FROM concertagenda WHERE codeIDsoort = '" & oRs("codeID") & "' AND agendaNUMMER = " & Session("agendaNUMMER") & " GROUP BY codeIDsoort" controlestatement = statement2 %><% Set oRs2 = oConn.Execute(statement2) Do while (Not oRs2.eof) if (oRs("codeID") & "") = (Session("agendaGENRE") & "") then Response.write "" else Response.write "" end if oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing oRs.MoveNext Loop oRs.close Set oRs = Nothing Response.write "" Response.write " 

" end if end if if Session("WEBSITEID") <> "PKNMIJDRECHTtmp" AND Session("TAALCODE") = "NL" then if Session("parameterID") <> 20 OR Session("WEBSITEID") <> "CDVDPRODUCTIONS" then Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write " " Response.write " " Response.write "
" Response.write "  Zoeken: " Response.write " " Response.write " " Response.write "
" Response.write "" Response.write "

" end if end if if Session("TAALCODE") = "ENG" then Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write " " Response.write " " Response.write "
" Response.write "  Search: " Response.write " " Response.write " " Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "

" end if end if if Session("paginaIDCA") > 0 OR Request.Querystring("paginaID") > 0 then if Request.Querystring("paginaID") > 0 then Session("paginaIDCA") = Request.Querystring("paginaID") ' ----------------------------------------------------------------------------------------------------------------------- Session("nieuwspaginaIDTF") = Session("paginaIDCA") + 0 legeregel = "NEE" %><% Response.write "" Response.write "
" & nieuwsitem & "

" ' ----------------------------------------------------------------------------------------------------------------------- end if if Session("CONCERTAGENDA_TEKST") > " " then Response.write "" inputveld = Session("CONCERTAGENDA_TEKST") TEKSTNAARHTML Response.write "
" & outputveld & "

" end if if Session("WEERGAVE_CONCERTAGENDA") = 5 then Response.write "
" end if Response.write "" if Request("recordID") > " " then ' niets doen else if Session("WEERGAVE_CONCERTAGENDA") = 6 then Response.write "" end if if Session("WEERGAVE_CONCERTAGENDA") = 2 OR Session("WEERGAVE_CONCERTAGENDA") = 3 then Response.write "" end if if Session("WEERGAVE_CONCERTAGENDA") = 4 then Response.write "" end if end if if Session("actueleautorisatieniveau") > 5 AND Session("bewerkbutton") <> "NEE" then Response.write "" end if end if timeID3 = ((Hour(Now) * 60) * 60) + (Minute(Now) * 60) + Second(Now) oRs.MoveNext Loop oRs.close Set oRs = Nothing if Session("WEERGAVE_CONCERTAGENDA") = 5 then Response.write "" Response.write "" end if if Request("recordID") > " " then ' niets doen else if Session("WEERGAVE_CONCERTAGENDA") = 6 then if kolomnummerCA > 0 then Response.write "
" end if end if ' ------------------------------------------------------------ ' EERST DE TOON-DATUM GOED ZETTEN OP BASIS VAN HET DATUMSCHEMA ' ------------------------------------------------------------ ZetLokaal = SetLocale("en-gb") 'Datumprojectie DD-MM-EEJJ en Getalsnotatie met decimalen if Session("agendaNUMMER") > 0 then statement = "SELECT datum, datumschema, concertagendaID FROM concertagenda WHERE agendaNUMMER = " & Session("agendaNUMMER") & " ORDER BY concertagendaID" controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) datumveld = oRs("datum") & "" datumveldSAVE = datumveld if oRs("datumschema") > " " then tempinput = day(oRs("datum")) & "-" & month(oRs("datum")) & "-" & year(oRs("datum")) & vbCrlf & oRs("datumschema") allstates = split(tempinput,vbcrlf) maxcounter = ubound(allstates) FOR counter= maxcounter TO 0 STEP -1 thisstate=allstates(counter) datum1 = thisstate & "" if datum1 > " " then datum1 = year(datum1) & "-" & month(datum1) & "-" & day(datum1) datum2 = year(date()) & "-" & month(date()) & "-" & day(date()) if datum1 >= datum2 then datumveld = datum1 & "" end if NEXT if datumveld <> datumveldSAVE then statement2 = "UPDATE concertagenda SET datum = '" & datumveld & "' WHERE concertagendaID = " & oRs("concertagendaID") oConn.Execute statement2 end if end if oRs.MoveNext Loop oRs.close Set oRs = Nothing end if ZetLokaal = SetLocale("nl") ' ------------------------------------------------------------ timeID2 = ((Hour(Now) * 60) * 60) + (Minute(Now) * 60) + Second(Now) timeID3 = ((Hour(Now) * 60) * 60) + (Minute(Now) * 60) + Second(Now) vanafdatum = date() + 0 if Request("historie") = "MIX" then if Session("jaar") > 0 then vanafdatum = "2000-01-01" else vanafdatum = year(date()) & "-01-01" end if end if ' if Session("WEBSITEID") = "PJL2" OR Session("WEBSITEID") = "HOLLANDBOYSCHOIR" OR Session("WEBSITEID") = "UME" then vanafdatum = date() - 10 if Request("vorige3mnd") = "JA" then vanafdatum = Session("vorigedatumCA") + 0 if Request("volgende3mnd") = "JA" then vanafdatum = Session("volgendedatumCA") + 0 teller=0 statement = "SELECT voorraadtoegangskaarten, menukeuze, routebestemming, bestelsite, optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, paginaID, codeIDsoort, pictureID, toegangsprijs, datum, plaats, locatie, aanvangstijd, toelichting, concertagendaID FROM concertagenda WHERE agendaNUMMER = " & Session("agendaNUMMER") if Session("jaar") > 0 then statement = statement & " AND year(datum) = " & Session("jaar") if Session("maand") > 0 then statement = statement & " AND month(datum) = " & Session("maand") if Request("vorige3mnd") = "JA" AND (Session("vorigedatumCA") + 0) > 0 then statement = statement & " AND datum > " & Session("vorigedatumCA") end if if Request("volgende3mnd") = "JA" AND (Session("volgendedatumCA") + 0) > 0 then statement = statement & " AND datum > " & Session("volgendedatumCA") end if if Request.Querystring("historie") = "JA" then statement = statement & " ORDER BY datum DESC, aanvangstijd" else statement = statement & " ORDER BY datum, aanvangstijd" end if if Session("WEERGAVE_CONCERTAGENDA") = 3 OR Session("WEERGAVE_CONCERTAGENDA") = 4 then statement = "SELECT voorraadtoegangskaarten, menukeuze, routebestemming, bestelsite, optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, paginaID, codeIDsoort, pictureID, toegangsprijs, datum, plaats, locatie, aanvangstijd, toelichting, concertagendaID FROM concertagenda WHERE agendaNUMMER = " & Session("agendaNUMMER") if Session("jaar") > 0 then statement = statement & " AND year(datum) = " & Session("jaar") if Session("maand") > 0 then statement = statement & " AND month(datum) = " & Session("maand") if Request.Querystring("historie") = "JA" then statement = statement & " ORDER BY codeIDsoort DESC, datum, aanvangstijd" else statement = statement & " ORDER BY codeIDsoort, datum, aanvangstijd" end if end if if Request("recordID") > " " then statement = "SELECT * FROM concertagenda WHERE concertagendaID = " & Request("recordID") end if controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) AND (timeID3 - timeID2) < maxaantalseconden tonenJN = "JA" if Session("zoekstring") > " " then tonenJN = "NEE" for teller2 = 1 to 5 if teller2 = 1 then zoekitem = oRs("plaats") if teller2 = 2 then zoekitem = oRs("locatie") if teller2 = 3 then zoekitem = oRs("toelichting") if teller2 = 4 then zoekitem = oRs("bestelsite") if teller2 = 5 then zoekitem = oRs("routebestemming") if len(zoekitem) >= len(Session("zoekstring")) then for teller3 = 1 to (len(zoekitem) - len(Session("zoekstring")) + 1) if Ucase(mid(zoekitem, teller3, len(Session("zoekstring")))) = Ucase(Session("zoekstring")) then tonenJN = "JA" next end if next end if datum1 = year(oRs("datum")) & "-" & right((Cstr(100 + month(oRs("datum")))), 2) & "-" & right((Cstr(100 + day(oRs("datum")))), 2) datum2 = year(vanafdatum) & "-" & right((Cstr(100 + month(vanafdatum))), 2) & "-" & right((Cstr(100 + day(vanafdatum))), 2) if Request("recordID") > " " then ' niets doen else if Request.Querystring("historie") = "JA" then if datum1 >= datum2 then tonenJN = "NEE" else if datum1 < datum2 then tonenJN = "NEE" end if end if if (Session("WEERGAVE_CONCERTAGENDA") = 3 OR Session("WEERGAVE_CONCERTAGENDA") = 4) AND (Session("agendaGENRE") > " " AND Session("agendaGENRE") <> "989898**") then if oRs("codeIDsoort") <> Session("agendaGENRE") then tonenJN = "NEE" if Session("agendaGENRE") = "2009-06" AND oRs("codeIDsoort") = "2009-08" AND Session("WEBSITEID") = "PJL2" then tonenJN = "JA" end if if tonenJN = "JA" then teller = teller + 1 opvoorraad = "JA" if Session("actueleautorisatieniveau") <= 1 AND oRs("voorraadtoegangskaarten") > 0 then aantalverkocht = 0 statement2 = "SELECT SUM(aantal) AS aantalverkocht FROM orderregels WHERE agendaID = " & oRs("concertagendaID") & " GROUP BY agendaID" controlestatement = statement2 %><% Set oRs2 = oConn.Execute(statement2) Do while (Not oRs2.eof) aantalverkocht = aantalverkocht + oRs2("aantalverkocht") oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing if aantalverkocht >= oRs("voorraadtoegangskaarten") then opvoorraad = "NEE" end if ' ============================================================================================================================================================================================================== ' UITGEBREIDE WEERGAVE (1) ' ============================================================================================================================================================================================================== %><% ' ============================================================================================================================================================================================================== ' TABEL WEERGAVE MET TUSSENKOPJE PER MAAND (2) ' ============================================================================================================================================================================================================== %><% ' ============================================================================================================================================================================================================== ' TABEL WEERGAVE MET TUSSENKOPJE PER CONCERTSOORT (3) ' ============================================================================================================================================================================================================== %><% ' ============================================================================================================================================================================================================== ' TABEL WEERGAVE MET TUSSENKOPJE PER CONCERTSOORT EN TOELICHTING OVER DE GEHELE BREEDTE (4) ' ============================================================================================================================================================================================================== %><% ' ============================================================================================================================================================================================================== ' TABEL WEERGAVE MET TUSSENKOPJE PER MAAND EN MOGELIJKHEID OM MEERDERE ITEMS IN 1 KEER TE BESTELLEN (5) ' ============================================================================================================================================================================================================== %><% ' ============================================================================================================================================================================================================== ' PER MAAND (MAX 3 MAANDEN) WORDT 1 KOLOM WEERGEGEVEN (6) ' ============================================================================================================================================================================================================== %><% ' KOPPELING NAAR ROUTEPLANNER if oRs("routebestemming") > " " then if Session("WEERGAVE_CONCERTAGENDA") = 1 then Response.write "
" Response.write "" Response.write "" Response.write "Uw postcode:  " Response.write "
" Response.write "
" Response.write "" Response.write "Uw postcode:  
" Response.write "
" Response.write "
" Response.write "" Response.write "Uw postcode:  
" Response.write "
  
" end if Response.write "" end if end if Response.write "" Response.write "
 " if Session("paginaIDCAbottom") > 0 OR Request.Querystring("paginaIDbottom") > 0 then if Request.Querystring("paginaIDbottom") > 0 then Session("paginaIDCAbottom") = Request.Querystring("paginaIDbottom") ' ----------------------------------------------------------------------------------------------------------------------- Session("nieuwspaginaIDTF") = Session("paginaIDCAbottom") + 0 legeregel = "NEE" %><% Response.write "" Response.write "
" & nieuwsitem & "

" ' ----------------------------------------------------------------------------------------------------------------------- end if if (timeID3 - timeID2) >= maxaantalseconden then Response.write "
De opdracht duurde te lang, probeer het later nog eens!
" end if %>