<%
dim strSQL, strSQL_meny, i, j, looop, numPoster, rStr_Rubrik(),
rStr_artikelID(), rStr_Ingress()
dim artikelID, objRec_meny
strSQL_meny = "SELECT * FROM intranet2000_nyheter WHERE Typ=1 ORDER BY
Publiceringsdatum DESC;"
Set objRec_meny = Server.CreateObject("ADODB.RecordSet")
objRec_meny.Open strSQL_meny, "DSN=intradata", adOpenDynamic,
adLockPessimistic, adCmdText
'Räkna ut antalet poster i tabellen med aktuella artiklar
While NOT objREC_meny.EOF
numPoster = numPoster + 1
objREC_meny.MoveNext
Wend
objREC_meny.MoveFirst
%>
----------------------------------------------------------------------------
----------------------------------