erreur dans script d'activation de liens
erreur dans script d'activation de liens - ASP - Programmation
Marsh Posté le 20-02-2006 à 21:02:39
Revoir le cours sur les commentaires en VB !
| bedomon a écrit : bonjour bonjour,
|
voila j'ai un petit script pour activer ou desactiver les lien sur mes pages, mais je crois qu'il doit y avoir un pb mais je ne vois pas quoi..... 
est ce que quelqu'un voit mon erreur,,
Marsh Posté le 21-02-2006 à 09:49:45
euh tu sais si tu viens poster 1 moi plus tard juste pour mettre ca c'est pas tres utile,
Enfin c'est de ma faute j'aurais du mettre resolu sur le topic j'ai trouvé une explication par la suite, mais merci quand meme 
Message édité par bedomon le 21-02-2006 à 09:50:17
Sujets relatifs:
- Erreur de requete et formulaire
- [RESOLU]erreur a l'affichage de mes pages?????
- odbc access ds excel erreur de spécification !!!
- [Perl] Erreur non-lvalue subroutine
- script n'ont pris en compte pour validation email
- un script qui modifie un autre script
- Gestion d'ERREUR(Resolu)
- Probleme execution script python sitemap google
- faire des liens calculés
- Erreur Tomcat
Marsh Posté le 18-01-2006 à 17:54:08
bonjour bonjour,
voila j'ai un petit script pour activer ou desactiver les lien sur mes pages, mais je crois qu'il doit y avoir un pb mais je ne vois pas quoi..... 
j'ai ce message d'erreur qui s'affiche:
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur de compilation Microsoft JScript error '800a03f7'
Constante chaîne non terminée
/site_delta_informatique_version2/menu_haut.asp, line 3
URL = Request.ServerVariables("url" ) ' cette page
-------------------------------------------------^
et le script fautif
<% URL = Request.ServerVariables("URL" ) 'cette page
repimg = "images/" 'répertoire des images'
'DESSINE LE BOUTON MENU'
function bouton(nom,adr)
' Si on est sur la page >> lien inactif'
if instr(lcase(URL),adr) > 0 then
lien = "<font class=nolien>" & nom & "</font>"
'sinon >> lien actif'
else
lien="<A class=lien href=" &adr& ">" &nom& "</A>"
end if
' Dessine le bouton'
bouton = "<table cellspacing=2 cellpadding=0 " _
& "border=0><tr><td width=102 height=21 nowrap " _
& "class=bouton>" & lien & "</td></tr></table>" _
& VbCrLf
end function
%>
merci d'avance