使用例
<%
Dim objConn, objRs, i
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from test"
'レコード抽出
objRs.Filter = "name = '渡部'"
Do Until objRS.EOF
For i=0 to objRS.Fields.Count - 1
Response.Write "名前 : " & objRS("名前")
Next
objRS.MoveNext
Loop
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>