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)))

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

---