写入邮件内容中去

兲外☆飛唬

<%
title="<table width=600 border=1 align=center cellpadding=5 cellspacing=1><tr><td>商品名称</td><td>商品品牌</td><td>适用车型</td><td>商品规格</td><td>数量</td><td>单位</td><td>备注</td></tr>"
response.write(title)
dim u
u=0
do while u<=15
u=u+1
'---------------------------------------------------------------------------
tcount="<tr><td>"&trim(request.form("pro_name"&u))&"</td><td>"&trim(request.form("pro_pai"&u))&"</td><td>"&trim(request.form("pro_type"&u))&"</td><td>"&trim(request.form("pro_ge"&u))&"</td><td>"&trim(request.form("pro_int"&u))&"</td><td>"&trim(request.form("pro_company"&u))&"</td><td>"&trim(request.form("pro_con"&u))&"</td><tr/>"
loop
response.end
tbotten="</table>"
response.write(tbotten)
response.end
tindex=title&tcount&tbotten
response.write(tindex)
response.end

'----------------------------------------------------------------------------------------
username=trim(request.form("username"))
usercompany=trim(request.form("usercompany"))
usersix=request.form("usersix")
usertel=trim(request.form("usertel"))
userfax=trim(request.form("userfax"))
usertell=trim(request.form("usertell"))
useradd=trim(request.form("useradd"))
usermail=trim(request.form("usermail"))
usercount=trim(request.form("usercount"))
Call SendMail(mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom)
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
MailtoAddress="haorandan@south88.com"
mailtoname="李先生"
subject="在线订单"
mailbody="<hr><b>"&"公司名称："&usercompany&"</b><p>"&"收货人:"&username&"&nbsp;&nbsp;"&"性别:"&usersix&"<p>"&"送货地址:"&useradd&"&nbsp;&nbsp;"&"联系电话:"&usertel&"<p>"&"联系传真:"&userfax&"&nbsp;&nbsp;"&"电子邮箱:"&usermail&"<p>"&"联系手机:"&usertell&"&nbsp;&nbsp;"&"留言:"&usercount&"<hr>"&"<p>"&"请不要直接回复，请回复到"&usermail&"<p><hr>"&"商品参数:"&tindex
fromname=username
mailfrom="CCCCCCCC@163.com"

'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "CCCCCCCC" '登录用户名
JMail.MailServerPassWord = "XXXXXXXXXX" '登录密码
JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
response.write("<script language=javascript>alert('反馈信息已发出，谢谢你的提交，再见！');window.history.back();</script>")
response.end

rs.close
set rs=nothing
conn.close
set conn=nothing
%>




谁帮我把红名部分写好一下，现在的问题是提交的表单里面100多个input 现在只可能取到u=15时的信息 要怎么写才可以把所有信息都写入邮件内容中去