... con permiso...
no has cambiado la línea que te dijo Bankazip, ahi está el error
do until rs.EOF
Response.Write("<b>Nombre:</b> ")
Response.Write(rs.Fields("Nombre") & "<BR>")
Response.Write("<b>Descripción:</b> ")
Response.Write(rs.Fields("Descripción") & "<BR>")
Response.Write("<b>URL:</b> ")%>
<a href="<%=rs.Fields("URL")
%>">
http://www.ideal.es</a>
<%
Response.Write("<b>Imagen:</b> ")%>
<%
Response.Write("<b>Imagen:</b> ")
Response.Write(rs.Fields("Imagen") & "<BR>")
Response.Write("<BR>")
rs.MoveNext
loop
%>
Así a ojo lo que veo que falta es lo que te dejé en negrita.
Suerte