<% 
    dim m_Chilkat_CSV
    Private Function Chilkat_CSV
        if not isobject(m_Chilkat_CSV) then 
            set m_Chilkat_CSV= Server.CreateObject("Chilkat_9_5_0.Csv")
        end if
        set Chilkat_CSV = m_Chilkat_CSV
    End Function

    dim m_ReportManager
    Private Function ReportManager
        if not isobject(m_ReportManager) then
            set m_ReportManager = Server.CreateObject("ReportMan.ReportManX")
        end if
        set ReportManager = m_ReportManager
    End Function 

    dim m_FSO
    Private Function FSO
        if not isobject(m_FSO) then
            set m_FSO = server.CreateObject("Scripting.FileSystemObject")
        end if
        set FSO = m_FSO
    End Function
%>