%@ 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
|
The Media Center |
|
Live Homework Help from Tutor.com
provided by the Ferguson Library
available from 3 pm to 10 pm with your Stamford Public Library Card
Try our Literary Links to visit with some of our favorite authors; or take a visit to some of these on-line magazines or other favorite sites:
|
|
|