<%@ Language=VBScript %>
<%
'Option Explicit
Dim adoCmd, sSQLString1, sSQLString2, rsUpdates, rsMustReadUpdates
sSQLString1 = "SELECT TOP 10 * FROM tblUpdate ORDER BY ID DESC"
sSQLString2 = "SELECT TOP 5 * FROM tblUpdate WHERE MustRead = True AND ID NOT IN (SELECT TOP 10 ID FROM tblUpdate ORDER BY ID DESC) ORDER BY ID DESC"
Set adoCmd = Server.CreateObject("ADODB.Command")
With adoCmd
.ActiveConnection = sUpdateConnectionString
.CommandType = 1
.CommandText = sSQLString1
.NamedParameters = False
Set rsUpdates = .Execute
End With
With adoCmd
.ActiveConnection = sUpdateConnectionString
.CommandType = 1
.CommandText = sSQLString2
.NamedParameters = False
Set rsMustReadUpdates = .Execute
End With
Set adoCmd = Nothing
%>