Questo script mi sarebbe molto utile, solo che mi da l'errore

Tipo di errore:
ADODB.Connection (0x800A0CB3)
L'operazione richiesta non è supportata dall'oggetto o dal provider.
/ariston/admin/mostratabelle.asp, line 6


Dove la mia linea 6 è

set rs=conn.openschema(adSchemaTables)


Per chiarezza riporto tutto lo script da me riprodotto

<%
set conn = server.createobject("ADODB.Connection")
conn.open "aristonline"

set rs=conn.openschema(adSchemaTables)

do while not rs.eof
if rs("table_type") = "TABLE" then
response.write("<br>"&rs("table_name"))
end if
rs.movenext
loop
%>

ricordo che "aristonline" è il nome del mio database settato come DSN

non funziona con connessioni DSN. usa DSN-less o ole-db.