% dim cn, rs, sql, i set cn = Server.CreateObject("adodb.Connection") set rs = Server.CreateObject("adodb.Recordset") cn.Open mycnstr %>