Vilket är snabbast?

Jag håller på och kodar på ett forum och jag undrar vilken av föjlande metoder som är snabbast.
(Jag har satt Response.Buffer till True)

sub ListForums()
	dim rstCat
	
	Call dbOpen()
	
	strSql = "SELECT catId, catTitle, catOrder FROM tblCat ORDER BY catOrder"
	set rstCat = objConn.Execute(strSql)
	
	If not rstCat.EOF Then
		Do Until rstCat.EOF
		%>
			<div id="cat_top"><span>
		<%
			Response.Write rstCat("catTitle")
		%>
			</span></div>
		<%
		rstCat.MoveNext
		Loop
	Else
	%>
		<span class="empty">&nbsp;Det finns inga kategorier i databasen.</span>
	<%
	End If
	
	rstCat.Close : set rstCat = nothing
		 
	Call dbClose()
end sub

eller

sub ListForums()
	dim rstCat
	
	Call dbOpen()
	
	strSql = "SELECT catId, catTitle, catOrder FROM tblCat ORDER BY catOrder"
	set rstCat = objConn.Execute(strSql)
	
	If not rstCat.EOF Then
		Do Until rstCat.EOF
			Response.Write("<div id=""cat_top""><span>")
			Response.Write rstCat("catTitle")
			Response.Write("</span></div>")
		rstCat.MoveNext
		Loop
	Else
		Response.Write("<span class=""empty"">&nbsp;Det finns inga kategorier i databasen.</span>")
	End If
	
	rstCat.Close : set rstCat = nothing
		 
	Call dbClose()
end sub

Med vänlig hälsning
Stefan