<% '=================================================== ' 변수 설정 '=================================================== Option Explicit dim rs dim doc dim cn dim rqs dim cnn_string dim sql_string '=================================================== ' 객체 생성 '=================================================== set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") set doc = server.CreateObject("MSXML2.DomDocument") '=================================================== ' 연결문자 지정 '=================================================== cnn_string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\wwwRoot\Site\PostLabel\Sample.mdb;Persist Security Info=False;" '=================================================== ' 데이터베이스 연결 '=================================================== cn.Open cnn_string '=================================================== ' 커서 형태 지정 (adUseClient=3) '=================================================== rs.CursorLocation = 3 '=================================================== ' sql문 지정 '=================================================== sql_string = "select * from customers where City like '%" & Request("city") & "%'" '=================================================== ' 아래의 내용은 특별한 경우가 아니면 ' 변경하지 않는 것이 좋습니다. '=================================================== '=================================================== ' 레코드셋 얻기 (adOpenKeyset, adLockBatchOptimistic) '=================================================== rs.Open sql_string, cn , 1, 4 '=================================================== ' 레코드셋을 XML 형식의 DOMDoc으로 저장합니다. ' 이때 키워드로 adPersistXML을 사용하려면 ' ADOVBS.INC 파일을 포함시켜야 합니다. ' 그외의 경우는 그 값을 1로 사용하십시오! '=================================================== rs.Save doc, 1 'adPersistXML '=================================================== ' 응답 속성 설정 '=================================================== Response.ContentType = "text/xml" '=================================================== ' 출력 '=================================================== Response.Write "<?xml version=""1.0"" encoding=""EUC-KR"" ?>" & vbcrlf '=================================================== ' 응답을 위한 DOMDoc으로부터 XML 전송 '=================================================== 'Response.Write doc.xml %> <root> <%do while not rs.eof%> <받는사람> <우편번호><%=rs("PostalCode")%></우편번호> <주소><%=rs("City") & " " & rs("Address")%> </주소> <회사명><%=rs("CompanyName")%></회사명> <담당자명><%=rs("ContactName")%></담당자명> <담당자직책명><%=rs("ContactTitle")%></담당자직책명> </받는사람> <%rs.movenext%> <%loop%> </root> <% '=================================================== ' 객체 제거 '=================================================== set doc=nothing rs.Close set rs=nothing cn.Close set cn=nothing %>