<%
cmdTemp.CommandText = "SELECT news,dateupdated FROM news order by dateupdated desc "
Set recordSet = Server.CreateObject("ADODB.Recordset")
recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
REM check for empty record set (beginning and end the same or can't get EOF or BOF)
On Error Resume Next
If recordset.BOF And recordset.EOF Then EmptyRecordset = True
On Error Goto 0
If Err Then EmptyRecordset = True
REM -- act on pagemove instruction (from form)
If Not EmptyRecordset Then
while not recordset.EOF
response.write "
" & recordset("news") & "
"& recordset("dateupdated") & "
"
recordset.MoveNext
wend
else
REM Empty RecordSet Nothing to see
response.write "Nothing to see "
end if
%>
