Function driller

Jeg har følgende stump kode, men når jeg kører det giver det mig en fejl, kan du hjælpe mig?

Kode:
---------
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/_private/bookmark.mdb")
set Rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From category ORDER BY cattitle"
set Rs = Conn.Execute(strSQL)

do until rs.eof
    Response.Write "<table><tr>"
    Response.Write "<td>"& Rs("cattitle")& "</td>"
        'Getlinks(Rs("Cid"))
    Response.Write "</tr></table>"
rs.movenext
Loop

Function Getlinks(Cid)
strSQL = "Select * From bookmark Where ID = "&Cid&" ORDER BY title"
set Rs = Conn.Execute(strSQL)
do while not rs.eof
    Response.Write "<td>"& Rs("title")& "</td>"
rs.movenext
End Function

Rs.Close
set Rs = nothing   
Conn.Close
set Conn = nothing
%>
---------


Fejl:
---------
Microsoft VBScript compilation error '800a0400'

Expected statement

/bookmark_list/Default.asp, line 22

End Function
^