%@ Language=VBScript %>
<%
Response.ExpiresAbsolute
User = Request.Querystring("USER")
sysDate = date()
Flag = 0
Set rsTest = Server.CreateObject("ADODB.Recordset")
rsTest.activeconnection = sConn
rsTest.Source = "SELECT * FROM Table1 WHERE vExpires > #"+ Replace(sysDate,"'", "'")+"# ORDER BY vExpires"
'Response.write "SQL = " &rsTest.source& "
"
rsTest.CursorType = 0
rsTest.CursorLocation = 2
rsTest.LockType = 3
rsTest.Open
'rsTestRows = 0
IF NOT (rsTest.BOF or rsTest.EOF) then
Flag = 1
End If
'RESPONSE.write "Flag = " & Flag & "
"
%>
KT Murphy Elementary School
|
Literary Links |
|
Visit these author's web pages
to learn more about them and their books!
These book award sites describe how the various medals are awarded.
Read about the winners as well as the honor books.
|
|
|