<%
set OBJdbConn = Application("ncw")
cnt = -1
Set field = OBJdbConn.Execute("ncw_dev.ticker_get 4")
Do While Not field.EOF
cnt = cnt + 1
redim preserve desc(cnt), desturl(cnt), size(cnt), style(cnt), textcolor(cnt), loadwhere(cnt)
desc(cnt)=field("text")
desturl(cnt)=field("desturl")
size(cnt)=field("fontsize")
style(cnt)=field("style")
textcolor(cnt)=field("color")
loadwhere(cnt)=field("loadwhere")
field.MoveNext
Loop
field.Close
Set field = Nothing
%>
Storm Water Permit Index
