1%%[
2SET @param = RequestParameter("p")
3IF @param == 1 THEN
4SET @rr = CreateObject("RetrieveRequest")
5SetObjectProperty(@rr,"ObjectType","Account")
6AddObjectArrayItem(@rr,"Properties","ParentID")
7AddObjectArrayItem(@rr,"Properties","PartnerKey")
8AddObjectArrayItem(@rr,"Properties","Name")
9AddObjectArrayItem(@rr,"Properties","ID")
10AddObjectArrayItem(@rr,"Properties","Client.PartnerClientKey")
11AddObjectArrayItem(@rr,"Properties","AccountType")
12SetObjectProperty(@rr,"QueryAllAccounts",1)
13SET @sfp = CreateObject("SimpleFilterPart")
14SetObjectProperty(@sfp,"Property","ParentID")
15SetObjectProperty(@sfp,"SimpleOperator","equals")
16AddObjectArrayItem(@sfp,"Value","InsertYourMIDValueHere")
17SetObjectProperty(@rr,"Filter",@sfp)
18SET @results = InvokeRetrieve(@rr)
19FOR @i = 1 TO RowCount(@results) DO
20SET @row = Row(@results,@i)
21SET @id = Field(@row,"ID")
22SET @name = Field(@row,"Name")
23SET @date = NOW()
24SET @ud = UpsertData("Query Mapping",1,"ChannelMemberName",@name,"ChannelMemberID",@id,"Date",@date)
25NEXT @i
26ENDIF
27]%%%%=RowCount(@results)=%%