<%@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
ROCKCRAWLER.com
Land Use

Editor: Shawn Pagan
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% If Recordset1.Fields.Item("Deadline").Value - date() <= 3 Then %> <% Else %> <% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Get More Information, Additional Issues and Discuss Land Use And Environmental Issues on our Boards!
Visit the Board Now!
Area Headline
<%=(Recordset1.Fields.Item("Area").Value)%> "><%=(Recordset1.Fields.Item("Headline").Value)%>   Deadline: <%=(Recordset1.Fields.Item("Deadline").Value)%>
<%=(Recordset1.Fields.Item("Area").Value)%> "><%=(Recordset1.Fields.Item("Headline").Value)%>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
 SOLV it 2002
 SOLV it 2002
 Take Responsibility!
Uwharrie Clean Up Day
Being the New Wheeler
Save a Tree
Have I Done Enough Yet? JuJu Mountain Clean Up  

 

©2001 ROCKCRAWLER.com