Function函数问题，在线等

[underone]

<%
objRs.Open "Select * From DCQ_ZCGG_Information 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")&"&tablename="&str&"' target=_blank>"%>
<%=objRs("Title")%></a><br>=objRs("Content")%>
</td></tr>
<%
objRs.MoveNext
WendobjRs.Close
End If
%>
<%
objRs.Open "Select * From DCQ_SYZC_Information 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_SYZC_Information"
%>
<tr><td class="linehe130"><%Response.Write "<a href='Content.asp?id="&objRs("EssayID")&"&tablename="&str&"' target=_blank>"%><%=objRs("Title")%></a><br><%=objRs("Content")%>
</td></tr>
<%
objRs.MoveNext
Wend
objRs.Close
End If
%>
请问如何将它改成一个function函数，到第二次调用就可以了，高手指教，谢谢