Imports System

Imports System.Collections.Generic

Imports System.Text

Namespace MyProject.Urls

  Public Class RealUrls

    Public Shared Function getProduitUrl(ByVal cleanUrl As String) As String

      If cleanUrl.Contains("-") Then

        Dim tabChar As Char() = New Char() {"-"C, "."C}

        Dim tab As String() = cleanUrl.Split(tabChar)

        Return "Boutique.aspx?ID_Produit=" + tab(1)

      Else

        Return "Boutique.aspx"

      End If

    End Function

    Public Shared Function getBoutiqueUrl() As String

      Return "Boutique.aspx"

    End Function

  End Class

End Namespace