set conn=Server.CreateObject("Adodb.Connection") if conn.State=0 then : conn.Open "Provider....................