Function函数问题，在线等

[underone]

<%
objRs.Open "Select * From ZCGG Where SortNo='"&a&"'",objConn,1,1
If Not objRs.Eof Then
Response.Write "<tr><td bgcolor=#FF9933>  <img src=images/dot.gif width=8 height=8>"%>
<%=objRs("FirstChannelName")%>
<%
Response.Write "</td></tr>"
While Not objRs.Eof
str = "DCQ_ZCGG_Information"
%>
<tr><td class="linehe130"><%Response.Write "<a href='Content.asp?id="&objRs("EssayID")&"' target=_blank>"%>
<%=objRs("Title")%></a><br>=objRs("Content")%>
</td></tr>
<%
objRs.MoveNext
WendobjRs.Close
End If
%>
请问如何将它改成一个function函数，我每次要调用的是objRs.Open "Select * From ZCGG Where SortNo='"&a&"'",objConn,1,1里面的ZCGG，在要调用的地方放什么，放哪里，高手指教，最好具体一点，谢谢！！！