Ej hvor er det mega skod....
Det er ingen notat, hvad jeg faktisk glemt at sætte den på, og da jeg satte \"Set objRs = Server.CreateObject(\"ADODB.RecordSet\")\" ind fik jeg beskeden:
ADODB.Recordset fejl \'800a0cc1\'
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
/default.asp, linje 79
Her har i så mere af min lækre smørre:
<% if mode = \"\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/nyheder.mdb\")
strSQL = \"select top 1 * from essens ORDER BY Dato DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Databasen er tom.</font>\"
else
Do Until rs.EOF
%>
<table width=\"95%\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\" align=\"center\">
<tr>
<td colspan=\"2\"><b><%=RS(\"overskrift\")%></b> / <font size=\"1\"><%=RS(\"dato\")%></font></td>
</tr>
<tr>
<td valign=\"top\" rowspan=\"2\"><img src=\"
http://www.skisportalen.dk/artikel-images/<%=RS(\"billede\")%>\" width=\"170\" height=\"100\" border=\"1\"></td>
<td valign=\"top\"><%=replace(objRs(\"nyhed\"),vbcrlf,\"<br>\")%>
</td>
</tr>
<tr>
<td valign=\"bottom\" align=\"right\"><a href=\"essens.asp?id=<%=RS(\"id\")%>\"><img border=\"0\" src=\"
http://www.skisportalen.dk/images/mere.gif\"></a></td> </tr>
</table>
<% RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
<% end if %>
Please hjælp