<!-- #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
%>