I made a script to collect the udf-library topics.
funny thing is that it says that the bloody page has no more than one topic and even that one does not have author.
can't get my head over this.
script is so simple and so easy and still, no can get it.
I made so debug lines like:
?substr($pages,15)
all of those return ""
at the first point, $page[$c] returns some stuff and later on, it's empty...
this is so weird.
code:
$udfLibrary = createobject("microsoft.xmlhttp")
$udfLibrary.open("GET","http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=forum&f=12&DaysPrune=1000&submit=Go",not 1)
$udfLibrary.send
$pages=$udfLibrary.responsetext
$pages=substr($pages,instr($pages,"Page: 1"))
$pages=left($pages,instr($pages,chr(10))-3)
$pages=substr($pages,instrrev($pages,">")+1)
$pages=val(trim(left($pages,instr($pages,"<")-1)))
dim $page[$pages-1]
for $c=0 to ubound($page)
$page[$c]=""
$udfLibrary.open("GET","http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=forum;f=12;hardset=1000;start_point="+($c*25) ,not 1)
$udfLibrary.send
$pages=$udfLibrary.responsetext
$place=instr($pages,'<a href="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=12;t=')
while $place
$pages=substr($pages,$place)
$page[$c]=$page[$c]+trim(left($pages,instr($pages,"</a>")+3))
?substr($pages,15)
$pages=substr($pages,instr($pages,'<font size="2" face="Verdana, Helvetica, sans-serif">')+54)
??$page[$c]
?substr($pages,15)
$page[$c]=$page[$c]+chr(9)+substr($pages,instr($pages,"</font>")-1)+chr(10)
?$page[$c]
?substr($pages,15)
$place=instr($pages,'<a href="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=12;t=')
get $ if $="y" exit 0 endif
loop
next
for each $pages in $page
$pages
next
get $