Stort problem med \"function\"??

Kan nogen fortælle mig hvad der er galt med denne function...? - jeg er lidt grøn - please hjælp!

<% Function ShowSubCat

CatId = Request.QueryString(\"CATID\")
SQL = \"SELECT * From cat WHERE sub = \"&CatId
SQL = SQL &\" Order by catname asc\"
set objRec = objCon.Execute(SQL)
%>

<div align=\"left\">
 
<table border=\"0\" width=\"500\" cellspacing=\"10\" cellpadding=\"0\">

<% Do While NOT objRec.EOF %>


<tr>
<TD ALIGN=LEFT  WIDTH=\"165\">
<b><a class=4 href=\"show.asp?CATID=<%=objRec(\"catid\")%>\"><%=objRec(\"catname\")%></a></b>
</TD>
<% if NOT objRec.EOF Then
objRec.MoveNext
end if
if Not objRec.EOF then
%>
<% end if%>

<TD ALIGN=LEFT  WIDTH=\"165\">
<b><a class=4 href=\"show.asp?CATID=<%=objRec(\"catid\")%>\"><%=objRec(\"catname\")%></a></b>
</TD>
<% if NOT objRec.EOF Then
objRec.MoveNext
end if
if Not objRec.EOF then
%>
<% end if%>

<TD ALIGN=LEFT  WIDTH=\"165\">
<b><a class=4 href=\"show.asp?CATID=<%=objRec(\"catid\")%>\"><%=objRec(\"catname\")%></a></b>
</TD>


</tr>

<%
if NOT objRec.EOF Then
objRec.MoveNext
end if
loop
%>
</table>
</div>
<% end function %>