Kan det gøres på EN side, i stedet for 3?
Har lavet et lille asp system (med god hjælp fra html.dk):det består af en side, som sender brugeren hen til første linkside i databasen:
index.asp:
<meta http-equiv="Refresh" content="0;URL=sites.asp?id=1">
Derefter har jeg siden sites.asp:
sites.asp har følg asp kode:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("log/db.mdb")
Conn.Open DSN
' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From tb_menu Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
%>
<b>
<%
Response.Write rs("overskrift")
%>
</b><br><br>
<%
Response.Write rs("broed")
%>
</div>
<%
Conn.Close
Set Conn = Nothing
%>
For at få vist menuen på siden har den vha. ssi indsat menu siden:
menuen.asp, med følgende asp kode:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("log/db_menu.mdb")
Conn.Open DSN
%>
<%
strSQL = "Select * From tb_menu1 Order by id"
Set rs = Conn.Execute(strSQL)
Do
' Personens navn
strNavn = rs("tekst")
' lav et link til test.asp med Id-værdien i URL
strLink = "<a class='1' href='sites.asp?id=" & rs("Id") & "'>" & strNavn & "</a><br>"
' Liste med links
Response.Write strLink
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
Alle data hentes i en access database med en tabel indeholdende punkterne id (autonummerering) Tekst (Selve menu punktet), Overskrift (Den enkelte siden overskrift) og Broed (Brødteksten på siderne)
Det er planen at der skal tilføjes flere felter og det er ikke et problem, men:
Kan den ikke laves på EN side, og evt. hvordan - Problemet er jo at nogle servere ikke understøtter ssi og hvis evt. forsiden udskiftet risikerer man at første ID forsvinder.
Muligt at lave på EN side?
Fibs
