1. 전체 프로그램 Source
					
      다음은 사원DB(EMP)에서 사번과 이름을 가져오는 예제 프로그램이다.

      <% 
       Set Cnn = Server.CreateObject("ADODB.Connection")
       Cnn.Open "DSN=yourDSN;UID=yourID;PWD=yourPWD"
       strSQL = "SELECT * FROM EMP"
       Set Rs = Cnn.Execute(strSQL)
      %>
      <table border=3 width=600>
      <tr>
         <td align = center>Emp. ID
         <td align = center>Emp. Name
      
      <%
         do until Rs.EOF
      %> 
      <tr>
         <td align = center><%=Rs("id")%>
         <td align = center><%=Rs("name")%>
      
      <%
         Rs.MoveNext
         Loop

         Rs.Close 
         set Rs = Nothing
         set Cnn = Nothing
      %>

  2. 주요 부분 설명

      1) Cnn.Open "DSN=yourDSN;UID=yourID;PWD=yourPWD"
            - yourDSN을 [ODBC 관리자]에서 설정한 이름으로 변경할 것
            - yourID, yourPWD는 사용하려는 시스템의 사용자ID와 비밀번호를 입력

      2) Set Rs = Cnn.Execute(strSQL)
            - 지정된 SQL 스트링의 결과를 레코드셋으로 가져온다

      3) do until Rs.EOF
            - 명령어 실행직후 Rs가 EOF이면 해당 결과가 없음을 의미
            - 결과 레코드셋의 마지막레코드를 읽고 나면 EOF가 참(True)이 됨

      4) Rs.MoveNext
            - 레코드셋 내의 다음 레코드로 이동

  3. 참  조

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

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