Export til Excel

Hej Exp,

Jeg har en exportkode, som har virket, men ikke vil mere. Hver gang jeg prøver at eksportere vil den gemme det som en html fil og ikke excel?

På forhånd tak for hjælpen!

<%
Response.Buffer = True

Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition",  "attachment; filename=GST DATO1-DATO2.xls"

    date_1        = Request.Querystring("date_from")
    date_2        = Request.Querystring("date_to")
   
    date_from    = Year(date_1) & "-" & month(date_1) & "-" & day(date_1)
    date_to        = Year(date_2) & "-" & month(date_2) & "-" & day(date_2)

'Tjekker om før-eksporterede skal medbringes

    If NOT Request.Querystring("exported") = "no" Then
        exported = ""
    Else
        exported = "AND exported = '0'"
    End If




strSQL = "Select * From orders Where error = 0 " & exported & " AND `date` Between '" & date_from & "' AND '" & 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>" & Year(rs("date")) & "-" & month(rs("date")) & "-" & day(rs("date")) & "        </TD>"
    .Write "<TD>" & rs("name_1") & "    </TD>"
    .Write "<TD>" & rs("street") & "    </TD>"
    .Write "<TD>" & rs("number") & "    </TD>"
    .Write "<TD>" & rs("letter") & "    </TD>"
    .Write "<TD>" & rs("floor") & "        </TD>"
    .Write "<TD>" & rs("side") & "        </TD>"
    .Write "<TD>" & rs("name_2") & "    </TD>"   
    .Write "<TD>" & rs("scity") & "        </TD>"
    .Write "<TD>" & rs("zip_code") & "    </TD>"
    .Write "<TD>" & rs("attention") & "    </TD>"
    .Write "<TD>" & rs("phone") & "        </TD>"
    .Write "</TR>"

Next

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


rs.MoveNext
Loop

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