%
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
%>
www.NCwaterways.com
|
|
|
Boat Builders
July 23rd -08
I am re-working this page and its links - there were so many
mistakes that I think it is best to start over.
Mike Bradley
|
|