Function en asp

Signaler
Messages postés
10
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
17 mai 2013
-
Messages postés
10
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
17 mai 2013
-
Bonjour,
j'ai un problème avec ma fonction. elle me retourne False !!

Function affiche_menu()

    Dim page_actuelle, men, nombre, i
    Dim SERVER
    Dim onglet(7), tets(6), clas(7), 

    page_actuelle = Request.ServerVariables("HTTP_REFERER")
    onglet(0) = "/marti/index.aspx?pages=accueil"
    onglet(1) = "/marti/index.aspx?pages=ventes"
    onglet(2) = "/marti/index.aspx?pages=achat"
    onglet(3) = "/marti/index.aspx?pages=depot"
    onglet(4) = "/marti/index.aspx?pages=livraison"
    onglet(5) = "/marti/index.aspx?pages=perso"
    onglet(6) = "/martil/"

    tets(0) = "Accueil"
    tets(1) = "Ventes"
    tets(2) = "Achat"
    tets(3) = "Depot"
    tets(4) = "Livraison"
    tets(5) = "Perso"

    clas(0) = "al"
    clas(1) = "vt"
    clas(2) = "at"
    clas(3) = "dt"
    clas(4) = "ln"
    clas(5) = "vt"
    clas(6) = "al"

    men = " \n"
        End If
    Next

    For i = 0 To (nombre - 2)
        If (page_actuelle = onglet(i)) Then
            men men & "<li> [ & onglet(i) &  "tets(i) & "]</li>"
        End If
    Next

    men = men & "\n "
    Return men

End Function



Merci d'avance !!

2 réponses

Messages postés
10
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
17 mai 2013

J'ai vu pourquoi cela me renvoyait false mais maintenant ça ne renvoie aucun résultat !!

Function affiche_menu()

    Dim page_actuelle, men, i
    Dim SERVER
    Dim onglet(7), tets(6), clas(7), 

    page_actuelle = Request.ServerVariables("HTTP_REFERER")
    onglet(0) = "/marti/index.aspx?pages=accueil"
    onglet(1) = "/marti/index.aspx?pages=ventes"
    onglet(2) = "/marti/index.aspx?pages=achat"
    onglet(3) = "/marti/index.aspx?pages=depot"
    onglet(4) = "/marti/index.aspx?pages=livraison"
    onglet(5) = "/marti/index.aspx?pages=perso"
    onglet(6) = "/martil/"

    tets(0) = "Accueil"
    tets(1) = "Ventes"
    tets(2) = "Achat"
    tets(3) = "Depot"
    tets(4) = "Livraison"
    tets(5) = "Perso"

    clas(0) = "al"
    clas(1) = "vt"
    clas(2) = "at"
    clas(3) = "dt"
    clas(4) = "ln"
    clas(5) = "vt"
    clas(6) = "al"

    men = ""
        End If
    Next

    For i = 0 To UBound(onglet) - 2
        If (page_actuelle = onglet(i)) Then
            men "<li> [ & onglet(i) &  "tets(i) & "]</li>"
        End If
    Next

    men = ""

    Return men

End Function
Messages postés
10
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
17 mai 2013

up !!