Nyheds side med fejl
Tjaaa... tilbage igen til tegnebrættet....Det driller lidt for tiden, her er lige en opgave til jer Eksperter ;)
Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'
Command text was not set for the command object.
/opdateringer.asp, line 19
----------------------------------------------------------------
OPDATERINGER.ASP
----------------------------------------------------------------
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Opdateringer</title>
</head>
<body>
<p align="right"><b><font face="Verdana" size="2" color="#0099FF">Opdateringer</font></b></p>
<%
id = Request.Querystring("id")
Response.Buffer = True
strSQL = "SELECT TOP 5 * FROM nyheder WHERE kategori='opdateringer' ORDER BY id DESC"
Set rs = Conn.Execute(Sql)
%>
<table border="0" width="100%" id="table1">
<tr>
<td><b><font face="Verdana" size="1">Forord</font></b><hr color="#FF6600" size="1">
</td>
</tr>
<tr>
<td><font face="Verdana" size="1">Her ligger så alle de løbende
opdateringer af siden, så alle kan følge med hvad der sker på siden.</font></td>
</tr>
</table>
<br>
<% IF NOT RS.EOF THEN
DO WHILE NOT RS.EOF %>
<table border="1" width="100%" id="table2" style="border-collapse: collapse" bordercolorlight="#FF6600" bordercolordark="#FF6600">
<tr>
<td>
<table border="0" width="100%" id="table3">
<tr>
<td><b><font face="Verdana" size="1">Skrevet Af : <% Response.Write "" & rs("skrevet_af") & "" %> | Rang : <% Response.Write "" & rs("rang") & "" %></font></b>
</td>
<td><% Response.Write "" & rs("dato") & "" %></td>
</tr>
<tr>
<td colspan="2"><% Response.Write Replace(server.htmlencode(rs("nyhed")), vbCrLf, "<BR>") %></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<br>
<%
RS.MOVENEXT
LOOP
Else
response.write "<b><font face='Verdana' size='1'>Der er ikke nogen opdateringer!</font></b>"
end if
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
