关于发送EMAIL内容，求教？？

[srgzf]

大侠们救命呀： 老板要我做的ASP系统，动态生成TABLE后，要发送到EMAIL，但我不知道
EMAIL内容怎么样才能得到TABLE呢，60分就这么多啦

[netWild]

使用免费的JMAIL组件，可以发送HTML格式的邮件
------------
<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>
------------

[srgzf]

"Mail Body" '邮件的内容
这个邮件内容怎么样才能改成我动态生成的TABLE呀

[netWild]

------------
<%
'你动态生成的Table代码
strMailBody="<table width='100%' height=500><tr><td>邮件内容</table>"



Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = strMailBody '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>
------------

[srgzf]

能举个例子吗，strMailBody="<table width='100%' height=500><tr><td>邮件内容</table>"
这条语句没有编译通过呢

[netWild]

dim strMailBody
strMailBody="<table width='100%' height=500><tr><td>邮件内容</table>"