Set conn = Server.CreateObject("ADODB.connection")
on error resume next
conn.Open "casa"
if conn.State=0 then
response.write "Conexión KO"
else
response.write "Conexión OK"
end if
response.write conn.state
conn.close