creating table

ph0neman · January 22nd, 2008, 04:38 PM

Hello friends... :)

Can someone give me the quick and dirty of how to add a table so that my recordsets printout in a table?

<%
  Option Explicit
  Dim strConnect
%>


<HTML>
<HEAD>
<TITLE>ADO Command Object</TITLE>
</HEAD>
<BODY>

<%
  Dim objCommand, objRS
  Set objCommand = Server.CreateObject("ADODB.Command") ' create the Command object

  ' fill in the command properties
  objCommand.ActiveConnection = strConnect
  objCommand.CommandText = "booyaa"
  objCommand.CommandType = adCmdTable

  ' now execute the command, and capture the selected records in a recordset
  Set objRS = objCommand.Execute

  ' The Command object has done its job, so clean it up
  Set objCommand = Nothing

  ' now loop through the records

  While Not objRS.EOF
   Response.Write objRS("Artist") & ": " & objRS("Album") & ": " & objRS("Year") & "<BR>"
   objRS.MoveNext
  Wend

  ' now close and clean up
  objRS.Close
  Set objRS = Nothing
%>
</BODY>
</HTML>

Do I add the tags inside the While loop? Thank you

dparsons · January 22nd, 2008, 04:45 PM

You would do something like this:

Set objCommand = Nothing
' now loop through the records

%>
<table>
<%
While Not objRS.EOF
%>
<tr>
   <td><%=objRS("Artist")%> </td>
   <td><%=objRS("Album")%> </td>
   <td><%=objRS("Year")%> </td>
</tr>
<%
   objRS.MoveNext
  Wend
%>
</table>

hth

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

ph0neman · January 22nd, 2008, 05:00 PM

I'll tell you what Doug you are a machine! I have been messing with that for quite awhile, I thought I had it several times.

You make this stuff look easy... your code is clean and to the point. Thanks again for showing me the way.

I appreciate your help.
ph0neman

dparsons · January 22nd, 2008, 05:06 PM

Hey no problem, glad it worked out for you! =]

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========