vb script and sql

[missfunky]

Hi guys, i really need some help

I have a small SQL code that retreives data from a db table that tells me how many calls have been logged that week::

SELECT * FROM Issue
WHERE (IssueReported BETWEEN '05/04/2003 00:00:00' AND '05/09/2003 23:59:59')

is there some vbcode that will loop through the results (10) and put them in an html table to be displayed on page? I know this can be done in php, but i need to use VB script in my code, and instead of creating a table I want the script to do it for me, can this be done

If anyone can help, you would really help me out [:I]

[bastien]

might i suggest
www.4guysfromrolla.com
www.aspmessageboard.com
www.aspforums.com/forums

or

<% @language=VBScript%>
<!--include file="adovbs.inc"-->
<%
option explicit

dim conn, sql, objRS    'set the database vars
dim i,x, counter            'dim the counters
dim field


sql="SELECT * FROM Issue 
WHERE (IssueReported BETWEEN '05/04/2003 00:00:00' AND '05/09/2003 23:59:59')"

[b]'create and set the db connection[/b]
set conn = server.CreateObject ("adodb.connection")
conn="DSN=postcard;DATABASE=john;"

[b]'create the recordset[/b]
set objRS = server.CreateObject ("adodb.recordset")

objRS.Open sql, conn

response.write "<table>"

counter=objRS.fields.count     [b]'count the number of fields[/b]

[b]'print the table headers [/b]
for i=0 to (counter-1)   [b]'loop through the headers[/b]

 set field = fields.item(counter)
 response.write "<th>" & field & "</th>"

next

[b]loop through the recordset [/b]
do while not objRS.EOF

  response.write "<tr>"

  for x = 0 to (counter-1)

         response.write "<td>" & objRS(counter) & "</td>"

  next

  response.write "</tr>"
loop

response.write "</table>"

%>

hth