TOP X......

Hej!

Ved godt det har været på banen mange gange, men jeg kan squ ikke få det til at virke...

Jeg skal have et script der trækker de sidste syv nyheder ud fra en database, hvis der altså er syv! Hvis der er under syv skal den tage dem alle... Men der går noget galt når jeg skal udskrive dem! HVAD???


Kode:
|----------------------------------------------|

<%
id = Request.QueryString("id")

if id = "" then
    nyhed_udskriv = "<BR><TABLE border=0>"
    strSQL = "SELECT COUNT(ID) AS Antal FROM nyheder"
    Set rs = myConn.Execute(strSQL)
    gentag = Rs("Antal")
    If gentag > 7 then gentag = 7
    Response.Write "gentag=" & gentag & "  "
   


    strSQL2 = "SELECT TOP " & gentag & " * FROM Nyheder ORDER BY dato"
    Response.Write strSQL2
    Set rs2 = myConn.Execute(strSQL2)
   
   
    count = 0
    if NOT rs.EOF then
    Do While NOT rs.Eof

nyhed_udskriv = nyhed_udskriv & "<TR><TD class=""bodytext""><LI>" & rs2("dato") & " : <A HREF=nyheder.asp?id=" & rs2("id") & ">" & rs2("overskrift") & "</A>"
nyhed_udskriv = nyhed_udskriv & "</TR></TD>"
   
    count = count + 1
    rs.MoveNext
    Loop
    Response.Write "Count=" & count
    ELse
    Response.Write "Fejl!"
    End IF
    'End If
    Response.Write nyhed_udskriv
Else
strSQL = "SELECT * FROM nyheder WHERE (id = " & id & ")"
Set rs = myConn.Execute(strSQL)
%>
<BR>
<TABLE BORDER=0>
    <TR>
    <TD><%= rs("dato") %>:</TD><TD>&nbsp;&nbsp;&nbsp;&nbsp;<b><%= rs("overskrift") %></b></TD
    ></TR>
    <TR>
    <TD colspan="2" Style="text-align : justify;"><br><%= rs("body") %></TD
    ></TR>
</TABLE>


<% End If %>

|----------------------------------------------|