<% Option Explicit Dim objCon: Dim objRs Set objCon = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.RecordSet") objCon.Open("Provider=SQLOLEDB.1;Password=memo;Persist Security Info=True;User ID=Memo;Initial Catalog=Memo;Data Source=(local)") '//Open(SQL문, 커넥션, 커서, 락, 옵션) objRs.Open "Select * From Memo Order By Num Desc", objCon If objRs.BOF Or objRs.EOF Then Response.Write("데이터가 없습니다.") Else Call ShowRecordSet(objRs) End If objCon.Close() Set objCon = Nothing %> <% Sub ShowRecordSet(objRs) %>

간단한 한줄 메모장

<% While Not objRs.EOF %> <% objRs.MoveNext() WEnd %>

번호	이름	메모	작성일
"> <%=objRs.Fields("Num")%>	<%=objRs("Name")%>	<%=objRs.Fields(3)%>	<%=objRs(4)%>

<% End Sub %>