Hombre.. fallos ninguno, pero si quieres que te devuelva en pantalla algún dato deberías recorrer el recordset y cargar su contenido en una tabla.
Por ejemplo así:
Código:
<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.open "DSN=intra"
SQL= "Select * from manuales where separador is not null and capitulo is null"
set rs=oConn.Execute(SQL)
'Cabecera de la tabla
if NOT rs.EOF then
Response.Write("<table><tr>")
for i=0 to rs.Fields.Count-1
Response.Write("<td>")
Response.Write(rs.Fields(i).name)
Response.Write("</td>")
next
Response.Write("</tr>")
end if
'Cuerpo de la tabla
Do While NOT rs.EOF
Response.Write("<tr>")
For i=0 to rs.Fields.Count-1
Response.Write("<td>" & rs.Fields(i) & "</td>")
Next
Response.Write("</tr>")
rs.MoveNext
Loop
rs.close
Set oConn = Nothing
%>
No se si ese era tu problema, si no lo es comenta un poco más.
Saludos!