<%
set rs=server.CreateObject("ADODB.RecordSet")
' The following SQL edited by David Levine to only retrieve for display records which are marked as live
' SQL="select * from tbFREditorial order by " & order
Dim TotalRecord, HalfRecord
SQL="select * from tbFREditorial where intStatus=2 order by dtTimeStamp"
rs.open SQL, "DSN=dotcom", 1,3
TotalRecord=rs.RecordCount
HalfRecord=round(TotalRecord/2)
'response.write HalfRecord
%>
Inkheart: Speak Your Mind | Scholastic.com
<% doMenu %>
