Links med Access
Nu har jeg siddet og bakset med det her i stykke tid, og kan ikke få ordnet det sidste.Jeg er ved at lave et index med links over albums. Når brugeren vælger et album via linket, skal vedkommende sendes til en side med de numre, albummet indeholdet. Disse numre skal vises som links, der fører til en side, hvor lyrikken til numrene vises.
Jeg har fået lavet siden med links´ne til numrene og det virker fint, men jeg kan ikke få lavet siden med oversigten over albums´ne.
Siden med links til numrene:
********************************************
<html>
<title>Oversigt over tracks til album</title>
<head>
</head>
<body>
<ul>
<%
' 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("audio.mdb")
Conn.Open DSN
strSQL = "Select * From audiotabel Where album = 'album2'"
Set rs = Conn.Execute(strSQL)
Do
' Track
strNavn = rs("Track")
' lav et link til lyrik-sang.asp med Id-værdien i URL
strLink = "<a href='lyrik-sang.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
' Liste med links
Response.Write "<li>" & strLink & "</li>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</ul>
</body>
</html>
********************************************
Siden med lyrikken til numrene:
********************************************
<html>
<title>Lyrik til et track</title>
<head>
</head>
<body>
<dl>
<%
' 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 ("audio.mdb")
Conn.Open DSN
' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From audiotabel Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
' Skriv trackets data
Response.Write "<dt></dt><dd>" & rs("Track") & " " & "<pre>" & rs("Lyrik") & "</pre>" & "</dd>"
Conn.Close
Set Conn = Nothing
%>
</dl>
<p><a href="oversigt-tracks.asp">Retur til listen</a></p>
</body>
</html>
********************************************
Access databasen:
www.whynet.dk/test/accapture.jpg
