Sujet Précédent Sujet Suivant

Function en asp

cs_benoure Messages postés 10 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 17 mai 2013 - 22 févr. 2010 à 03:39
cs_benoure Messages postés 10 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 17 mai 2013 - 22 févr. 2010 à 13:03
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

Réponse 1 / 2
cs_benoure Messages postés 10 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 17 mai 2013
22 févr. 2010 à 03:56
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
0
Réponse 2 / 2
cs_benoure Messages postés 10 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 17 mai 2013
22 févr. 2010 à 13:03
up !!
0

Discussions similaires

Différence ente protected function, public function, private function et functio
dvdstory -
cs_caviar -

4 réponses
Fatal error: Call to undefined function mysqli_connect()
cs_rinuom99 -
rinuom99 -

2 réponses
erreur de compilation sub et function non definie
ioulia1 -
daffy17 -

6 réponses
Correction examen c++ aide
Majestick -
Majestick -

12 réponses
La difference entre Public et Private
cs_Linuss -
Linuss -

6 réponses
Rejoignez-nous