29. oktober 2006 - 06:55Der er
5 kommentarer og 1 løsning
Link fra db
Skulle her være en der kan fortølle mig hvordan jeg får links på mine udtræk fra min database ?
<% ' 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("/sex/min.mdb") Conn.Open DSN
' SQL forespørgsel strSQL = "Select top 5 * From Jokes ORDER BY id DESC" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
<% ' 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("/sex/min.mdb") Conn.Open DSN
' SQL forespørgsel strSQL = "Select top 5 * From Jokes ORDER BY id DESC" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke While rs.EOF = False ' Udskriv værdien af kolonnen Overskrift i link Response.Write "<a href=""" & rs("Link") & """>" & rs("Overskrift") & "</a><br>"
' Gå til næste Record i rs rs.MoveNext Wend
' Luk databaseforbindelse Conn.Close Set Conn = Nothing %>
Jeg har tilføjet rs("Link") i din kode - da jeg formoder, at du henter linkene fra databasen.
Sætningen der udskriver linket er denne: Response.Write "<a href=""" & rs("Link") & """>" & rs("Overskrift") & "</a><br>"
Ud fra dit tidligere spørgsmål at dømme må det skulle se således ud:
<% ' 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("/sex/min.mdb") Conn.Open DSN
' SQL forespørgsel strSQL = "Select top 5 * From Jokes ORDER BY id DESC" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke While rs.EOF = False ' Udskriv postlink Response.Write "<a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & rs("Overskrift") & "</a><br>" ' Gå til næste Record i rs rs.MoveNext Wend
' Luk databaseforbindelse Conn.Close Set Conn = Nothing %>
Synes godt om
Ny brugerNybegynder
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.