Markering af aktivt menupunkt

Do While Not rs.EOF
If Cint(strParentPageID) = Cint(rs("PageID")) Then
  Response.write "<b><a href=" & chr(34) & "index.asp?ID=" & rs("PageID") & chr(34) & ">" & rs("MenuText") & "</a>&nbsp;&nbsp;</b>"
Else
  Response.write "<a href=" & chr(34) & "index.asp?ID=" & rs("PageID") & chr(34) & ">" & rs("MenuText") & "</a>&nbsp;&nbsp;"
End if
rs.MoveNext
loop
Response.write "</div>"

hmm, det virker ikke rigtigt....???

Er disse like da? Cint(strParentPageID) = Cint(rs("PageID"))

Når du går inn på et menypunkt?

Og du trenger ikke å avvise svare før vi har postet ferdig.

Prøv dette.

<%
if strParentPageID = "" then
strParentPageID = 0
else
strParentPageID = Request.QueryString(ParentPageID)
End if

'Title =  Request.QueryString("MenuText")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("pages.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM Page WHERE ParentPageID=" & strParentPageID & " ORDER BY PageSort"
Set rs = Conn.Execute(SQL)

Response.write "<div class=N1>"

Do While Not rs.EOF
'Hvis id`en strParentPageID er lik PageID fra databasen skal linken gjøres bold.
If Cint(strParentPageID) = Cint(rs("PageID")) Then
    'Det var samme id vi gjør linken fet.
    Response.write "<b><a href=" & chr(34) & "index.asp?ID=" & rs("PageID") & chr(34) & ">" & rs("MenuText") & "</a>&nbsp;&nbsp;</b>"
Else
    'ID`ene var ikke like vi lar de være.
    Response.write "<a href=" & chr(34) & "index.asp?ID=" & rs("PageID") & chr(34) & ">" & rs("MenuText") & "</a>&nbsp;&nbsp;"
End if
rs.MoveNext
loop
Response.write "</div>"
%>

Vis dette ikke virker prøv å se hva id`\ene skriver ut:

<%
if strParentPageID = "" then
strParentPageID = 0
else
strParentPageID = Request.QueryString(ParentPageID)
End if

'Title =  Request.QueryString("MenuText")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("pages.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM Page WHERE ParentPageID=" & strParentPageID & " ORDER BY PageSort"
Set rs = Conn.Execute(SQL)

Response.write "<div class=N1>"

Do While Not rs.EOF
'Skriv ut denne og se om det er noen som er like
Response.Write("strParentPageID=" & strParentPageID & "<br>PageID = " &  rs("PageID")
rs.MoveNext
loop
Response.write "</div>"
%>

Det virker nu med lidt ændringer:

Do While Not rs.EOF
If Cint(rs("PageID")) = Cint(strPageID) Then
Response.write "<a href=" & chr(34) & "index.asp?ID=" & rs("PageID") & chr(34) & ">" & "<b>" & rs("MenuText") & "</b></a>&nbsp;&nbsp;"
Else
  Response.write "<a href=" & chr(34) & "index.asp?ID=" & rs("PageID") & chr(34) & ">" & rs("MenuText") & "</a>&nbsp;&nbsp;"
End if
rs.MoveNext
loop
Response.write "</div>"


Takker. Post et svar, og du vil få points....

<b> skal innenfor <a> taggen... sorry!

Her er svaret.

Jeg har et lille spørgsmål mere. Hvis man klikker på et undermenupunkt, må hovedpunktet stadig gerne være markeret. Hvordan kan man det? Jeg vil gerne give flere points....

Det letteste er nok å slnge på id`en på neste punkt også.

Ta å post koden din.

Min kode til undermenuen er dårligt konstrueret og ikke færdig. Jeg inkluderer den på index-siden <!--#INCLUDE FILE="leftmenu.asp"-->. Problemet er, at menupunkterne forsvinder, når man klikker på et af dem, fordi den selecter fra Parent...

<%
if Request.QueryString("ID") = "" Then
strParentID = 2
else
strParentID = Request.QueryString("ID")
End if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("pages.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM Page WHERE ParentPageID=" & strParentID & " ORDER BY PageSort"
Set rs2 = Conn.Execute(SQL)
If Not rs2.EOF Then
           
Do While Not rs2.EOF
           
Response.write "<a style='color:#ffffff' href=" & chr(34) & "Index.asp?ID=" & rs2("PageID") & chr(34) & ">"
Response.write rs2("MenuText")
Response.write "</a><br>"

rs2.MoveNext
loop

end if

rs2.Close
%>

Har du en side jeg kan se på løsningen. Det er lettere.

Jeg arbejder på det lokalt, så jeg kan desværre ikke vise det offentligt...

Jeg kan dog godt sende noget til dig på en mail - om du vil ?

mortencyren@yahoo.no