Avatar billede oasen Nybegynder
14. marts 2002 - 13:28 Der er 4 kommentarer og
1 løsning

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
Avatar billede oasen Nybegynder
14. marts 2002 - 13:33 #1
Det jeg gerne vil have er, at eks. med "album2" bliver en variabel, der sættes til dét album, brugeren klikker på i oversigten over albums´ne.

strSQL = "Select * From audiotabel Where album = 'album2'"
Avatar billede oasen Nybegynder
14. marts 2002 - 13:37 #2
Der skal sikkert ikke meget til, men jeg får konstant en OLE-fejl, når jeg erstatter "album2" med & Request.Querystring("album")
Avatar billede oasen Nybegynder
14. marts 2002 - 13:40 #3
Siden med oversigten over numrene kan ses her:

http://www.whynet.dk/test/oversigt-tracks.asp
Avatar billede oasen Nybegynder
14. marts 2002 - 13:49 #4
Håber der er nogen, der har lyst til at kigge på det...
Avatar billede oasen Nybegynder
14. marts 2002 - 14:48 #5
Hmm... lukker lige her.

Prøver at simplificere spørgsmålet lidt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester