Hmm...hvad gør jeg forkert ?
Kan ik få det til at virke med dit forslag ldanielsen
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rs 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database
Dim lngRecordNo 'Holds the record number to be updated
'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))
Set adoCon = Server.CreateObject("ADODB.Connection")
Set adoCom = Server.CreateObject("ADODB.Command")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tips.mdb")
adoCom.ActiveConnection = adoCon
strSQL = "SELECT tipstabel.* FROM tipstabel WHERE ID_no=" & lngRecordNo
adoCom.CommandText = strSQL
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open adoCom, , 0, 1
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tipstabel.* FROM tipstabel WHERE ID_no=" & lngRecordNo
'Open the recordset with the SQL query
rs.Open strSQL, adoCon
%>
<html>
<head>
<title>.:: Tipsbasen ::.</title>
<link rel="stylesheet" type="text/css" href="stil.css">
<meta http-equiv="Cache-Control" content="no-store">
<meta http-equiv="Pragma" content="no-cache">
</head>
<body bgcolor=#F9F9F9 text="black"><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber2">
<tr>
<td width="100%">
<p align="center">
<font face="Verdana" size="2"><b>
<%=rs("Overskrift")%></b>
</p>
</td>
</tr>
<tr>
<td width="100%">
<hr width="100%">
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="0" width="80%">
<tr>
<td width="20%"><font face='verdana' size='1'>Indsendt af</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("Forfatter") & "</FONT>"
%>
</td>
<td width="15%"><font face='verdana' size='1'>Kategori</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("kategori") & "</FONT>"
%></td>
</tr>
<tr>
<td width="20%"><font face='verdana' size='1'>Indsendt d.</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("dato") & "</FONT>"
%></td>
<td width="15%"><font face='verdana' size='1'>Klokken</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("tid") & "</FONT>"
%></td>
</tr>
</table>
</div>
<br>
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber2">
<tr>
<td width="100%" align="left" colspan="2" bgcolor="#C0C0C0"><font face="Verdana" size="1">
<%
Response.write "<FONT size=1 face=verdana>" & rs("tips") & "</FONT>"
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2" ><font face="Verdana" size="1">
<%
' Response.write "<FONT size=1 face=verdana>" & rs("link") & "</FONT>"
' Response.Write "test<a href=" & rs("link") & "target=_blank >" & rs("link") & "</a>"
Response.Write "<a href="""&rs("link") & " target=""_blank"">"&rs("link")&"</a>"
%>
<a href="<%=rs("forfatter")%>" target=_blank>t<%=rs("fOrFaTTer")%></a>
</td>
</tr>
<tr>
<td width="20%" align="left" colspan="2"><font face="Verdana" size="1">
<%
if len(rs("url"))>0 then
Response.write ("<img src='" & rs("url") & "' border='0' align='top' height='240' width='320'>")
end if
%>
</td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<table border="0" width="80%">
<tr>
<td>
<p align="right"><a href="#" onclick="java script:window.close()">Luk vindue</a>
</td>
</tr>
</table>
</div>
</body>
</html>
</font><%
'Reset server objects
rs.Close
Set rs = Nothing
Set adoCon = Nothing
set adoCom = nothing
%>
