[Resolvido] Como corrigir essa função

Eu criei essa função abaixo

<%
' Montar Seções da Home
'nms = Nome da Seção
'nmc = Nome do Conjunto de Registros
'nmt = Nome da Tabela
'qtd = Quantidade de Repetições da lista
Function Secoes(nms,nmt,qtd)

	response.Write "<div id='clear' style='margin-bottom:30px;'>"
	response.Write "<div id='left' style='width:38%;'>"
	response.Write "<div id='titulosecao'>" & nms & "</div>"

	Dim secao
	Dim secao_numRows

	Set secao = Server.CreateObject("ADODB.Recordset")
	secao.ActiveConnection = MM_con_base_STRING
	secao.Source = "SELECT * FROM " & nmt
	secao.CursorType = 0
	secao.CursorLocation = 2
	secao.LockType = 1
	secao.Open()
	secao_numRows = 0

	Dim rqtd__numRows
	Dim rqtd__index

	rqtd__numRows = 1
	rqtd__index = 0
	secao_numRows = secao_numRows + rqtd__numRows

	While ((rqtd__numRows <> 0) AND (NOT secao.EOF))
	LimpaUrl = secao("tit")

	response.Write "<a href='" & UrlSite & "/" & secao("url") & "/mostra.asp?/" & secao("id") & "/" & CriaUrl(LimpaUrl) & "/' class='a1' title='" & secao("tit") & "'>"
	If secao("img") <> "" Then
	response.Write "<img src='" & UrlSite & "/conteudo/imagens/m_" & secao("img") & "' alt='" & secao("tit") & "' width='200' height='130' border='0' id='img-bottom' /><br />"
	End If
	If secao("icone") <> "" Then
	response.Write "<img src='" & UrlSite & "/skin/" & secao("icone") &"' width='14' height='12' border='0' /> "
	End If
	response.Write "<strong>" & secao("tit") & "</strong></a>"

	rqtd__index=rqtd__index+1
 rqtd__numRows=rqtd__numRows-1
 secao.MoveNext()
	Wend

	response.Write "</div>"
	response.Write "<div id='right' style='width:58%;'>"

	Dim rqtd1__numRows
	Dim rqtd1__index

	rqtd1__numRows = qtd
	rqtd1__index = 0
	secao_numRows = secao_numRows + rqtd1__numRows

	Contsecao = 1

	While ((rqtd1__numRows <> 0) AND (NOT secao.EOF))
	LimpaUrl = secao("tit")

	response.Write "<div style='margin-bottom:12px;'>"
	response.Write "<a href='" & UrlSite & "/" & secao("url") & "/mostra.asp?/" & secao("id") & "/" & CriaUrl(LimpaUrl) & "/' class='a1' title='" & secao("tit") & "'"
	If Contsecao = 1 Then
	response.Write "style='font-weight:bold; font-size:20px; line-height:110%;'"
	End If
	response.Write ">"
	If secao("icone") <> "" Then
	response.Write "<img src='" & UrlSite & "/skin/" & secao("icone") & "' width='14' height='12' border='0' /> "
	End If
	response.Write secao("tit") & "</a>"
	response.Write "</div>"
	Contsecao = Contsecao + 1

 rqtd1__index=rqtd1__index+1
 rqtd1__numRows=rqtd1__numRows-1
 secao.MoveNext()
	Wend

	secao.Close()
	Set secao = Nothing

	response.Write "</div>"
	response.Write "</div>"

End Function
%>

Para chamá-la eu uso o seguinte:

<%
Call Secoes("Nome da Seção","nome_tabela",qtdderegistros)
%>

No entanto, quando chamo essa função duas vezes na mesma página, mesmo com nome de seção e nome da tabela diferente... a segunda chamada não retorna nenhum dado...

Como resolver isso?