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..... j'ai ce message d'erreur qui s'affiche:
Citation :
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
Citation :
<% 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
%>
|
est ce que quelqu'un voit mon erreur,, merci d'avance
|