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

          strCnn = "PROVIDER=MSDASQL;dsn=your_dsn;uid=your_id;pwd=your_pwd;"
          With Cnn
               .ConnectionString = strCnn
               .CursorLocation = adUseClient
               .Open
          End With

          Set Cmd.ActiveConnection = Cnn
          Cmd.CommandType = adCmdStoredProc
          Cmd.CommandText = "yourLIB.yourPROC"     ' Lib_name.Proc_name 명시
          Cmd.Parameters.Append Cmd.CreateParameter("empno", adChar, adParamInput, 10, search_code)
          Cmd.Parameters.Append Cmd.CreateParameter("empnm", adChar, adParamOutput, 10, " ")
          Rs.CursorType = adOpenDynamic
          Rs.LockType = adLockOptimistic
          Set Rs = Cmd.Execute

          Response.Write "<font color=red size=3>Message : </font>"
          Response.Write (Cmd.Parameters("empnm"))

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

      If Request("in_empno") <> "" then
         Search_name
      Else 
         Response.Write "<font color=red size=3>Message : 사원번호를 입력하시오 . . .</font>"
      End if

  2. 주요 부분 설명

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

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

      3) Cmd.CommandText = "yourLIB.yourPROC"
            - 실행할 저장프로시져의 라이브러리와 이름을 지정

      4) Cmd.Parameters.Append Cmd.CreateParameter("empno", . . .
            - 저장프로시져에서 사용할 파라미터를 생성하고 값을 지정
            - 파라미터의 형식(문자, 정수 등) 및 입출력구분 등을 정의

      5) If Request("in_empno") <> "" then
            - 이름을 찾는 부분을 SUB으로 작성하고
            - 사번이 입력되었을 때만 실행하도록 한다

  3. 참  조

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

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