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
$c=$udfLibrary.responsetext
$c=substr($c,instr($c,"Page: 1"))
$c=left($c,instr($c,chr(10))-3)
$c=substr($c,instrrev($c,">")+1)
$c=val(trim(left($c,instr($c,"<")-1)))

dim $pages[$c-1]

for $c=0 to ubound($pages)
 $pages[$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
 $page=$udfLibrary.responsetext
 $place=instr($page,'<a href="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=12;t=')
 while $place
	$page=substr($page,$place)
	$pages[$c]=$pages[$c]+trim(left($page,instr($page,"</a>")+3))
	$page=substr($page,instr($page,'<font size="2" face="Verdana, Helvetica, sans-serif">')+54)
	$pages[$c]=$pages[$c]+chr(9)+substr($page,instr($page,"</font>")-1)+"<br>"
	$place=instr($page,'<a href="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=12;t=')
 loop
next
del @scriptdir+"\list.htm"
for $c=0 to ubound($pages)
$=open(1,@scriptdir+"\list$c"+".htm",5)
$=writeline(1,$pages$[c])
$=close(1)
next

---