<%@ 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
KT Murphy Elementary School
Healthy Living
Principal's Office
Playground
Parent's Place
Teacher's Lounge
Classroom Connection
Bookshelf
Bulletin Board
Center for the Arts
After the Bell
K2C
In the Community
Suggestion Box
Emergency Notification

Exercise is Cool

Time to Play
(What to do when there's nothing to do.)

Safety Tips for Parents