Deaktivering af en HTML-kode (menupunkt)
Jeg er ikke en "HTML-haj", så derfor håber jeg, at der er en som kan hjælpe med en løsning. Problemet er, at firmaet har en hjemmeside som er baseret på en færdig CMS-løsning hvor sidens web-master guides igennem alle daglige opgaver som f.eks. oprettelsen af menupunkter, rullemenuer o.s.v.MEN på et tidspunkt er der en person som har "hardkodet" et menupunkt ind i løsningen og nu vil vi så gerne have dette menupunkt deaktiveret (fjernet) fra firmaets hjemmeside. Det drejer sig om punktet "Products" (>Products <) i nedenstående øverste kodelinje. Hvis jeg bare fjerner bogstaverne ((> <)) så er menupunktet der fortsat bare uden tekst (altså et blankt punkt og hvor rullegardinet fortsat virker når du kører hen over det med musen).
Jeg håber, at der er en som kan hjælpe. På forhånd mange tak!
Her følger hele HTML-koden:
ProdMenu=ProdMenu & "Menu"&PN&"=new Array(""<p id='menu_top' align='right'>Products <img src='images/1x1hvid.gif' width='2' height='10'></p>"",""site.asp?page=1"","""",TEMP,20,80);" & vbLf
Set rsRod = Server.CreateObject("ADODB.RecordSet")
'rsRod.Open "SELECT * FROM menu ORDER BY hovedkat,prio" , dbConnection, 3
rsRod.Open "SELECT * FROM menu ORDER BY mainprio,hovedkat,prio" , dbConnection, 3
id = rsRod("id")
navn = rsRod("navn")
If rsRod.EOF Then
ProdSitemap=ProdSitemap & "nej!"
Else
Do While Not rsRod.EOF
If OldKat <> rsRod("hovedkat") Then
ProdMenu = Replace(ProdMenu, "TEMP1", y)
ProdTr3=ProdTr3 & "<td class='ProdTr3' valign='top'>"
ProdSitemap=ProdSitemap & "<b><a>"&rsRod("hovedkat")&"</a><hr /></b>"
ProdMenu=ProdMenu & vbTab &"Menu"&PN&"_"&x&"=new Array("""&rsRod("hovedkat")&""",""#"","""",TEMP1,20,150);" & vbLf
ProdTr1=ProdTr1 & "<td class='ProdTr1'>"&Bullet&""&rsRod("hovedkat")&"</td>"
'PN=PN+1
x = x + 1
y = 0
End If
OldKat=rsRod("hovedkat")
' ProdSitemap=ProdSitemap & "<a href="""&PF&"?katid="& rsRod("id") &""">"& rsRod("navn") &"</a><br />" &vbCrLf
ProdTr3=ProdTr3 & Bullet2 & "<a href="""&PF&"?katid="& rsRod("id") &""">"& rsRod("navn") &"</a><br>"
y = y + 1
ProdMenu=ProdMenu & vbTab & vbTab &"Menu"&PN&"_"&x-1&"_"&y&"=new Array("""& rsRod("navn") &""","""&PF&"?katid="& rsRod("id") &""","""",0,20,150);" & vbLf
' x = x + 1
rsRod.MoveNext
Loop
ProdSitemap=ProdSitemap & "<br /><br />"
ProdMenu = Replace(ProdMenu, "TEMP1", y)
y=0
end if
rsRod.Close
Set rsRod = Nothing
ProdMenu = Replace(ProdMenu, "TEMP", (x-1))
ProdTr1=ProdTr1 & "</tr>"
ProdTr3=ProdTr3 & "</td>"
ProdTr3=ProdTr3 & "</tr>"
ProdTr2=ProdTr2 & "<tr><td class='ProdTr2' colspan='"&(x-1)&"'><img src='images/spacer.gif' alt='spacer' /></td></tr>"
ProdOversigt=ProdOversigt & "<br><br><table border='0'>"
ProdOversigt=ProdOversigt & ProdTr1
ProdOversigt=ProdOversigt & ProdTr2
ProdOversigt=ProdOversigt & ProdTr3
ProdOversigt=ProdOversigt & "</table>"
%>
