ok, hasta aquí solo me quedan 2 observaciones:
Cita: <%
On error Resume Next
Sql = "SELECT * FROM Tabla1 (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
response.write "<td>" & rs(i) & "</td>"
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
%>
1. No se deslegan el nombre de las columnas
2. Si hay campos NULL tampoco los muestra