| |
Loading Opera Data Systems:
Since 1993 Opera Data Systems Has Been Providing
Florida with OR Index Data, OR Documents and Quality Data Services.
We provide both County Clerks OR1 Index Data and Documents
for up to 43 Counties. We also provide special search services by contract.
This mass of data and documents is accessed thought an Easy to Use, In-Expensive,
Customizable Search Engine and Web Delivery System. This system delivers
index data and documents with a secure intuitive interface and a managed
paperless work environment.
Our Motto
Do not follow where the path may lead, go where there is no path and leave
a trail.
About Opera Data Systems, inc.
Associated Links
Contact Us
Data & Doc Ranges
Features
Future Projects
Help Demo Tutorial
Index
News & Archives
Opera Home Page
Pricing
Products & Services
Testimonials.html
ARIA II Logon
ARIA II Logooff
|
|
">
<%
&& print top most current news message
if used("webnews")
select webnews
use
endif
select 0
lc_webfile = Path.MakePath("%root%\oa1webnews.dbf")
use (lc_webfile) noupdate alias webnews
&& print randon currently active news message
set filter to active .and. run_until >= date()
go top
count to ln_allavail
&& create 2 random record numbers within the max range
ln_rand1 = int( rand() * ln_allavail )
ln_rand2 = ln_rand1
*do while ln_rand1 = ln_rand2
* ln_rand2 = int( rand() * ln_allavail )
*enddo
set order to entered
set filter to active .and. run_until >= date()
go top
if random
go ln_rand1
endif
ln_notthisrec = 0
ln_2notthisrec = 0
if ! eof() .and. ! bof().and. reccount()>=1
ln_notthisrec = recno()
lc_outstr = []+alltrim(headline)+[
]+alltrim(hdln_com1)+[ ]+alltrim(hdln_com2)
if webnews.artic_link
? []+;
lc_outstr+[ (link)
]
else
? lc_outstr+[
]
endif
skip
ln_2notthisrec = recno()
lc_outstr = []+alltrim(headline)+[
]+alltrim(hdln_com1)+[ ]+alltrim(hdln_com2)
if webnews.artic_link
? []+;
lc_outstr+[ (link)
]
else
? lc_outstr+[
]
endif
endif
&& print random currently active news message
set filter to active .and. recno() != ln_notthisrec .and. recno() != ln_2notthisrec .and. run_until >= date()
go top
count to ln_allavail
set exact off
set near on
ln_notrand = 0
if ln_allavail >= 1
ln_seed = rand((seconds()+10)*.29) && biased toward top
if ln_seed <= 0 .or. ln_seed >= 1
ln_seed = .5
endif
ln_gorec = ln_seed*ln_allavail
if ln_gorec <= 1
go top
endif
if ln_gorec >= reccount()
go bottom
endif
ln_gorec = abs(ln_gorec+.5)
if ln_gorec >= 1 .and. ln_gorec <= reccount()
go ln_gorec
endif
if ln_rand2 <=0 .or. ln_rand2 > reccount()
go bott
else
go ln_rand2
endif
if recno()=ln_notthisrec .or. recno()=ln_2notthisrec
skip
if eof()
go top
endif
endif
if recno()!=ln_notthisrec .and. recno()!=ln_2notthisrec
ln_notrand = recno()
lc_outstr = []+alltrim(headline)+[
]+alltrim(hdln_com1)+[ ]+alltrim(hdln_com2)
if webnews.artic_link
? []+;
lc_outstr+[ (link)
]
else
? lc_outstr+[
]
endif
endif
endif
if .f. &&ln_notrand > 0
&& print randon currently active news message
set filter to active .and. recno() != ln_notrand .and. recno() != ln_notthisrec .and. recno() != ln_2notthisrec .and. run_until >= date()
go top
count to ln_allavail
set exact off
set near on
if ln_allavail >= 1
ln_seed = rand((seconds()+10)*.71) && biased toward bottom
if ln_seed <= 0 .or. ln_seed >= 1
ln_seed = .5
endif
ln_gorec = ln_seed*ln_allavail
if ln_gorec <= 1
go top
endif
if ln_gorec >= reccount()
go bottom
endif
ln_gorec = abs(ln_gorec+.5)
if ln_gorec >= 1 .and. ln_gorec <= reccount()
go ln_gorec
endif
if recno()=ln_notthisrec .or. recno()=ln_2notthisrec .or. recno()=ln_notrand
skip
if eof()
go top
endif
endif
if recno()!=ln_notthisrec .and. recno()!=ln_2notthisrec .and. recno()!=ln_notrand
lc_outstr = []+alltrim(headline)+[
]+alltrim(hdln_com1)+[ ]+alltrim(hdln_com2)
if webnews.artic_link
? []+;
lc_outstr+[ (link)
]
else
? lc_outstr+[
]
endif
endif
endif
use
endif
%>
World News Headlines
by CNSNEWS.com
|
|
