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.aspKoden 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>
<b>
<font size="2">
Nyheder:
<br>
</b>
</font>
<br>
<font size="1" >
<!--#include file="forbindelse.asp" -->
<%
Set nyhed = Server.CreateObject ("ADODB.Recordset")
nyhed.Open "SELECT * FROM nyhed order by dato desc", database
While NOT nyhed.EOF
Response.Write "<b>" & nyhed.Fields("dato") & "</b><br>"
Response.Write "<b>" & nyhed.Fields("overskrift") & "</b><br>"
Response.Write "<a href='visNyhed.asp?id=" & nyhed.Fields("id") &"' target=''>Læs mere</a><br><br>"
nyhed.MoveNext
Wend
%>
</font>
</blockquote>
</td>
<td>
<blockquote>
<b>
<font size="2">
Links:
<br>
</b>
</font>
<br>
<font size="1" >
<!--#include file="forbindelse.asp" -->
<%
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><br>"
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">
<font face="'tahoma'" color="#FFFFFF" size="1"><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><br>Copyright © Djurs Bogholderi & Regnskabsservice.<br>
Østergade 20, 2. th | 8500 Grenaa
</font>
</td>
<td width="100" bgcolor="#000000"></td>
</tr>
</table>
</body>
</html>