Avatar billede rolfenstein Nybegynder
29. oktober 2006 - 06:55 Der 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)

' Gennemløb Recordset (rs) med en løkke

Do

  ' Udskriv værdien af kolonnen Overskrift
  Response.Write rs("Overskrift") & "  <br>"


  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede apo Praktikant
29. oktober 2006 - 07:10 #1
<%
' 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>"
Avatar billede apo Praktikant
29. oktober 2006 - 07:10 #2
Jeg lægger lige et svar :o)
Avatar billede tjaz Nybegynder
29. oktober 2006 - 10:52 #3
hvad er der galt med den hjælp du får her?:

http://www.eksperten.dk/spm/740687
Avatar billede rolfenstein Nybegynder
29. oktober 2006 - 17:36 #4
Virker ikke :-(

Se selv:  http://www.rolfenstein.dk/sex/14.asp
Avatar billede tjaz Nybegynder
29. oktober 2006 - 17:53 #5
hvad hedder dine kolonner i databasen?

du har:
overskrift
id

hvad ellers?
Avatar billede apo Praktikant
29. oktober 2006 - 18:10 #6
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
%>
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

IT-JOB

Capgemini Danmark A/S

Salesforce CTO - Nordics (Denmark)

Netcompany A/S

Network Engineer

Capgemini Danmark A/S

Open Application (Denmark)

Netcompany A/S

Managing Architect

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Flådeprogrammets Program Management Office søger en Risk Manager