ADO-ODBC

Development Platform:

Visual C++

RecordsetToTable.asp：Code Content

							<%
Function RecordsetToTable (oRec)
	Dim oFld
	Dim sTable
	DIM NBSPACE
	NBSPACE = Chr(160)
	sTable = "<TABLE BORDER=1><THEAD><TR>"
	For Each oFld In oRec.Fields
		sTable =  sTable & "<TD>" & oFld.Name & "</TD>"
	Next
	sTable =  sTable & "</TR></THEAD>" & _
		"<TBODY><TR><TD>" & _
		oRec.GetString (,,"</TD><TD>", "</TD></TR><TR><TD>", NBSPACE) & _
		"</TD></TR></TBODY></TABLE>"
	RecordsetToTable = sTable
End Function
%>

						