<%@ 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
Art
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
 
Ms. Ramsey
 
Ms. Hajjar