<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
sub showrs(inputrs)
dim mColumn,mValue
If not inputrs.eof then
response.write "<table border=""1""><tr>"
for each mColumn in inputrs.fields
response.write "<td><b>" & column.name & "</B></TD>"
next
response.write "</tr>"
do until inputrs.eof
response.wtite "<tr>"
for each mColumn in inputrs.fields
mValue=mColumn.value
if isnull(mValue) then
mValue="<NULL>"
end if
if trim(mValue)="" then
mValue=" "
end if
response.write "<td valign=""top"">" & mValue & "</td>"
next
response.write "</tr>"
inputrs.movenext
loop
response.write "</table>"
end if
end sub
</font>
------------------
------------------- What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle
[Redigerat av emission den 07 nov 2000]
138 ms totalt · 3 externa anrop · v20260731065814-full.8a4e7caf