jaja ok,ok
mira, "retocado" me queda así:
Cita: <%
On error Resume Next
Sql = "SELECT * FROM MiTabla (NOLOCK)"
Set Rs = con.Execute(Sql)
if not Rs.EOF then
%>
<table border=1>
<%
while not Rs.EOF
%>
<tr>
<%
for i=0 to rs.fields.count-1
if isnull(rs(i)) = false then
response.write "<td>" & rs(i) & "</td>"
else
response.write "<td> </td>"
end if
next
%>
</tr>
<%
rs.Movenext
wend
%>
</table>
<%
end if
Set Rs = nothing
if err.number <> 0 or err.number <> "" then
response.write err.description
end if
%>
ahora solo me falta agregarle el nombre de las columnas y estamos

como puedo hacer eso?