htmlvar = ""
While Not recordset.EOF
htmlvar=htmlvar & "<h1>" & recordset("field") & "</h1>" & vnbCrLf
htmlvar=htmlvar & "<p>" & recordset("field2") & "</p>" & vnbCrLf
' etc etc
recordset.movenext()
Wend %>