tenés ésto:
Código:
<%
busqueda.Close()
Set busqueda = Nothing
wend
end if ' Aqui te faltan estos elementos
%>
Está mal, tenés que cerrar el recordset fuera del while/wend (y también luego del end if):
Código:
<%
wend
end if ' Aqui te faltan estos elementos
busqueda.Close()
Set busqueda = Nothing
%>
Ahora, me gustaría que lo analices y me digas el por qué debe ser así.
Saludos