<!-- #include file="../../DownControl/include/GauceDefine.inc"-->
<%
        '***************************************************************************
        '* Single DataSet Sample
        '* ´ÙÀ½ÀÇ ¿¹Á¦´Â ÆĶó¹ÌÅÍ Àü´Þ ¿¹Á¦ÀÔ´Ï´Ù.         
        '* ÀÚ¼¼ÇÑ »çÇ×Àº Developer guide¸¦ ÂüÁ¶
        '***************************************************************************
        'cf_check_login()
        
        Dim State
            State = 0
               
    
        Dim Func_Name
        
        'Set gauce = Server.CreateObject("GauceControlObj.2.5.1")
        
        
        'If IsObject(gauce) Then
                
                'set GauceDS = gauce.CreateDataSet ("output1", 30)                
                'set GauceDS2 = gauce.CreateDataSet ("output2", 30)
                
                'gauce.SetMessage "STEP-1", 0
                
                Set adoDataFactory = Server.CreateObject("mem_main.main01")
                
                'gauce.SetMessage "STEP-2", 0
        
                'if IsObject(adoDataFactory) and gauce.getParameter("Param1") <> "" then                        
                        '±×¸®µå¿¡ ¿¬°á
                        strQuery = ""
                        
                        'gauce.SetMessage "STEP-3", 0
                        
                        set adoRecordSet1 = adoDataFactory.R_MainJpGraph("5")
                        
                        
                        
                        'gauce.SetMessage "STEP-4", 0

                        for i = 0 to adoRecordSet1.Fields.Count-1                        
                                GauceDS.MakeDataSetInfo "s" & i, GAUCE_STRING , GAUCE_NORMAL_COL, 10
                        next
                        
                        if gauce.MakeColumn (GauceDS) = 0        then
                                GauceDS.SetRecordSet adoRecordSet1        
                        end if                
                        
                        set adoRecordSet1 = nothing
                
                        strQuery = ""
                        
                        set adoRecordSet1 = adoDataFactory.R_MainJpGraph("6")
        
                        'for i = 0 to adoRecordSet1.Fields.Count-1                        
                        '        GauceDS2.MakeDataSetInfo "s" & i, GAUCE_STRING , GAUCE_NORMAL_COL, 10
                        'next
                        
                        'if gauce.MakeColumn (GauceDS2) = 0        then
                        '        GauceDS2.SetRecordSet adoRecordSet1        
                        'end if                
                        
                        'gauce.SetMessage "STEP-5", 0
                        
                        set adoRecordSet1 = nothing
                
                'End If                
   'Else
   'End If
  
   'gauce.SetMessage "STEP-END", 0
  
    Set adoDataFactory = nothing          
        Set GauceDS = nothing
        'Set GauceDS2 = nothing
        'Set gauce = nothing
%>