The following code converts an ADO recordset into an HTML table by using the GetString function of the recordset. This method does not involve the looping or MoveNext method; it directly converts the recordset into the HTML table.
This code also demonstrates how we can create an HTML table column heading from the Fields Collection of a recordset.
<!-- #INCLUDE Virtual="\ADOVBS.INC" -->
<html>
<head>
<title>
</title>
</head>
<body>
<%
set rs=server.createobject("ADODB.RecordSet")
rs.ActiveConnection="Provider=SQLOLEDB;
Database=USTEST;Server=Softech_sql;UID=sa;PWD=;"
rs.CursorLocation=adUseClient
rs.CursorType=adOpenStatic
rs.LockType=adLockOptimistic
rs.Source="Select ItMas_Id AS 'Item Id',
ItMas_Name AS 'Item Name',
ItMas_Code AS 'Item Code',
PGrpM_Name AS 'Group Name'
from ItemMas Inner Join PGrp_Mas
on ItemMas.Itmas_pgrpid=Pgrp_Mas.Pgrpm_id
where pgrpm_id=33"
rs.Open
response.write "<Table Border=1><tr>"
for each f in rs.fields
response.write "<td>" & f.name & "</td>"
next
response.write "</tr>"
response.write "<tr><td>"
response.write rs.getstring(,50,"</td><td>",
"</td></tr><TR><TD>")
response.write "</table>"
%>
</body>
</html>