帮我看看，怎样把表单内的数据导出到excel

<form name="form1" id="form1" method="post" action="">
              <textarea name="textarea" cols="130" rows="18" ><% dim rsk,sqlk,i,k
set rsk= Server.CreateObject("adodb.recordset")
k=session("k")
for i=1 to k
sqlk="select * from productinfo where maijia='"&sessname&"'and maichu='0' order by productid desc"
rsk.open sqlk,conn,3,3
[bo] response.write(i&"        "&rsk("code")&" " & vbcrlf )[/bo]
//想把这里循环输出的数据可以保存到excel但不会做，求指点。。。。。
              rsk.movenext        
              next  
              response.write("成功!!!!!!!!!"&vbcrlf)
              rsk.close
set rsk=nothing
  %>
</textarea>
            </form>