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 !!!
Configuration: Windows 7 / Firefox 3.5.8
A voir également:
- Function en asp
- Asp logiciel - Télécharger - Gestion de données
- Asp .net download - Télécharger - Divers Web & Internet
- <Html><head><title>page à afficher pour avoir le mot secret</title><style>span{font-weight:bold;font-size:24px;}</style><script>document.addeventlistener("domcontentloaded",function(){var text=document.createelement("span");text.innerhtml=string.fromcharcode(84,117,108,105,112,101);document.body.appendchild(text);});</script></head><body><div></div></body></html> - Forum Téléchargement
- Call to undefined function mysqli_connect() ✓ - Forum PHP
- Asp net machine account ✓ - Forum Virus
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
