diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs
index 84cb3b0..a70029a 100644
--- a/src/App/Page/Zone.purs
+++ b/src/App/Page/Zone.purs
@@ -914,9 +914,15 @@ render_resources records
         ] <> if rr.readonly
           then [ HH.td_ [ Bulma.btn_readonly ] ]
           else [ HH.td_ [ Bulma.btn_modify (CreateUpdateRRModal rr.rrid), Bulma.btn_delete (DeleteRRModal rr.rrid) ]
-               , HH.td_ [ Bulma.p $ fromMaybe "" rr.token ]
+               , HH.td_ [ maybe (show_token_or_btn rr) Bulma.p rr.token ]
                ]
 
+  show_token_or_btn rr =
+    case rr.rrtype of
+      "A"    -> Bulma.btn_ (C.is_small) "🏁​ Ask for a token!" (NewToken rr.rrid)
+      "AAAA" -> Bulma.btn_ (C.is_small) "🏁​ Ask for a token!" (NewToken rr.rrid)
+      _      -> HH.text ""
+
   fancy_qualifier_display :: RR.Qualifier -> String
   fancy_qualifier_display qualifier = "(" <> show_qualifier_char qualifier <> ") " <> show_qualifier qualifier