% option explicit Dim Conn, lcSql, RS Initialize() lcSql = "select * from agents where OfficeId = '" & Request("OfficeId") & "'" Set RS = Conn.Execute(lcSql) %>