Edited by SomeNewKid. Please post code between <code> and </code> tags.

---

I'm using the Response Filter Class in MS KB article 811162 to generate a static htm page from an asp.net template page being filled from a database. The generated static templates are then streamed into FreeTextbox editor for user edits. I want to use a variable for the filename since each user will need a separate temporary template page. The system works fine for a hardcoded filename like addendum.htm but yields the folllowing error when I try to use a variable as the filename. How can I solve this? Thanks for your help, Lou -------------- Compilation Error Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. Compiler Error Message: BC30469: Reference to a non-shared member requires an object reference. Source Error: Line 17: Line 18: Dim strEmployeeKey as string Line 19: strEmployeeKey=Session("EmployeeKey") Line 20: Line 21: ************************

 Public Class ResponseFilter
                Inherits Stream
                Dim fs As FileStream
                Dim m_sink As Stream
                Dim m_position As Long




                Sub New(ByVal sink As Stream)
                

                Dim strEmployeeKey as string
                strEmployeeKey=Session("EmployeeKey")




                 m_sink = sink
     

                 fs = New FileStream("D:\Program Files\MEBIM\\Addendum"  &  strEmployeeKey & ".htm" ", FileMode.OpenOrCreate, FileAccess.Write)
                End Sub


                Public Overrides ReadOnly Property CanRead() As Boolean
                 Get
                  Return True
                 End Get
                End Property


                Public Overrides ReadOnly Property CanSeek() As Boolean
                 Get
                  Return False
                 End Get


                End Property


                Public Overrides ReadOnly Property CanWrite() As Boolean
                 Get
                  Return False
                 End Get
                End Property


                Public Overrides ReadOnly Property Length() As Long
                 Get
                  Return 0
                 End Get
                End Property


                Public Overrides Property Position() As Long
                 Get
                  Return m_position
                 End Get
                 Set(ByVal Value As Long)
                  m_position = Value
                 End Set
                End Property


                Public Overrides Function Seek(ByVal offset As Long, ByVal direction As SeekOrigin) As Long
                 Return 0
                End Function


                Public Overrides Sub SetLength(ByVal length As Long)
                 m_sink.SetLength(length)
                End Sub


                Public Overrides Sub Close()
                 m_sink.Close()
                 fs.Close()
                End Sub


                Public Overrides Sub Flush()
                 m_sink.Flush()
                End Sub


                Public Overrides Function Read(ByVal buffer() As Byte, ByVal offset As Int32, ByVal count As Int32) As Int32
                 Return m_sink.Read(buffer, offset, count)
                End Function


                Public Overrides Sub Write(ByVal buffer() As Byte, ByVal offset As Int32, ByVal count As Int32)
                 ' Write out the response to the browser.
                 m_sink.Write(buffer, 0, count)
                 m_sink.close


                 ' Write out the response to the file.
                 fs.Write(buffer, 0, count)
                ' fs.close
                End Sub
              End Class


              Sub Page_Init(Sender As Object, E As EventArgs)
             Response.Filter = New ResponseFilter(Response.Filter)
              



              End Sub