<%@ 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
School Rules
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

bullet Treat others the way you want to be treated.
bullet Be polite, follow adult directions the first time.
bullet Keep hands, feet, and objects to yourself.
bullet No "put downs" -- respect the feelings of others
through actions and words.
bullet Be prepared -- bring materials/assignments to class.
bullet Walk at all times. Keep to the right in the hallways.