<%@ 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
Educational Assistants
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
Mrs. Ackerson
Mr. Brown
Mrs. Chejin
Mrs. Considine
Mrs. Giannattasio
Mrs. Kopec
Mrs. McAuliffe
Mrs. Melchionne
Mrs. O'Connor
Mrs. Sempertegui
Mrs. Tamborino
Mrs. Vartuli