<%
Set rsdb = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM atletas_ins where fecha " & discriminar_fecha & "Order by Nombre desc"
rsdb.Open strSQL, Conn
Do While Not rsdb.EOF
Response.Write ("<img border=0 src=""../../imagenes/bullet.gif"">")
response.write ("<a href=""javascript
:popUp('editar.asp?id=")
response.write (rsdb("ID"))
response.write ("')"" class=""vinculo2"">")
response.write (rsdb("nombre"))
response.write ("</a>")
response.write ("<br>")
response.write ("</a>")
response.write ("<br>")
rsdb.MoveNext
loop
%>