underlig fejl, udskrivning

http://1q.frip.dk/odds/vinder.asp
På denne side skriver jeg.
<%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select distinct SpilID from spil where sidstefrist < now() and vinder = ''"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Ingen afsluttede spil uden vinder")
response.write "<br>" & strSQL
else
do while not rs.EOF
%>  <a href="vinder.asp?SpilID=<%=rs("SpilID")%>" style="color: rgb(0,0,0)"><%=rs("SpilID")%></a><%rs.movenext
loop
end if%>
Og et udsnit fra min database er også på siden.