'**************************************
' Name: Database Class
' Description:Class for database connection and recordset handling. You need only few lines of code to retrieve, update or delete data in database.
(SQL server, or Access, MySQL)
' By: Mario Moravcik
'
'This code is copyrighted and has' limited warranties.Please see http://www.PlanetSourceCode.com/vb/scripts/ShowCode.asp?txtCodeId=9719&lngWId=4'for details.'**************************************

<% '-------- DATABASE CLASS ------------%>
<!--#include virtual="/includes/adovbs.inc"-->
<!--#include virtual="/includes/clsSystem_Database.asp"-->
2: Code sample
Public Function Get_DataTable(byval u_SQL)
	dim m_clsDB
	dim m_Rec
	dim m_result, i, iRow
	On Error Resume Next
	m_result= ""
	set m_clsDB = new clsSystem_Database
	'--- you can set this as default in the class initialization (Sub New), so you don't have to write it again and again
	'--- than you have only 2 lines of code
 	m_clsDB.Database = "data/data.mdb"
	m_clsDB.DataPathType = "server"
	call m_clsDB.openSnapshot(u_SQL, m_Rec)
	if m_clsDB.GetRecordCount(m_Rec) > 0 then
		m_result = "<table border=""1"" cellspacing=""0"" cellpadding=""2"">"
		i = 0 : iRow = 0
		do while not m_Rec.eof
			if iRow = 0 then
				'--- load tab header
			
				m_result = m_result & "<tr>"
				for i = 0 to m_Rec.Fields.Count - 1
				
					m_result = m_result & "<th>" & m_Rec(i).Name & "</th>"
		
				next
				m_result = m_result & "</tr>"
	
			end if	
m_result = m_result & "<tr>"
			for i = 0 to m_Rec.Fields.Count - 1
				
				m_result = m_result & "<td>" & m_Rec(i).Value & "</td>"
	
			next
			m_result = m_result & "</tr>"
			iRow = iRow + 1
			m_Rec.movenext
		loop
		m_result = m_result & "<table>"
	end if
	set m_Rec = nothing
	set m_clsDB = nothing
	Get_DataTable = m_result
End Function