<% strTitel = "VWG-Meijendel | Nieuws" %> <% Dim strID, strTitel, strTekst, maxidRs, nextID strID = CInt(Request.Form("strId"))' CInt om zeker te stellen dat het een getal is If strID = 0 Then strID = CInt(ReplaceBadChar(Request.QueryString("id"))) 'ReplaceBadChar' (in common.asp) om eventueel rommel te verwijderen strSQL = "SELECT MAX(id) AS maxID FROM tblWebpaginas WHERE type = 2" Set maxidRs = adoCn.execute(strSQL) nextID = CInt(maxidRs("maxID")) ' die is in de vorige stap aangemaakt maxidRs.Close Set maxidRs = Nothing ' alles boven nextID is ongeldig; redirect naar nietgevonden.asp om de 'ongeldigheid' te bevestigen (dat is nl. moedwillig…) If strID > nextID Then Response.Redirect("../welkom/nietgevonden.asp?refresh=2") If strID = 180 Then Response.Redirect("../meijendel/index.asp?id=180") If strID = 0 Then Response.Redirect("../nieuws/index.asp") ' er is geen ID opgegeven; waarom?? %>

(<%=strDatum%>)

<%=strCaption%>

<%=strTekst%>