Is it that you do not know where to start? If so, read the ASP guide on http://www.w3schools.com to save us having to explain it again. Or use Google.
It would be something like this
'create and open the rs
while not(rs.eof or rs.bof)
for x=1 to 4
if x=1 then
response.write rs.fields(1).name & " "
response.write rs.fields(x).value & "<br />"
'close rs and set to nothing