Function en asp
yoshiro
Messages postés
532
Statut
Membre
-
yoshiro Messages postés 532 Statut Membre -
yoshiro Messages postés 532 Statut Membre -
Bonjour,
j'ai un problème avec ma fonction. elle me retourne False !!
Merci d'avance !!!
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 = "<ul"
nombre = 7
For i = 0 To nombre - 1
If (page_actuelle = onglet(i)) Then
men = men & " class="=clas(i) & "> \n"
End If
Next
For i = 0 To (nombre - 2)
If (page_actuelle = onglet(i)) Then
men = men & "<li> <a class=sel>"= tets(i) & "</a></li>"
Else
men = men & "<li> <a href=" & onglet(i) & ">" =tets(i) & "</a></li>"
End If
Next
men = men & "\n </ul>"
Return men
End Function
Merci d'avance !!!
A voir également:
- Function en asp
- Logiciel asp - Télécharger - Gestion de données
- Asp .net download - Télécharger - Divers Web & Internet
- Call to undefined function mysqli_connect() ✓ - Forum PHP
- (Function(){css.removeclass(document.body,%20'profile_two_columns'); tab_controller.changepage("photos");})() ✓ - Forum Access
- Function isAuthenticated() on a non-object - Forum Webmastering
2 réponses
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 = "<ul"
For i = 0 To UBound(onglet) -1
If (page_actuelle = onglet(i)) Then
men = " class="=clas(i) & ">"
End If
Next
For i = 0 To UBound(onglet) - 2
If (page_actuelle = onglet(i)) Then
men = "<li> <a class=sel>"= tets(i) & "</a></li>"
Else
men = "<li> <a href=" & onglet(i) & ">" =tets(i) & "</a></li>"
End If
Next
men = "</ul>"
Return men
End Function
