Eksportering til Excel

Hej, jeg har lidt problemer med nedenstående kode. Den virker fint hvis "dato_from" passer til en ordre i databasen, men den laver en fil uden indhold hvis man fx tager fra dato 01-01-2006 til 31-01-2006, og der så derimellem er en ordre med dato 15-01-2006. Nogen der kan hjælpe?

<%
Response.Buffer = True
Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition",  "attachment; filename=" & Request.Querystring("date_from") & "-" & Request.Querystring("date_to") & ".xls"

strSQL = "Select * From orders Where error = FALSE AND date BETWEEN '" & Request.Querystring("date_from") & "' AND '" & Request.Querystring("date_to") & "'"
Set rs = Conn.Execute(strSQL)


With Response

    .Write "<TABLE>"

Do While Not rs.eof

   
For i = 1 To FormatNumber(Cint(rs("amount")),0)

    .Write "<TR>"
    .Write "<TD>" & rs("phoner_id") & "    </TD>"
    .Write "<TD>" & rs("date") & "    </TD>"
    .Write "<TD>" & rs("name_1") & "    </TD>"
    .Write "<TD>" & rs("street") & "    </TD>"
    .Write "</TR>"

Next

Conn.Execute("Update orders Set exported = TRUE Where order_id = " & rs("order_id") & "")


rs.MoveNext
Loop

    .Write "</TABLE>"
   
End With
%>

På forhånd tak for hjælpen!