CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

dbjs Nybegynder

18. december 2008 - 20:11 Der er 6 kommentarer og
1 løsning

Udtrækning af aktiv links fra database via asp

Hej
Jeg er helt ny herinde, og har virkelig brug for hjælp til et database udtræk i access, fra en asp kode. Det er hjemmesidenwww.dbor.dk jeg sidder og koder på (under links) og jeg kan virkelig ikke finde ud af hvordan jeg får trukket et link ud af min database.

Jeg har fundet ud at at trække nyhederne ud af databasen med denne kode:



<%
Set nyhed = Server.CreateObject ("ADODB.Recordset")
nyhed.Open "SELECT * FROM nyhed WHERE id=" & request("id"), database

While NOT nyhed.EOF

Response.Write "" & nyhed.Fields("overskrift") & " "
Response.Write nyhed.Fields("indhold") & " "
Response.Write nyhed.Fields("dato") & " "
if nyhed.Fields("img") <> "" then %>
<img src="<%= nyhed.Fields("img")%>">

<% End if

nyhed.MoveNext
Wend

%>

Jeg har forbindelses delen her:

<%
database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "ejvel.mdb"
%>

Men hvordan sætter jeg den til at hente et link istedet for nyheden, altså så linket bliver aktivt og bare kan klikkes på. Jeg skal vel bruge en target=_blank.

Det andet spørgsmål er, kan jeg ikke have 2 udtræk fra en database på en side?
Hvis i kigger på eks:
http://www.dbor.dk/systemer.asp

så har jeg den grå boks med mit nyheds udtræk, og så ville det være fedt med et links udtræk i den hvide del hvor der står "Vi arbejder med mange forskellige programmer og systeme.."

Nu håber jeg ikke det er for rodet det her ^^

På forhånd tak

Synes godt om

keysersoze Guru

18. december 2008 - 20:44 #1

dine links skal være tekst-felter i database - så kan du gøre fx sådan;

Response.Write "<a href=""" & nyhed.Fields("link") & """ alt=""" & nyhed.Fields("overskrift") & """>" & nyhed.Fields("overskrift") & "</a>"

Du kan have alle de udtræk fra databasen som du ønsker - så får du en fejl når du forsøger bliver vi nødt til at se fejlen.

Synes godt om

dbjs Nybegynder

25. december 2008 - 08:58 #2

Hej Keysersoze
Mange tak for dit svar på linksudtrækningen. Nu har jeg sat den ind og koden virker men når jeg så sætter nyheden ind ovenover i koden ser min side sådan her ud:
http://www.dbor.dk/links.asp

Koden er pt som følger:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Links | Djurs Bogholderi & Regnskabsservice</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta name="Author" content="Steen Hjelmstrand" />
<link href="css/styles.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#000000">

<table BORDER="0" CELLPADDING="0" CELLSPACING="0" bgcolor="#FFFFFF">
<tr>
<td width="150" bgcolor="#000000"></td>
<td height="50">
<a href="default.asp"><img src="images/home.jpg" BORDER=0 ALT="Hjem"></a><a href="omos.asp"><img src="images/omos.jpg" BORDER=0 ALT="Om os"></a><a href="opgaver.asp"><img src="images/Opgaver.jpg" BORDER=0 ALT="Opgaver"></a><a href="systemer.asp"><img src="images/Sys.jpg" BORDER=0 ALT="Systemer/programmer"></a><a href="losninger.asp"><img src="images/los.jpg" BORDER=0 ALT="Løsninger"></a><a href="kontakt.asp"><img src="images/kontakt.jpg" BORDER=0 ALT="Kontakt"></a><a href="job.asp"><img src="images/job.jpg" BORDER=0 ALT="Job"></a><a href="links.asp"><img src="images/Nyheder.jpg" BORDER=0 ALT="Nyheder"></a>
</td>
<td width="100" bgcolor="#000000"></td>
</tr>
<tr>
<td bgcolor="#000000"></td>
<td width="683" height="210"><img src="images/m2.gif" align="top">
</td>
<td bgcolor="#000000"></td>
</tr>

<tr>
<td bgcolor="#000000"></td>
<td height="300" width="683">

<table>
<tr>
<td width="200" bgcolor="#E3E3E5" height="300">
<blockquote>


Nyheder:
 


 



<%
Set nyhed = Server.CreateObject ("ADODB.Recordset")
nyhed.Open "SELECT * FROM nyhed order by dato desc", database

While NOT nyhed.EOF

Response.Write "" & nyhed.Fields("dato") & " "
Response.Write "" & nyhed.Fields("overskrift") & " "
Response.Write "<a href='visNyhed.asp?id=" & nyhed.Fields("id") &"' target=''>Læs mere</a> "

nyhed.MoveNext
Wend

%>


</blockquote>
</td>

<td>
<blockquote>


Links:
 


 




<%
Set nyhed2 = Server.CreateObject ("ADODB.Recordset")
nyhed2.Open "SELECT * FROM nyhed2 order by dato desc", database

While NOT nyhed2.EOF

Response.Write "<a href=""" & nyhed2.Fields("overskrift") & """ alt=""" & nyhed2.Fields("overskrift") & """>" & nyhed2.Fields("overskrift") & "</a> "

nyhed2.MoveNext
Wend

%>
</blockquote>
</td>
</tr>
</table>

</td>
<td bgcolor="#000000"></td>
</tr>

<tr>
<td width="100" bgcolor="#000000"></td>
<td WIDTH=683 HEIGHT=56 align="center" bgcolor="#000000">
<a href="default.asp">Hjem</a> | <a href="omos.asp">Om os</a> | <a href="opgaver.asp">Opgaver</a> | <a href="systemer.asp">Systemer</a> | <a href="losninger.asp">Løsninger</a> | <a href="kontakt.asp">Kontakt</a> | <a href="job.asp">Job</a> | <a href="links.asp">Links</a> Copyright © Djurs Bogholderi & Regnskabsservice. 
Østergade 20, 2. th | 8500 Grenaa

</td>
<td width="100" bgcolor="#000000"></td>
</tr>
</table>
</body>
</html>

Synes godt om

keysersoze Guru

25. december 2008 - 20:02 #3

det skyldes ikke mit kode-eksempel - det skyldes at du forsøger at åbne en database der allerede er i brug, det skyldes formentlig at du benytter  to gange.

Sørg iøvrigt også for både at lukke dine recordsets efter brug samt at benytte en korrekt doctype.

Synes godt om

dbjs Nybegynder

25. december 2008 - 20:24 #4

Tusind tak :)

Synes godt om

dbjs Nybegynder

26. december 2008 - 08:59 #5

Jeg får stadig en fejl selvom jeg har fjernet 

Helt præcis hvor skal jeg lukke mit recordset og hvordan? Jeg har snart stirret mig blind på den her kode.

Du kan se siden her:
http://www.dbor.dk/links.asp

og koden:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Links | Djurs Bogholderi & Regnskabsservice</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta name="Author" content="Steen Hjelmstrand" />
<link href="css/styles.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#000000">

<table BORDER="0" CELLPADDING="0" CELLSPACING="0" bgcolor="#FFFFFF">
<tr>
<td width="150" bgcolor="#000000"></td>
<td height="50">
<a href="default.asp"><img src="images/home.jpg" BORDER=0 ALT="Hjem"></a><a href="omos.asp"><img src="images/omos.jpg" BORDER=0 ALT="Om os"></a><a href="opgaver.asp"><img src="images/Opgaver.jpg" BORDER=0 ALT="Opgaver"></a><a href="systemer.asp"><img src="images/Sys.jpg" BORDER=0 ALT="Systemer/programmer"></a><a href="losninger.asp"><img src="images/los.jpg" BORDER=0 ALT="Løsninger"></a><a href="kontakt.asp"><img src="images/kontakt.jpg" BORDER=0 ALT="Kontakt"></a><a href="job.asp"><img src="images/job.jpg" BORDER=0 ALT="Job"></a><a href="links.asp"><img src="images/Nyheder.jpg" BORDER=0 ALT="Nyheder"></a>
</td>
<td width="100" bgcolor="#000000"></td>
</tr>
<tr>
<td bgcolor="#000000"></td>
<td width="683" height="210"><img src="images/m2.gif" align="top">
</td>
<td bgcolor="#000000"></td>
</tr>

<tr>
<td bgcolor="#000000"></td>
<td height="300" width="683">

<table>
<tr>
<td width="200" bgcolor="#E3E3E5" height="300">
<blockquote>


Nyheder:
 


 



<%
Set nyhed = Server.CreateObject ("ADODB.Recordset")
nyhed.Open "SELECT * FROM nyhed order by dato desc", database

While NOT nyhed.EOF

Response.Write "" & nyhed.Fields("dato") & " "
Response.Write "" & nyhed.Fields("overskrift") & " "
Response.Write "<a href='visNyhed.asp?id=" & nyhed.Fields("id") &"' target=''>Læs mere</a> "

nyhed.MoveNext
Wend

%>


</blockquote>
</td>

<td>
<blockquote>


Links:
 


 



<%
Set nyhed2 = Server.CreateObject ("ADODB.Recordset")
nyhed2.Open "SELECT * FROM nyhed2 order by dato desc", database

While NOT nyhed2.EOF

Response.Write "<a href=""" & nyhed2.Fields("overskrift") & """ alt=""" & nyhed2.Fields("overskrift") & """>" & nyhed2.Fields("overskrift") & "</a> "

nyhed2.MoveNext
Wend

%>
</blockquote>
</td>
</tr>
</table>

</td>
<td bgcolor="#000000"></td>
</tr>

<tr>
<td width="100" bgcolor="#000000"></td>
<td WIDTH=683 HEIGHT=56 align="center" bgcolor="#000000">
<a href="default.asp">Hjem</a> | <a href="omos.asp">Om os</a> | <a href="opgaver.asp">Opgaver</a> | <a href="systemer.asp">Systemer</a> | <a href="losninger.asp">Løsninger</a> | <a href="kontakt.asp">Kontakt</a> | <a href="job.asp">Job</a> | <a href="links.asp">Links</a> Copyright © Djurs Bogholderi & Regnskabsservice. 
Østergade 20, 2. th | 8500 Grenaa

</td>
<td width="100" bgcolor="#000000"></td>
</tr>
</table>
</body>
</html>

Synes godt om

keysersoze Guru

26. december 2008 - 10:21 #6

du lukker med

xxx.Close
Set xxx = Nothing

og du lukker så snart du er færdig med at bruge det pågældende objekt, dvs dine 2 recordsets skal lukkes lige efter wend og din databaseconnection skal lukkes som minimum i bunden af siden.

Synes godt om

dbjs Nybegynder

26. december 2008 - 10:34 #7

woho :) Så virker det! Takker rigtig mange gange :D

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS