Public Sub creaJson(ByVal tag As String, ByVal valor As String)
        Dim json As String = "{""" & tag & """:""" & valor & """}"

        Response.Clear()
        Response.ContentType = "application/json; charset=utf-8"
        Response.Write(json)
        Response.End()
    End Sub