dim array
array = oRs.GetRows

oRS.close
conn.close
set oRS = nothing
set conn = nothing

response.write "

" & vbcrlf

kolumn=ubound(array,1)
rad=ubound(array,2)
FOR radraknare= 0 TO rad
response.write "" & vbcrlf
FOR kolumnraknare=0 to kolumn
thisfield=array(kolum,rad)
if isnull(thisfield) then
thisfield=shownull
end if
if trim(thisfield)="" then
thisfield=showblank
end if
response.write "" & vbcrlf
NEXT
response.write "" & vbcrlf
NEXT
response.write "

" response.write thisfield response.write "

"