<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "mioDNS", "user", "password"
set rs = conn.Execute("SELECT * FROM MIA TABELLA")
if rs.Eof<>True then
  Response.Write ("<p>Recordset e connessioni aperti</p>")
end if
set rs = Nothing
conn.Close
set conn = Nothing
%>