
Muchas gracias
<%
Set rsdb = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tbl_patrocinadores.* FROM tbl_patrocinadores;"
rsdb.Open strSQL, Conn
Do While not rsdb.EOF
Response.Write ("<br>")
Response.Write ("<a href=""editar.asp?ID=" & rsdb("ID") & """ class=vinculo2>")
Response.Write (rsdb("Patrocinador"))
Response.Write ("</a>")
Response.Write ("<br>")
Response.Write ("<b>")
Response.Write("<IMG SRC="&rsdb("imagen")&" width=50 height=50 BORDER=0>")
Response.Write ("</b>")
Response.Write ("<br>")
Response.Write (rsdb("Url"))
Response.Write ("<br>")
Response.Write ("<br>")
rsdb.MoveNext
Loop
rsdb.Close
Set rsdb = Nothing
%>