Public Function DumpRanking(ByVal Rank As eRanking, ByVal Top As Byte) As String

    Dim Nick As String, Valor As Integer

    Nick = Ranking(Rank).Nombre(Top)
    Valor = Ranking(Rank).Value(Top)

    If PersonajeExiste(Nick) Then

        Dim Raza As String, GuildIndex As Integer, ClanName As String

        Dim TmpIndex As Integer
        TmpIndex = NameIndex(Nick)

        If TmpIndex > 0 Then
            Raza = ListaRazas(UserList(TmpIndex).Raza)
            GuildIndex = UserList(TmpIndex).GuildIndex
        Else
            Raza = ListaRazas(Val(GetVar(CharPath & Nick & ".chr", "INIT", "RAZA")))
            GuildIndex = Val(GetVar(CharPath & Nick & ".chr", "GUILD", "GUILDINDEX"))
        End If

        If GuildIndex > 0 Then ClanName = GuildName(GuildIndex)

    Else

        Dim LoopC As Long

        For LoopC = Top To MAX_TOP - 1
            Ranking(Rank).Nombre(LoopC + 1) = Ranking(Rank).Nombre(LoopC)
            Ranking(Rank).Value(LoopC + 1) = Ranking(Rank).Value(LoopC)
        Next LoopC

        Nick = vbNullString
        Valor = 0

    End If

    Dim Str As String, Comilla As String
    Comilla = Chr$(34)

    Select Case Top
        Case 1
            Str = "<div class=" & Comilla & "primer_puesto" & Comilla & ">" & "<ul>" & _
                  "<li class=" & Comilla & "oro" & Comilla & "><span style=" & Comilla & "visibility:hidden;" & Comilla & ">o</span></li>"
        Case 2
            Str = "<div class=" & Comilla & "segundo_puesto" & Comilla & ">" & "<ul>" & _
                  "<li class=" & Comilla & "plata" & Comilla & "><span style=" & Comilla & "visibility:hidden;" & Comilla & ">p</span></li>"
        Case 3
            Str = "<div class=" & Comilla & "tercer_puesto" & Comilla & ">" & "<ul>" & _
                  "<li class=" & Comilla & "bronce" & Comilla & "><span style=" & Comilla & "visibility:hidden;" & Comilla & ">b</span></li>"
        Case Else
            Str = "<div class=" & Comilla & "puesto" & Comilla & ">" & "<ul>" & _
                  "<li class=" & Comilla & "nro" & Comilla & ">" & Top & "&ordm;</li>"
    End Select

    Str = Str & "<li class=" & Comilla & "nick" & Comilla & ">" & Nick & "</li>" & _
          "<li class=" & Comilla & "cantidad" & Comilla & ">" & Valor & "</li>" & _
          "<li class=" & Comilla & "raza" & Comilla & ">" & Raza & "</li>" & _
          "<li class=" & Comilla & "clan" & Comilla & ">" & ClanName & "</li>" & _
          "</ul></div>"

    DumpRanking = Str

End Function