<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' ------------------------------------------------------------------------------------------------------------------------------------ ' 25-07-2006 NIEUWBOUW ' ------------------------------------------------------------------------------------------------------------------------------------ Session("parameterID") = 0 %> "> <% DATABASE_OPEN if Session("actuelebedrijfsadministratie") > 0 then statement = "SELECT codeID, waardeAlfanumeriek FROM stamtabel WHERE groepID = 'dashboardsamenstelling' AND bedrijfsadministratieID = " & Session("actuelebedrijfsadministratie") & " ORDER BY codeID" ' Response.write statement Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) if Session("WEBSITEID") = "STEMPELLEN" then Response.write "

" else Response.write "

" end if oRs.MoveNext Loop oRs.close Set oRs = Nothing end if DATABASE_CLOSE %>