<%
'[1] 변수 선언
Option Explicit
Dim objCon
Dim strSql
Dim objRs
'[2] 데이터베이스의 인스턴스 생성 : Connection 오브젝트
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] 데이터베이스 열기
objCon.Open("Provider=SQLOLEDB.1;Password=Memo;Persist Security Info=True;User ID=Memo;Initial Catalog=Memo;Data Source=(local)")
'[4] SQL문 실행
strSql = "Select * From Memo"
Set objRs = objCon.Execute(strSql)
If objRs.BOF Or objRs.EOF Then
    Response.Write("입력된 데이터가 없습니다.")
Else
    Call ShowRecordSet(objRs)
End If
'[5] 데이터베이스 닫기
objCon.Close()
'[6] 데이터베이스의 인스턴스 해제
Set objCon = Nothing
%>
<%
Sub ShowRecordSet(objRs)
    While Not objRs.EOF
        Response.Write(objRs.Fields("Name") & Space(1) & _
        objRs("Title") & Space(1) & _
        objRs.Fields(4) & "<br>")
        objRs.MoveNext()
    WEnd
End Sub
%>

관련 아티클 리스트
	제       목	파일	작성자	작성일	조회
	18. CDO(Collaboration Data Object) : 메일 전송(SMTP...	-	관리자	2000-12-27	7513
	17. ADO(ActivX Data Object) : 데이터베이스(DataBase) ...	-	관리자	2000-12-27	7268
	사이트갤럭시 업로드 컴포넌트 사용법 간단한 소스		관리자	2001-09-11	11798
	1. OLE DB를 사용한 데이터베이스 연결	-	레드플러스	2004-04-05	6829
	2. ADO 상수 사용법	-	레드플러스	2004-04-17	7323
	3. ADO 학습을 위한 Memo 테이블 생성(한줄 메모장 작성)		레드플러스	2004-04-17	6009
	4. UDL파일을 통한 데이터베이스 연결 문자열 생성	-	레드플러스	2004-04-18	6778
	Insert문.asp : ADO의 Connection객체를 사용한 Insert문 실행		레드플러스	2004-04-18	8068
	Update문.asp		레드플러스	2004-04-18	6532
	Delete문.asp		레드플러스	2004-04-18	6040
	Select문.asp		레드플러스	2004-04-18	6846
	Select문2.asp		레드플러스	2004-04-18	6308
	한줄메모장(글쓰기 폼) : MemoWrite.asp		레드플러스	2004-04-20	7143
	한줄메모장(글쓰기 처리) : MemoWriteProcess.asp		레드플러스	2004-04-20	6161
	한줄메모장(리스트) : MemoList.asp		레드플러스	2004-04-20	6975
	한줄메모장(지우기 폼) : MemoDelete.asp		레드플러스	2004-04-20	6146
	한줄메모장(지우기 처리) : MemoDeleteProcess.asp		레드플러스	2004-04-20	6800
	16. ASP사용자를 위한 SQL문	-	관리자	2000-12-27	9043