Access database from store procedure

Hi All,
i need your help, my problem like this, how to get data that will displayed in table rows from store procedure..as example in col 1 row 1 i will display for name, col2 row 1 is nip and etc..can i get solve for this ...?
thanks

-----------------------------
This message is posted by [url]http://Asp.ForumsZone.com[/url]

[Bob Barrows]

[email]dfhian@telkom.net[/email] wrote:

> Hi All,
> i need your help, my problem like this, how to get data that will
> displayed in table rows from store procedure..as example in col 1 row
> 1 i will display for name, col2 row 1 is nip and etc..can i get solve
> for this ...? thanks
>
> -----------------------------
> This message is posted by [url]http://Asp.ForumsZone.com[/url]

One way is to use GetString. After opening your recordset, do this
(untested, may need to be tweaked):
dim sHTML
sHTML = rs.Getstring(2,,"</td></tr><tr><td>","</td></tr><tr><td>"
rs.close
set rs=nothing
cn.close
set cn=nothing
sHTML = left(sHTML,len(sHTML) - 8)
response.write "<table><tr><td>"
response.write sHTML
response.write "</table>"

If you want more control over formatting, or want to include the column
names, use GetRows. After opening the recordset:

dim ar, arNames, i, j
if not rs.eof then ar=rs.getrows
for = 0 to rs.Fields.count -1
arNames(i) = rs.Fields(1).name
next
'close and destroy the recordset and connection

If isarray(ar) then
response.write "<table>"
for i = 0 to ubound(ar,2)
for j = 0 to ubound(ar,1)
response.write "<tr><td>"
response.write arNames(i)
response.write "</td><td>"
response.write ar(j,i)
response.write "</td></tr>"
next
next
response.write "</table>"
else
response.write "no records"
end if

HTH,
Bob Barrows