<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "myDNS", "user", "password"
set rs = conn.Execute("SELECT * FROM [MY TABLE] ")
if rs.Eof<>True then
Response.Write ("<p>Connectione and recordset are open!</p>")
end if
set rs = Nothing
conn.Close
set conn = Nothing
%>