dim PageNumber
dim TeamsQuantity
dim Context
TeamsQuantity = 0
Context = "{"
TeamsQuantity = inputbox("Number of Teams\Players To Add")
If TeamsQuantity > 0 Then
For i = 1 To TeamsQuantity
dim team_key
dim team_value
dim team_entry
dim player_key
dim player_value
dim player_entry
player_key = "Player"
team_key = "Team"
team_key = team_key & i
player_key = player_key & i
team_value = inputbox("Enter The Team Alias for " & team_key)
player_value = inputbox("Enter The Players Jersey Number for " & player_key)
player_entry = player_key & "=" & team_value & "(" & player_value & ")" & ","
team_entry = team_key & "=" & team_value & ","
Context = Context & team_entry & player_entry 
Next
Context = Left(Context, Len(Context) - 1) & "}"
PageNumber = TrioCmd("page:getpagename")
TrioCmd("page:change_description " & PageNumber & " " & Context)
End If