skewness and kurtosis:问一段在线发邮件的代码，哪儿错了？？

下面是一段在线发邮件的代码，那个"email"为什么不能自定义为发信息者的而只能规定一个邮箱？我想做的效果是，可以自动回复在线发信的人的邮箱，要怎么样设置？

<%@ Language = VBScript %>
<%
action=request("action")
if action="ok" then
'==================================================
' 参数设置
smtpserver = "smtp.163.com" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改
smtpuser = "doood" '与SMTP服务器对应的邮箱用户名，请修改
smtppwd = "XXXXXXX" '与SMTP服务器对应的邮箱密码，请修改
smtpemail = "dooo@163.com" 'SMTP服务器发信邮箱，请修改
myemail= "email" '用来接收邮件的邮箱，请修改,

可以与SMTP服务器发信邮箱不同
' 参数设置结束
'==================================================
sendname = trim(Request("name")) '发件人名字
semail = trim(Request("email")) '发件人邮箱
topic = trim(Request("topic"))主题
body = trim(Request("body"))内容

mailbody=mailbody &" "
mailbody=mailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR><TD>"
mailbody=mailbody &"以下是您发送过来的请求：<br>"

。。。。。。。

<td width="100" class=forumrow>请输入用户名：<td>
<td colspan="3" class=forumrow><input name=name type=text id="name" size=30>
<FONT color=#ff0000>*</FONT><FONT color=#0000FF>一定要填写4位以上<font color="#FF0000">字母</font>或<font color="#FF0000">数字</font>，不能留空</FONT></td>
</tr>
<tr>
<td width="100" class=forumrow>你的E-mail：td>
<td colspan="3" class=forumrow><input name=email type=text id="email" value="" size=30>
</td>
</tr>
<tr>
<td width="100" class=forumrow>邮件标题：</td>
<td colspan="3" class=forumrow><input name=topic type=text value="" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="100" class=forumrow>邮件内容：</td>
<td colspan="3" class=forumrow><textarea name="body" cols=80 rows=6 id="body">请你留言</textarea>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="100" class=forumrow></td>
<td height=20 colspan="3" class=forumrow>
<input type="Submit" value="发送邮件" name="Submit">
 
<input type="reset" name="Clear" value="重新填写">
</td>
</tr>
</table>