P
Pedro Leite
Good Afternoon.
the code below is properly retreiving binary data from a database and saving
it. but instead of saving at client machine is saving at the server machine.
what is wrong with my code ??
thank you
Pedro Leite From Portugal
------------------------------------
<%
Function ReadBinaryData (FileName)
' Connection String
Dim connStr
connStr = "Provider=MSDASQL.1;Extended
Properties=Driver={Firebird/Interbase(r)
driver};Dbname=xxxxxxxxxxxxxxg21:/data/xxxxxxxxxxxxxxxxxxx.gdb;CHARSET=ISO8859_1;PWD=xxxxxxxxxxxxxxxx;UID=xxxxxxxxxxxxxxxxxxxx"
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "SELECT NOME_LOGICO, FICHEIRO,MIME_TYPE FROM TCS_XIBFS Where
NOME_LOGICO = '" & FileName & "'", connStr, 2, 4
'Response.Clear()
'Response.ContentType = rs("MIME_TYPE")
'Response.BinaryWrite rs("FICHEIRO")
'Response.end
ReadBinaryData = rs("FICHEIRO")
rs.Close
Set rs = Nothing
End Function
Function WriteBinaryFile (BinaryData,FileName)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Type = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write BinaryData
response.write("<br>")
response.write(FileName)
response.write("<br>")
response.Write(BinaryData)
'Save binary data To disk
BinaryStream.SaveToFile "C:\f\" & FileName, adSaveCreateOverWrite
End Function
%>
</head>
<body>
<%
Dim Result
Response.write ReadBinaryData (Request.QueryString("doc"))
Result=WriteBinaryFile (ReadBinaryData
(Request.QueryString("doc")),"x.xls")
%>
the code below is properly retreiving binary data from a database and saving
it. but instead of saving at client machine is saving at the server machine.
what is wrong with my code ??
thank you
Pedro Leite From Portugal
------------------------------------
<%
Function ReadBinaryData (FileName)
' Connection String
Dim connStr
connStr = "Provider=MSDASQL.1;Extended
Properties=Driver={Firebird/Interbase(r)
driver};Dbname=xxxxxxxxxxxxxxg21:/data/xxxxxxxxxxxxxxxxxxx.gdb;CHARSET=ISO8859_1;PWD=xxxxxxxxxxxxxxxx;UID=xxxxxxxxxxxxxxxxxxxx"
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "SELECT NOME_LOGICO, FICHEIRO,MIME_TYPE FROM TCS_XIBFS Where
NOME_LOGICO = '" & FileName & "'", connStr, 2, 4
'Response.Clear()
'Response.ContentType = rs("MIME_TYPE")
'Response.BinaryWrite rs("FICHEIRO")
'Response.end
ReadBinaryData = rs("FICHEIRO")
rs.Close
Set rs = Nothing
End Function
Function WriteBinaryFile (BinaryData,FileName)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Type = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write BinaryData
response.write("<br>")
response.write(FileName)
response.write("<br>")
response.Write(BinaryData)
'Save binary data To disk
BinaryStream.SaveToFile "C:\f\" & FileName, adSaveCreateOverWrite
End Function
%>
</head>
<body>
<%
Dim Result
Response.write ReadBinaryData (Request.QueryString("doc"))
Result=WriteBinaryFile (ReadBinaryData
(Request.QueryString("doc")),"x.xls")
%>