Seria en:
Do While Not rstBusqueda.eof
for each Campo in rstBusqueda.fields
if not isnull(Campo.value) then
if Campo.Name = "URL" Then
Response.Write("<td><a href='" & Campo.value & "'> ir </a></td>")
else
Response.Write("<td>" & Campo.value & "</td>")
end if
else
Response.Write("<td> </td>")
end if
Next
rstBusqueda.MoveNext
Loop
Saludos