Function RecordsetToTable(rs) 'As String
Dim strTable
Dim intField 'As Integer
Dim strBrowserType 'As String
	If Not(rs.EOF And rs.BOF) Then
		rs.MoveLast
		rs.MoveFirst
		'First send out the column headers
		strTable = "<table border=1>" & vbCrLf & "<tr>" 
		For intField = 0 to rs.Fields.Count - 1
			strTable = strTable & "<th bgcolor=#CCCCCC><b>" & rs.Fields(intField).Name & "</b></th>"
		Next
		strTable = strTable & "</tr>" & vbCrLf
		'Now send out the table body
		Do until rs.EOF
			strTable = strTable & "<tr>"
			For intField = 0 to rs.Fields.Count - 1
				strTable = strTable & "<td>" & rs.Fields(intField).Value & "</td>"
			Next
			strTable = strTable & "</tr>" & vbCrLf
			rs.MoveNext
		Loop
		strTable = strTable & "</table>"
		RecordsetToTable = strTable
	Else
		RecordsetToTable = ""
	End If
End Function