<%@ 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 & " "
%>
Welcome to Westover Elementary School
Welcome to Westover!
Kathleen Wunder, Principal
Janet Schneider, Assistant Principal
