<%@ 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
Title
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
Kindergarten Teachers
Mr. Liberatore
Mr. Martino
Healthy Kids
Encouraging Healthy Kids
 
Field Day Schedule