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)))
$=open(1,@scriptdir+"\listUDF"+".htm",5)

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)
	$line='<a href="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=12;t='+left($page[$],instr($page[$],"</a>")+3)+chr(9)
	if instr($line,";p=") $line="" endif
	$page[$]=substr($page[$],instr($page[$],'<font size="2" face="Verdana, Helvetica, sans-serif">')+54)
	if instr($page[$],"</font>")
		$nul=writeline(1,left($line+$page[$],instr($line+$page[$],"</font>")-1)+"<br>")
	else
		$nul=writeline(1,$line)
	endif
 next
next
$=close(1)

---