Bueno, el código final quedaría así... creo que con estas modificaciones andaría lo más bien:
Código:
<HTML>
<TITLE> Ejemplo sencillo de BD </TITLE>
<BODY>
<!-- #INCLUDE File="ADOVBS.inc" -->
<H3>Datos Personales</H3>
<% u_id=request.querystring("u_id")
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open "EjemploBD"
Set rs = Ob_Conn.Execute ("SELECT * FROM Dates WHERE DNI=" & request("u_id") & "") %>
<CENTER>
<TABLE BORDER=0 bgcolor="#cccc99">
<TR>
<TH> D.N.I. </TH>
<TH> EDAD </TH>
<TH> CIUDAD </TH>
<TH> GENERO </TH>
<% Do while not rs.eof %>
<TR>
<TD> <%= rs("DNI") %> </TD>
<TD> <%= rs("Edad") %> </TD>
<TD> <%= rs("Ciudad") %> </TD>
<TD> <%= rs("Genero") %> </TD>
</TR>
<%
RS.MoveNext
loop
RS.Close
Ob_Conn.Close
%>
</TABLE>
</CENTER>
</BODY>
</HTML>
te marco en negritas el bucle, pero repito que creo que no hace falta ya que es solamente un registro.
saludos