Quizas esto te sirva
'HACER LA SELECT
sql = "SELECT * FROM tabla "
Set rs=conn.Execute(sql)
if not rs.EOF then
if Err.Number=0 then
%>
<CENTER>
<TABLE BORDER=4 COLOR=0566>
<TR BGCOLOR=E0E0EE>
<TH> Titulo </TH>
<TH> Fecha </TH>
<TH> Tipo </TH>
<TH> Autor </TH>
<TH> Documento </TH>
<%
rs.movefirst
registros=0
do while not rs.EOF
%>
<TR>
<TD><CENTER><%=rs(6)%></CENTER></TD>
<TD><CENTER><%=rs(2)%></CENTER></TD>
<TD><CENTER><%=rs(5)%></CENTER></TD>
<TD><CENTER><%=rs(3)%></CENTER></TD>
<%
registros=registros+1
rs.movenext
loop
else
Response.Write("Error")
end if
else
%><table><font size=1 color=0e0eee></br></br>NO HAY BUSQUEDAS </font></table>
<%
Response.write "</br><a href=" & "PAGINA.asp" & ">" & "Realizar Nueva Busqueda"
END IF