Vil ikke hente id.

strSQL = "SELECT TOP 7 overskrift,tekst,pic,id,kilde,link,navn FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

Hvis ikke det virker, så prøv og ændre rækkefølgen så du henter felterne som de kommer i databasen. Altså først id osv

Den vil stadig ikke hente id, og jeg kan simpelthen ikke se hvad der er galt.
linket viser bare "blablabla?id=" <- og det er jo der mit id skal komme.

Det hjælpe heller ikke hvis jeg sætter dem i rækkefølge.

Prøv sådan her istedet
Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='newscom.asp?id='" & rs("id") & ">Diskuter</a>"

Den vil stadig ikke.

Skal jeg sende det til dig, er det bedre?

Det må kunne lade sig gøre uden.

prøv lige response.write rs("id") lige efter Do While not rs.eof

Skriver den så id'erne ud til dig?

Jepsen.. Så skriver den id ud.

så prøv
lige efter Do While not rs.eof
id = rs("id")

Skift dernæst Response.Write rs("id") ud med response.write id

Ok det prøver jeg..

Men ellers har jeg denne her kode, man den kan jeg ikke få til at loop og udskrive de 6 gange.
Den henter nemlig id, og virker ellers som den skal:

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("news.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect



strSQL = "SELECT TOP 7  * FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 6
placering = 1


If Not rs.EOF Then
    id = rs("id")
    overskrift = rs("overskrift")
    tekst = rs("tekst")
    navn = rs("navn")
    kilde = rs("kilde")
    link = rs("link")
    pic = rs("pic")

Else
    Response.Write "<b>Der er noget galt med id'et</b><br><br>"
End If

Do While not rs.eof

%>

<center><div id="boxnews">
<table border="0" width="435" cellspacing="0" cellpadding="0">
 
  <tr>
    <td width="398" colspan="2" class="headline"><font color="#FF9C00">»</font> <%=overskrift%></td>
  </tr>
  <tr>
    <td width="337" class="text">
      <table width="100%" height="100%" cellpadding="2">
        <tr>
          <td class="font"><%=tekst%></td>
        </tr>
      </table>
    </td>
    <td width="100" valign="top" class="tom">
      <table border="0" width="100%" cellspacing="0" cellpadding="2">
        <tr>
          <td width="100" height="100" class="pic" align="center" valign="bottom"><img border="0" src="../pics/<%=pic%>" width="65" height="80"><br><img src="gfx/nyhedbar.gif"></td>
        </tr>
        <tr>
          <td width="100%" class="info" valign="middle">
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="newscom.asp?id=<%=id%>">Diskuter</a>
                                                    <%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs=objConn.Execute("SELECT COUNT(*) FROM newscom where nyhedid=" & ID)
                                                    AntalKommentarer=rs(0).Value
                                                   
                                                    Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
                                                      end if
                                                    %>
                                                    <br>
        &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=kilde%>" target="_new">Kilde</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=link%>" target="_new">Læs mere</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">Af:</font> <%=navn%>       
          </td>
        </tr>
      </table><br>
    </td>
  </tr>
</table>
</div>



<%
placering = placering + 1
  rs.MoveNext
loop

%>

indsæt rs.movefirst lige inden din
Do While not rs.eof.

eller du kan skrive det her inde i dit loop


    id = rs("id")
    overskrift = rs("overskrift")
    tekst = rs("tekst")
    navn = rs("navn")
    kilde = rs("kilde")
    link = rs("link")
    pic = rs("pic")

istedet for inden dit loop

Den henter data som den skal nu, også id.
Her er koden som den er nu, men loop virker ikke. Den viser kun 1.

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("news.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect



strSQL = "SELECT TOP 6  * FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 6
placering = 1


If Not rs.EOF Then
    id = rs("id")
    overskrift = rs("overskrift")
    tekst = rs("tekst")
    navn = rs("navn")
    kilde = rs("kilde")
    link = rs("link")
    pic = rs("pic")

Else
    Response.Write "<b>Der er noget galt med id'et</b><br><br>"
End If
rs.movefirst
Do While not rs.eof

%>



<center><div id="boxnews">
<table border="0" width="435" cellspacing="0" cellpadding="0">
 
  <tr>
    <td width="398" colspan="2" class="headline"><font color="#FF9C00">»</font> <%=overskrift%></td>
  </tr>
  <tr>
    <td width="337" class="text">
      <table width="100%" height="100%" cellpadding="2">
        <tr>
          <td class="font"><%=tekst%></td>
        </tr>
      </table>
    </td>
    <td width="100" valign="top" class="tom">
      <table border="0" width="100%" cellspacing="0" cellpadding="2">
        <tr>
          <td width="100" height="100" class="pic" align="center" valign="bottom"><img border="0" src="../pics/<%=pic%>" width="65" height="80"><br><img src="gfx/nyhedbar.gif"></td>
        </tr>
        <tr>
          <td width="100%" class="info" valign="middle">
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="newscom.asp?id=<%=id%>">Diskuter</a>
                                                    <%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs=objConn.Execute("SELECT COUNT(*) FROM newscom where nyhedid=" & ID)
                                                    AntalKommentarer=rs(0).Value
                                                   
                                                    Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
                                                      end if
                                                    %>
                                                    <br>
        &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=kilde%>" target="_new">Kilde</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=link%>" target="_new">Læs mere</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">Af:</font> <%=navn%>       
          </td>
        </tr>
      </table><br>
    </td>
  </tr>
</table>
</div>



<%
placering = placering + 1
  rs.MoveNext
loop

%>

Jeg kan sagtens sætte det hele i Response.Write og få loop til at virke, men det skulle helst være med denne her kode, da jeg ellers ikke kan benytte min antals kode inde i midten.

Prøv lige og check view source. Måske der er rod i html eller der sker en fejl et eller andet sted.

Ser det rigig nok ud da?

Hvis jeg fjerne dette her fra koden virker det næsten. Den udskriver godtnok 6 gange, men den samme nyhed.

Dette er hvad jeg har fjernet:
<%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs=objConn.Execute("SELECT COUNT(*) FROM newscom where nyhedid=" & ID)
                                                    AntalKommentarer=rs(0).Value
                                                   
                                                    Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
                                                      end if
                                                    %>

Men så kan jeg ikke tælle hvormange indlæg der er for den givende nyhed. :-/

arhg okay, nu er jeg med.

det er fordi dine recordset hedder det samme. Kald recordsettet inde i loopet noget andet fx rs1. Det løser alle dine problemer

<%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs1=objConn.Execute("SELECT COUNT(*) FROM newscom where nyhedid=" & ID)
                                                    AntalKommentarer=rs1(0).Value
                                                   
                                                    Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
                                                      end if
                                                    %>

Jep. Det gjorde det næsten:

http://www.trailersiden.dk/filmnet/default.asp

Bare at den udskriver den samme nyhed 6 gange.

Det virker nu..

Jeg fjernede:

Den henter data som den skal nu, også id.
Her er koden som den er nu, men loop virker ikke. Den viser kun 1.

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("news.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect



strSQL = "SELECT TOP 6  * FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 6
placering = 1


If Not rs.EOF Then
   
Else
    Response.Write "<b>Der er noget galt med id'et</b><br><br>"
End If
rs.movefirst


Og skrev istedet:

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("news.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect



strSQL = "SELECT TOP 6  * FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 6
placering = 1


Do While not rs.eof
    id = rs("id")
    overskrift = rs("overskrift")
    tekst = rs("tekst")
    navn = rs("navn")
    kilde = rs("kilde")
    link = rs("link")
    pic = rs("pic")


 




%>

Jeg takker for alt din hjælp. Den var påskønnet :-)