por que no puedo escribir el resultado de un sql

[lfguaqueta]

Dim oConn, rs, SQL, nombre
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )
oConn.Open "DSN=phoenicia"
SQL="SELECT * FROM registro order by ide"
set rs = oConn.Execute(SQL)
dim tabla
tabla=rs.getrows
dim total
total=ubound(tabla,2)+1
'Como ya he terminado, cierro los objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

for i=0 to total-1
escribo todos los datos que me arroba la tabla
next