hva går der galt ?

Når jeg bruger det her script, så udskriver den alle nyhederne og ikke de 5 sidste, som den skal...hva går der galt, jeg har set scriptet igennem flere gange og har også fået en ven til at kigge på det, men der er ikke nogen af os der kan finde nogle fejl i det.

<!--#include file="functions.asp"-->
<!--#include file="dns_open1.asp"-->
<%
    If request("ID") <> "" Then
        NID = request("ID")
        If NID = "" Then
            response.redirect "index.asp"
        Else
            SQL = "SELECT * FROM [Nyheder] WHERE ID = "&NID
            rstemp.Open SQL, conntemp, 1
%>
<!--#include file="dato.asp"-->
<%
    Response.Write "<table align=""center"" border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0""><tr>"   
    Response.Write "<tr><td width=""100%"">"&dag&" d. "&day(rstemp("Dato"))& maaned &year(rstemp("Dato"))&"<br></td></tr>"
    Response.Write "<tr><td width=""100%""><b><font size=""4""><br>"& rstemp("OverSkrift") &"</font></b></td></tr></table>"
    Response.Write "<table align=""center"" border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0""><tr>"
    Response.Write "<td width=""100%"">"& rstemp("Nyhed") &"</td></tr></table><br>"
    End If
%>
<!--#include file="dns_close.asp"-->
<%
    Else
%>
<!--#include file="dns_open2.asp"-->
<%
    SQL = "SELECT TOP 5 * FROM [Nyheder] ORDER BY Date DESC"
    Set rstemp = conntemp.execute(SQL)
    If rstemp.EOF or rstemp.BOF Then
        Response.Write "Der er ingen nyheder i databasen!"
    Else
        Do Until rstemp.EOF

            Response.Write "<table align=""center"" border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0""><tr>"
            Response.Write "<td width=""100%""><b><u><font size=""6"" color=""#637080""><a href=""index.asp?id="& rstemp("id") &""">"& rstemp("OverSkrift") &"<br></a></font></u></b></td></tr></table>"
            Response.Write "<table align=""center"" border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0""><tr>"
            Response.Write "<td width=""100%"">"& rstemp("Nyhed") &"</td></tr></table>"
            Response.Write "<br>"
            rstemp.MoveNext
        loop
        rstemp.Close : Set rstemp = Nothing
%>
<!--#include file="dns_close.asp"-->
<%                       
        End If
    End If
%>