<% Const adOpenStatic = 3 set conn = server.createobject("ADODB.Connection") set rs = server.createobject("ADODB.Recordset") conn.open "staplessql", "staples", "red" On Error Resume Next sql = "Select distinct State, count(Location),sum(SqFt)from esp where Active is not null and Active<>0 group by State" rs.Open sql,conn,adOpenStatic %>