sub registerform
{
	$sth=runSQL(qq|SELECT usr.name, sl.sdsc1, sl.surl1, sl.header, sl.sdsc2, sl.surl2, sl.sdsc3, sl.surl3, sl.sdsc4, sl.surl4, sl.sdsc5, sl.surl5, sl.sdsc6, sl.surl6, sl.sdsc7, sl.surl7, sl.sdsc8, sl.surl8, sl.sdsc9, sl.surl9, sl.sdsc10, sl.surl10, sl.sdsc11, sl.surl11
	FROM users usr, sitelinks sl
	#	$db_users
		WHERE usr.userid='$refer' AND sl.userid='$refer' AND sl.status=1|);
	@arr=$sth->fetchrow;
	#
#	$arr[1]=~ s/\<//g;
	$arr[1]=~ /(.{1,64}\W)/ms;
	
	$link0="<a href=http://$arr[2]>$arr[1]</a>";
	#
	$link1="<tr><td><a href=http://$arr[5]>$arr[4]</a><br><br></tr></td>";
	$link2="<tr><td><a href=http://$arr[7]>$arr[6]</a><br><br></tr></td>";
	$link3="<tr><td><a href=http://$arr[9]>$arr[8]</a><br><br></tr></td>";
	$link4="<tr><td><a href=http://$arr[11]>$arr[10]</a><br><br></tr></td>";
	$link5="<tr><td><a href=http://$arr[13]>$arr[12]</a><br><br></tr></td>";
	$link6="<tr><td><a href=http://$arr[15]>$arr[14]</a><br><br></tr></td>";
	$link7="<tr><td><a href=http://$arr[17]>$arr[16]</a><br><br></tr></td>";
	$link8="<tr><td><a href=http://$arr[19]>$arr[18]</a><br><br></tr></td>";
	$link9="<tr><td><a href=http://$arr[21]>$arr[20]</a><br><br></tr></td>";
	$link10="<tr><td><a href=http://$arr[23]>$arr[22]</a></tr></td>";
	#
	my $templ=opentemplate('regform','normal');
	substemplate($templ,'fullname',$arr[0]);
	substemplate($templ,'header',$arr[3]);
	substemplate($templ,'link0',$link0);
	substemplate($templ,'link1',$link1);
	substemplate($templ,'link2',$link2);
	substemplate($templ,'link3',$link3);
	substemplate($templ,'link4',$link4);
	substemplate($templ,'link5',$link5);
	substemplate($templ,'link6',$link6);
	substemplate($templ,'link7',$link7);
	substemplate($templ,'link8',$link8);
	substemplate($templ,'link9',$link9);
	substemplate($templ,'link10',$link10);
	substemplate($templ,'refer',$refer?$refer:'none');
	print $templ;
}