Ik wil graag een word .doc uit mijn database halen mbv ASP.
Maar ik krijg alleen binary code op mijn scherm. Sterker nog als ik mijn link aan klik dan krijg je eerst "Openen" & "Opslaan" schermpje (okey das normaal), maar daarna krijg een schermpie die vraagt in welk formaat ik de file wil converteren.
Zeg ik word 2.x dan krijg ik bagger teksten.
MIJN CODE:
<%@LANGUAGE="VBSCRIPT"%>
<% Response.ContentType = "application/msword" %>
<html>
<head><title>Notule</title></head>
<body>
<%
Dim oConn
Dim oRs
Dim filePath
Dim Index
Dim sqlString
Dim objWord
Dim Doc
filePath = Server.MapPath(mijnpad)
sqlString = "SELECT * FROM T2Notules WHERE NotuleId = " & Request("NotId") & ";"
set oConn = Server.Createobject("ADODB.Connection")
set oRs = Server.Createobject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
oRs.open sqlString, oConn, 3, 3
Response.Expires = 0
Response.Buffer = True
Response.Clear
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "content-disposition", "inline; filename=notule (" & oRs.Fields("Datum").Value &").doc"
Response.BinaryWrite (oRs.Fields("Notule").GetChunk(oRs.Fields("Notule").ActualSize))
Response.BinaryWrite (oRs.Fields("Notule").Value)
Response.End
oRs.Close
Set oRs = Nothing
oConn.Close
Set oConn = Nothing
%>
</body>
</html>
Ook als ik kies voor het opslaan van mijn .doc en later via word open dan moet ik eerst de bagger binary code converteren. om vervolgens nog steeds bagger tekst over te houden.
Ik denk dat het aan de datasoort ole object in mijn access-tabel ligt.
Kan iemand mij helpen; Ben gek aan het worden;
Mensen alvast erg bedankt,
Maar ik krijg alleen binary code op mijn scherm. Sterker nog als ik mijn link aan klik dan krijg je eerst "Openen" & "Opslaan" schermpje (okey das normaal), maar daarna krijg een schermpie die vraagt in welk formaat ik de file wil converteren.
Zeg ik word 2.x dan krijg ik bagger teksten.
MIJN CODE:
<%@LANGUAGE="VBSCRIPT"%>
<% Response.ContentType = "application/msword" %>
<html>
<head><title>Notule</title></head>
<body>
<%
Dim oConn
Dim oRs
Dim filePath
Dim Index
Dim sqlString
Dim objWord
Dim Doc
filePath = Server.MapPath(mijnpad)
sqlString = "SELECT * FROM T2Notules WHERE NotuleId = " & Request("NotId") & ";"
set oConn = Server.Createobject("ADODB.Connection")
set oRs = Server.Createobject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
oRs.open sqlString, oConn, 3, 3
Response.Expires = 0
Response.Buffer = True
Response.Clear
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "content-disposition", "inline; filename=notule (" & oRs.Fields("Datum").Value &").doc"
Response.BinaryWrite (oRs.Fields("Notule").GetChunk(oRs.Fields("Notule").ActualSize))
Response.BinaryWrite (oRs.Fields("Notule").Value)
Response.End
oRs.Close
Set oRs = Nothing
oConn.Close
Set oConn = Nothing
%>
</body>
</html>
Ook als ik kies voor het opslaan van mijn .doc en later via word open dan moet ik eerst de bagger binary code converteren. om vervolgens nog steeds bagger tekst over te houden.
Ik denk dat het aan de datasoort ole object in mijn access-tabel ligt.
Kan iemand mij helpen; Ben gek aan het worden;
Mensen alvast erg bedankt,