ASP fejl 800a000d

Prøv med det her i stedet:

<table width="550" border="0" cellspacing="0" cellpadding="0">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open session("DSN")

strSQL = "Select * from News Order By Id"
Set rs = Conn.Execute(strSQL)

ID = rs("id")

Do
%>  <tr>
    <td width="550" valign="top" align="left"><img src="images/icon/<%=rs("Pic")%>.jpg" width="100" height="100" align="left" border="0" hspace="3" vspace="3"><b><%=News_Titleandtextlang(ID,1)%></b><br>
<%=News_Titleandtextlang(ID,2)%></td>

Jo det løste det.. men nu kommer der en ny fejl..

<table width="550" border="0" cellspacing="0" cellpadding="0">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open session("DSN")

strSQL = "Select * from News Order By Id"
Set rs = Conn.Execute(strSQL)

Do
strNews_Id = rs("Id")
strNews_Af = rs("Af")
strNews_Added = rs("Tid")
%>  <tr>
    <td width="550" valign="top" align="left"><img src="images/icon/<%=rs("Pic")%>.jpg" width="100" height="100" align="left" border="0" hspace="3" vspace="3"><b><%=News_Titleandtextlang(strNews_Id,1)%></b><br><%=News_Titleandtextlang(strNews_Id,2)%></td>
  </tr>
  <tr>
    <td width="550" height="5"></td>
  </tr>
  <tr>
    <td width="550" height="15" bgcolor="#c3b087" align="center" class="addedby"><%=Lang_text(17)%> <span class="addedbyname"><%=news_addname(strNews_Af)%></span> (<%=Server.HTMLEncode(news_time(strNews_Added))%>)</td>
  </tr>
  <tr>
    <td width="550" height="20"></td>
  </tr>
<%
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%></table>


   
   
   
   

Microsoft VBScript runtime error '800a01a8'

Object required

/include/news.asp, line 28

hvad er linie 28?

rs.MoveNext

Hvorfor for jeg den fejl?

Hmm.. lukket