Unable to open attachment

[Seok Bee]

Dear Experts,

In my web application, I'm having a button to view an attachment. After I
retrieve the record from database (Ms. Access), I have a button to view the
attachment (if there is any). The button work fine when I run it at my local
machine. However, when I moved all the programs over to the server, I am
unable to view the attachment, although I have the file physically at the
server. The error message that I got is:

------------------------------------------------------------------------
Server Error in '/ITRS_Testing' Application.
--------------------------------------------------------------------------------

Operation is not allowed when the object is closed.
Description: An unhandled exception occurred during the execution of the
current web request. Please review the stack trace for more information about
the error and where it originated in the code.

Exception Details: System.Runtime. InteropServices .COMException: Operation is
not allowed when the object is closed.

Source Error:

Line 26:
Line 27: ' This should be the full path and filename to save the
file on the client....
Line 28: objStream.SaveT oFile(strFilena me, 2) ' adSaveCreateOve rWrite
Line 29: objStream.Close ()
Line 30: objStream = Nothing

Source File: D:\ITRS_Testing \ITRS\EnquiryRe sult.aspx Line: 28

Stack Trace:

[COMException (0x800a0e78): Operation is not allowed when the object is
closed.]

Microsoft.Visua lBasic.Compiler Services.LateBi nding.InternalL ateCall(Object o,
Type objType, String name, Object[] args, String[] paramnames, Boolean[]
CopyBack, Boolean IgnoreReturn) +776
Microsoft.Visua lBasic.Compiler Services.NewLat eBinding.LateCa ll(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean
IgnoreReturn) +365640
ASP.itrs_enquir yresult_aspx.Vi ewDoc(Object Source, EventArgs E) in
D:\ITRS_Testing \ITRS\EnquiryRe sult.aspx:28
System.Web.UI.W ebControls.Butt on.OnClick(Even tArgs e) +105
System.Web.UI.W ebControls.Butt on.RaisePostBac kEvent(String eventArgument)
+107

System.Web.UI.W ebControls.Butt on.System.Web.U I.IPostBackEven tHandler.RaiseP ostBackEvent(St ring eventArgument) +7
System.Web.UI.P age.RaisePostBa ckEvent(IPostBa ckEventHandler
sourceControl, String eventArgument) +11
System.Web.UI.P age.RaisePostBa ckEvent(NameVal ueCollection postData) +33
System.Web.UI.P age.ProcessRequ estMain(Boolean
includeStagesBe foreAsyncPoint, Boolean includeStagesAf terAsyncPoint) +5102

--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:2.0.507 27.42; ASP.NET
Version:2.0.507 27.42
----------------------------------------------------------------------------------

The code in my program is as follow:

Public Sub ViewDoc(ByVal Source As Object, ByVal E As EventArgs)
Dim strFilename As String
'============== =============== =============== =============== ====
' Example using ADODB Stream Object to load resource from server
' and deposit in specified directory on client, using client-side
' script
' Peter Bromberg
'============== =============== =============== =============== =====
' Don't need the TypeLib METADATA at the top if you specify the
constants by numeric value instead of by name

' Set up an ADO Stream ....
Dim objStream
objStream = CreateObject("A DODB.Stream")
objStream.Type = 1 ' adTypeBinary
' The following should be the absolute URL to the file on the
server.....
objStream.Open( "URL=http://Teklang1/ITRS_Testing/ITRS/Attachments/"
& Trim(txtAttachm ent.Text))
'objStream.Open ("//Teklang1/ITRS_Testing/ITRS/Attachments/" &
Trim(txtAttachm ent.Text))

Dim objFSO
objFSO = Server.CreateOb ject("Scripting .FileSystemObje ct")
strFilename = objFSO.getSpeci alFolder(2).pat h & "\" &
Trim(txtAttachm ent.Text)

' This should be the full path and filename to save the file on the
client....
objStream.SaveT oFile(strFilena me, 2) ' adSaveCreateOve rWrite
objStream.Close ()
objStream = Nothing
' Now we'll "run" the file....
Dim AttachFile As System.IO.FileI nfo = New
System.IO.FileI nfo(strFilename )
Response.Clear( )
Response.AddHea der("Content-Disposition", "attachment ; filename=" &
AttachFile.Name )
Response.AddHea der("Content-Length", AttachFile.Leng th.ToString())
Response.Conten tType = "applicatio n/octet-stream"
Response.WriteF ile(AttachFile. FullName)
Response.End()
End Sub
----------------------------------------------------------------------

Please advise where is the mistake that I have made. Many thanks in advance.

Regards,
SB