Hent link og target frame til menu fra Access database.
HejHar et lille problem med min menu, har arbejdet lidt på en menu jeg fandt på nettet. Menuen virker fint, men problemet er at man skal hente target frame fra en access database, hvilket ikke fungere.....
Link, navn og rækkefølge virker fint.
Nogle af mine sider skal hentes til Midtframe og nogen i _blank.
Men når man indtaser det i databasen får man intet output til siden ud over ""
scriptet ser sådan ud ....
<%
Function BygUnderMenu(MenuID)
UnderSQL = "SELECT ID, Navn, Link FROM Menu WHERE MenuID = " & MenuID & " ORDER BY [Order]"
Call OpenRS(Conntemp,UnderSQL,UnderRS)
Response.Write "<DIV ID=""txt_" & MenuID & """ STYLE=""display: none; margin-left: 10px;"">"
While Not UnderRS.EOF
If CountSubs(UnderRS("ID")) > 0 Then
Response.Write "<A HREF=""#"" OnClick=""MenuClick(" & UnderRS("ID") & ")""><B>" & UnderRS("Navn") & "</B></A><BR>"
BygUnderMenu UnderRS("ID")
Else
Response.Write "<A HREF=""" & UnderRS("Link") & """ Target="""">" & UnderRS("Navn") & "<BR>"
End If
UnderRS.MoveNext
Wend
Response.Write "</DIV>"
End Function
Function CountSubs(MenuID)
CountSQL = "SELECT ID FROM Menu WHERE MenuID = " & MenuID & ""
Call OpenRS(Conntemp,CountSQL,CountRS)
CountSubs = CountRS.RecordCount
End Function
LavDatabase Conntemp
SQL = "SELECT ID, Navn, Link FROM Menu WHERE MenuID = 0 ORDER BY [Order]"
Call OpenRS(Conntemp,SQL,RS)
If RS.BOF AND RS.EOF Then
Response.Write "FEJL"
Else
RS.MoveFirst
While Not RS.EOF
If CountSubs(RS("ID")) > 0 Then
Response.Write "<A HREF=""#"" OnClick=""MenuClick(" & RS("ID") & ")""><B>" & RS("Navn") & "</B></A><BR>"
BygUnderMenu RS("ID")
Else
Response.Write "<A HREF=""" & RS("Link") & """>" & RS("Navn") & "<BR>"
End If
RS.MoveNext
Wend
End If
LukDatabase Conntemp
%>
Hele filen med database og det hele kan hentes her....
http://test.chicken-shit.dk/Menu.rar
Nogen der kan hjælpe ???
