纵向循环怎么放个表头？这里有代码，但是我没有表头
[code=VBScript][
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xuexiao.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from banji",conn,3,2
dim tmp,tmp1,tmp2,tmp3
tmp="<table>"
while not rs.eof
  tmp1=tmp1 & "<td>"&rs("shuxue")&"</td>"
  tmp2=tmp2 & "<td>"&rs("yuwen")&"</td>"
  tmp3=tmp3 & "<td>"&rs("huaxue")&"</td>"
rs.movenext
wend
tmp1="<tr>" & tmp1 & "</tr>"
tmp2="<tr>" & tmp2 & "</tr>"
tmp3="<tr>" & tmp3 & "</tr>"
tmp=tmp & tmp1 & tmp2 & tmp3
tmp=tmp & "</table>"
response.write tmp%>
/code]
这个代码是纵向循环的如下：
88 56 63
52 55 33
65 45 69
但是这样循环后没有纵向的表头，谁知道怎么放个表头，放了好多地方都不行，实现这个效果。
数学 88 56 63
语文 52 55 33
化学 65 45 69


------解决方案--------------------
tmp1="<tr><td>数学</td>" & tmp1 & "</tr>"
tmp2="<tr><td>语文</td>" & tmp2 & "</tr>"