[absconder]

bir SQL ifadesini aynen bastırmaya yarar.

clsRecordSet.ASP

<%
Class MG_clsRecordSet
	Public DSN	
	Public conn
	Public rs

	Private Sub Class_Initialize()
		HostPage = request.ServerVariables("SCRIPT_NAME")
		set conn = server.CreateObject("adodb.connection")
		set rs = server.CreateObject("adodb.recordset")
	end sub
	
	Private Sub Class_Terminate()
		if isObject(conn) then
			conn.close	
			set conn = nothing
		end if	
		if isObject(rs) then
			rs.close	
			set rs = nothing
		end if	
	end sub
	
	Public sub openDataBase(DDSN)
		DSN = DDSN
		conn.open DSN
	End Sub
	
	Public sub useOldConn (byRef oConn)
		conn = oConn
	End Sub

	Public sub closeDataBase
		if isObject(conn) then
			conn.close	
			set conn = nothing
		end if
	End Sub

	Public Property Get recCount
		dim retVal
		retVal = 0
		if isObject(rs) then
			retval = rs.recordcount
		end if
		recCount = retVal
	End Property

	sub buildRecordSet(byVal SQL, headerText)
		rs.open SQL, conn, 1
		response.write "<table border=1 cellpadding=1 cellspacing=0 style=border-collapse:collapse>"&_
			"<tr><td colspan=""" & rs.fields.count & """>" & headerText  & " [ "& recCount &" Adet Kayıt ]"& "</td></tr><tr>"
		for each i in rs.fields
			response.write "<td>" & i.name & "</td>"
		next
		response.write "</tr>"

		if not rs.eof then
			response.write "<tr>"
			while not rs.eof
				for each i in rs.fields
					response.write "<td>" & i.value & "</td>"
				next
				response.write "</tr>"
			rs.movenext
			wend
			rs.movefirst
		end if
		response.write "</table>"
		response.flush
	end sub
end Class
%>

test.ASP

<!--#INCLUDE FILE="clsRecordSet.ASP"-->
<%
Set oRS = New MG_clsRecordSet
'veritabanımızı tanımlıyoruz ve açıyoruz
oRS.openDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("vt.mdb")
'recordsetimizi açıyoruz
oRS.buildRecordSet "SELECT top 10 * FROM takvim", "Takvim"

Set bRS = New MG_clsRecordSet
'başka recordset açıyoruz. ilk connection açık olduğundan kullanabiliyoruz.
bRS.useOldConn oRS.conn
bRS.buildRecordSet "SELECT * FROM takvim ORDER BY tarih DESC", "Takvim"

' açılan recordsetler ayrıca kullanılabilir.

'açılan connecition kapatıyoruz.
oRS.closeDataBase
%>