Sv: Får inte ut formaterad fil från databas

Får inte ut formaterad fil från databas

Postades av 2003-09-04 19:10:09 - Thommy Lantz, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 442 personer

Känner mig lite ute på hal is
Försöker med Asp Upload ladda upp ett worddokument
till en access databas och sen hämta ut filen

Koden för uppladdning ser ut så här

<code>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveToMemory

typ = CStr(Session("typ"))
avdelning = CStr(Session("avdelning"))
sektion = CStr(Session("sektion"))
ao = CStr(Session("ao"))
rubrik = Session("rubrik")
DocAnsv = Session("ansvarig")
InDate = CStr(Session("datum"))
UtDate = CStr(Session("utdatum"))
iYear = Year(CStr(Session("datum")))

If typ = "" Then typ = 1
If avdelning = "" Then avdelning = 1
If sektion = "" Then sektion = 1
If ao = "" Then ao = 1
If rubrik = "" Then rubrik = "Test"
If DocAnsv = "" Then DocAnsv = "Thommy Lantz"
If InDate = "" Then InDate = "2003-08-01"
If UtDate = "" Then UtDate = ""

If iYear = "" Then iYear = 2003
If sektion = "" Then sektion = 0
If ao = "" Then ao = 0

For Each File in Upload.Files
SzFileName = File.ExtractFileName
bFile = File.Binary
Next

Set Upload = Nothing

Set rs = Server.CreateObject("adodb.recordset")
rs.Open "tblDriftinstruktioner", Conn, 2, 3

rs.AddNew
rs("InstrID").Value = typ
rs("AvdelningID").value = avdelning
rs("SektionID").Value = sektion
rs("iYear").Value = iYear
rs("Rubrik").Value = rubrik
rs("DocAnsv").Value = DocAnsv
rs("InDate").value = InDate
rs("UtDate").value = UtDate
rs("doc_url").value = SzFileName
rs("dokument").value = bFile
rs.Update

rs.Close
set rs = Nothing
%>
</code>

och för att hämta ser koden ut så här

<code>
<HTML>
<%@ Language=VBScript %>

<%

ID = 55
SQLQuery = "SELECT doc_url, dokument FROM tblDriftinstruktioner WHERE ID=" & ID

Set RS = Server.CreateObject("adodb.recordset")
RS.Open SQLQuery, Conn, 2, 3
If Not RS.EOF Then
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "filename=" & RS("doc_url")
Response.BinaryWrite RS("dokument")
Else
%>
<HTML>
<BODY onload="Javascript=self.focus();">Hittar inte dokumentet
</BODY>
</HTML>

<%
End If
RS.Close
Set RS = Nothing
%>
</code>

databasen är access 2000
Datatypen på fältet dokument är ActiveX-objekt

Problemet är att filen inte visas som en wordfil utan bara en massa skräptecken och
texten i dokumentet

Jag kanske gör något generalfel

Svara