Hente word dokumenter fra Access database

Kan du vise din kode? Du skal huske at saette content-type i din header til at vaere et word dokument, og saa skal du skrive data vha. response.BinaryWrite og ikke response.write. Haaber det er det du mangler.

Det har jeg vist med jeg smider lige det jeg har skrvet indtil videre.....
Jeg har aldrig kigget på asp før så der kan godt være ting der er overflødige og ting der kunne gøres smartere....here goes


<%



'Opret database adgang

dim conn

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName

end function

OpenConn("../projektoplysninger.mdb")

' SQL forespørgsel
strSQL = "Select * from tblReferater where id="&request.Querystring("id")
BlockSize=4096


'Response.Write(strSQL)
Response.ContentType = "application/msword"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
rs.MoveFirst
set Field=rs("Referat")
Response.AddHeader "Content-Disposition", "attachment;filename=" & Field.name
FileLength=Field.ActualSize
NumBlocks=FileLength/BlockSize
LeftOver=FileLength Mod BlockSize
Response.BinaryWrite Field.GetChunk(LeftOver)
For intLoop = 1 to NumBlocks
  Response.BinaryWrite Field.GetChunk(BlockSize)
Next
rs.close




'Response.BinaryWrite rs("Referat")

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing


%>

håber du kan se hvad problemet er :-)

Det ser ud til at du skriver din rest ud foer starten af filen:

Response.BinaryWrite Field.GetChunk(LeftOver)

Det skal vist flytter ned til efter dit loop ikke?

Og saa lige en lille detalje: Det er ikke noedvendigt med rs.MoveFirst naar man tilgaar et recordset foerste gang.

Lukkes??