Udvidde menu til sider der ikke genereres af menuen
Udvide menu med point fra fibsFølgende kode opretter et antal sider ud fra data i en database:
<html>
<head>
</head>
<body>
<table><tr><td>
<%
sidenavn = LCase(Request.Servervariables("SCRIPT_NAME"))
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/db_rytter.mdb")
Conn.Open DSN
Set rs = Conn.Execute("Select * From tb_menu1 Order by id")
While Not rs.EOF
strNavn = rs("tekst")
Response.Write "<a href='" & sidenavn & "?id=" & rs("Id") & "'>" & strNavn & "</a> <br>"
rs.MoveNext
Wend
if Request.Querystring("id")="" then
strSQL = "Select TOP 1 * From tb_menu1 order by id"
else
strSQL = "Select * From tb_menu1 Where Id = " & Request.Querystring("id")
end if
Set rs = Conn.Execute(strSQL)
Response.Write rs("overskrift")
Response.Write rs("broed")
if rs("billede") <> "" Then
Response.write ("<img src='image/" & rs("billede") & "'>")
Else
End If
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Det kører OK!
Nu vil jeg gerne have en side der hedder kontakt.asp som ikke skal genereres af databasen, men et html link på siden. Det er os let (<a href="kontakt.asp...."> osv).
Nu kommer problemet:
At få menuen på kontakt.asp til de andre sider i databasen, så det virker. Jeg har bare indsat åbningen til databasen og menuen på kontakt, men det giver problemet at den søger efter en side der hedder kontakt.asp?id1 og ikke som ønsket index.asp?id....
Kan det løses? evt. Hvordan?
Fibs
