% ' De variabelen van het sBericht Dim aAlleData, sNaam, sEmail, sBericht, sDatum, iLeeg, sTekst, sNaamveld, sGeslacht ' Opvragen startpositie Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") 'controle op posities if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart = 0 else iStart = CInt(iStart) end if if Not IsNumeric(iOffset) or Len(iOffset) = 0 then iOffset = iAantalPP else iOffset = Cint(iOffset) end if sSQL = "SELECT * FROM Berichten ORDER BY Datum DESC, Bericht_id DESC" ' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon) Set objCon = Server.CreateObject ( "ADODB.Connection" ) objCon.open strCon 'Maak een recordset aan met de gegevens uit de database. Dim objRec set objRec=objCon.execute(sSQL) ' Als er geen gegevens in de database staan geeft dit dan aan. if objRec.eof then ileeg = 1 Call SluitAlles end if if ileeg <> 1 then ' Nu halen we alle records uit de database en zetten ze in aAlleData aAlleData=objRec.getrows Call SluitAlles end if %>