1. ASP Source 
					
      Set Cnn = Server.CreateObject("ADODB.Connection")
      Set Cmd = Server.CreateObject("ADODB.Command")
      Set Rs  = Server.CreateObject("ADODB.Recordset")

      strCnn = "PROVIDER=MSDASQL;dsn=yourDSN;uid=yourID;pwd=yourPWD;"
      With Cnn
           .ConnectionString = strCnn
           .CursorLocation = adUseClient
           .Open
      End With

      strSP = "{call qgpl.sp_noparm()}"
      Cmd.CommandType = adCmdStoredProc

      With Rs
           .Source = strSP
           .ActiveConnection = Cnn
           .CursorType = adOpenDynamic
           .LockType = adLockOptimistic
           .Open
      End With

      While Not Rs.EOF
            Response.Write "사원이름 --> " & Rs(0) & "<br>"
            Rs.MoveNext
      Wend   

      Rs.Close 
      Cnn.Close
      set Rs  = nothing
      set Cmd = nothing
      set Cnn = nothing

  2. 주요 부분 설명

      1) strCnn = "PROVIDER=MSDASQL;dsn=yourDSN;uid=yourID;pwd=yourPWD;"
            - yourDSN을 [ODBC 관리자]에서 설정한 이름으로 변경할 것
            - 저장프로시져 사용시에는 'MSDASQL' 사용

      2) strSP = "{call yourLIB.yourPROC()}"
            - 사용할 저장프로시져의 이름과 저장되어 있는 라이브러리를 지정

      3) Cmd.CommandType = adCmdStoredProc
            - 실행할 대상이 저장프로시져 임을 정의

      4) Response.Write "사원이름 --> " & Rs(0) & "<br>"
            - 결과값을 화면에 인쇄하는 부분으로
            - RS(0)는 결과 레코드의 첫번째 필드값을 의미

  3. 참  조

      1) 전체소스는 ASP 파일이므로 우측의 링크를 '다른이름으로 대상저장' 하세요  [Source Down]

      2) 참고자료 SC24-5183-00  AS/400 OLE DB Support