%@LANGUAGE="VBSCRIPT"%> <%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=rcLandUse;"
Recordset1.Source = "SELECT * FROM Stories WHERE ExpireDate >= date()"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open
Recordset1_numRows = 0
%><%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
ROCKCRAWLER.com
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
Get
More Information, Additional Issues and Discuss Land Use And
Environmental Issues on our Boards!
Visit
the Board Now! |
Area |
Headline |
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<% If Recordset1.Fields.Item("Deadline").Value - date() <= 3 Then %>
<%=(Recordset1.Fields.Item("Area").Value)%> |
"><%=(Recordset1.Fields.Item("Headline").Value)%> Deadline:
<%=(Recordset1.Fields.Item("Deadline").Value)%> |
<% Else %>
<%=(Recordset1.Fields.Item("Area").Value)%> |
"><%=(Recordset1.Fields.Item("Headline").Value)%> |
<% End If %>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
|
|
©2001
ROCKCRAWLER.com
|