现在一ASP问题请教——提交表单？100相送哦！

现在一ASP问题请教:
做一个邮件在线发送邮件的程序,参考网址:http://211.99.204.86/support.htm;

功能描述:按要求填好表单后,点击递交,将会把客户的留言内容,包括E-mail等作息发送到指定邮箱中.

如果存放到数据库里，我知道怎么做，可是要提交到指定的邮箱里，如何做呢？
请教你们？谢谢！
---------------------------------------------------------------

function sendmail(byval mailFrom,mailto,mailsubject,mailbody) '来自,接收人,主题,邮件内容(支持HTML格式)
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = mailFrom
myMail.To = mailTo
myMail.cc = mailCC
myMail.Subject = mailSubject
myMail.Body = mailBody
myMail.Send
Set myMail = Nothing
sendmail="邮件已发送至您注册的信箱：

1<font color="red"> "&amp; mailto &amp;"</font>

，请登录您的信箱查询邮件内容"
end function

---------------------------------------------------------------

根据英文，各自的方法，属性应该都可以看得懂

 1   
 2sub Jmail(email)   
 3Dim JMail,SendMail   
 4Set JMail=Server.CreateObject("JMail.SMTPMail")   
 5JMail.Logging=True   
 6JMail.Charset="gb2312"   
 7JMail.ContentType = "text/html"   
 8JMail.ServerAddress=SMTPServer   
 9JMail.Sender=SystemEmail   
10JMail.Subject=topic   
11JMail.Body=mailbody   
12JMail.AddRecipient email   
13JMail.Priority=3   
14JMail.Execute   
15Set JMail=nothing   
16if err then   
17SendMail=err.description   
18err.clear   
19else   
20SendMail="OK"   
21end if   
22end sub   
23  
24sub Cdonts(email)   
25dim objCDOMail   
26Set objCDOMail = Server.CreateObject("CDONTS.NewMail")   
27objCDOMail.From =SystemEmail   
28objCDOMail.To =email   
29objCDOMail.Subject =topic   
30objCDOMail.BodyFormat = 0   
31objCDOMail.MailFormat = 0   
32objCDOMail.Body =mailbody   
33objCDOMail.Send   
34Set objCDOMail = Nothing   
35if err then   
36SendMail=err.description   
37err.clear   
38else   
39SendMail="OK"   
40end if   
41end sub   
42  
43sub aspemail(email)   
44Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")   
45recipient=email   
46sender=SystemEmail   
47subject=topic   
48message=mailbody   
49mailserver=SMTPServer   
50result=mailer.SendMail(mailserver, recipient, sender, subject, message)   
51if err then   
52SendMail=err.description   
53err.clear   
54else   
55SendMail="OK"   
56end if   
57end sub

request提交的信息

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =""&FromEmail&""
objCDOMail.To =""&tomail&""
objCDOMail.Subject =""&Title&""
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =""&Content&""
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendResult=0
e=e+1
else
SendResult=1
s=s+1
end if

---------------------------------------------------------------

我是用

 1<form>标签做的，你看看对你有帮助吗？   
 2<form action="mailto:[email protected]" enctype="text/plain" method="post">
 3</form>   
 4\---------------------------------------------------------------   
 5  
 6Dim subject,mytype,name,email,tel,from,add,content   
 7subject=cstr(Request("subject"))   
 8mytype=cstr(Request("mytype"))   
 9name=cstr(Request("name"))   
10email=cstr(Request("email"))   
11tel=cstr(Request("tel"))   
12from=cstr(Request("from"))   
13add=cstr(Request("add"))   
14content=cstr(Request("content"))   
15Dim Jmail   
16Set Jmail=server.createobject("Jmail.Message")   
17Jmail.Charset = "gb2312"   
18Jmail.Logging=true   
19Jmail.Silent = true   
20Jmail.Priority = 3   
21Jmail.From = "xxx@xxx"   
22Jmail.FromName = "name"   
23Jmail.MailServerUserName = "xxx@xxx"   
24Jmail.MailServerPassword = "xxx"   
25Jmail.AddRecipient "xxx@xxx"   
26Jmail.Subject = subject   
27Jmail.Body = content   
28  
29if not Jmail.Send("smtpserver") then   
30Response.Redirect("send_failed.htm")   
31else   
32Response.Redirect("send_success.htm")   
33JMail.close   
34Set JMail=nothing   
35end if   
36%&gt;   
37\---------------------------------------------------------------   
38  
39jmail只要到网上下载一个程序就可以了..它也是发信的组件,,你可以在WWW.GOOGLE.COM搜索最新的JMAIL,,下载最新的程序就可以运行阿信的程序了.```
40   
41sub Jmail(email)   
42Dim JMail,SendMail   
43Set JMail=Server.CreateObject("JMail.SMTPMail")   
44JMail.Logging=True   
45JMail.Charset="gb2312"   
46JMail.ContentType = "text/html"   
47JMail.ServerAddress=SMTPServer   
48JMail.Sender=SystemEmail   
49JMail.Subject=topic   
50JMail.Body=mailbody   
51JMail.AddRecipient email   
52JMail.Priority=3   
53JMail.Execute   
54Set JMail=nothing   
55if err then   
56SendMail=err.description   
57err.clear   
58else   
59SendMail="OK"   
60end if   
61end sub

或者:

 1   
 2Dim subject,mytype,name,email,tel,from,add,content   
 3subject=cstr(Request("subject"))   
 4mytype=cstr(Request("mytype"))   
 5name=cstr(Request("name"))   
 6email=cstr(Request("email"))   
 7tel=cstr(Request("tel"))   
 8from=cstr(Request("from"))   
 9add=cstr(Request("add"))   
10content=cstr(Request("content"))   
11Dim Jmail   
12Set Jmail=server.createobject("Jmail.Message")   
13Jmail.Charset = "gb2312"   
14Jmail.Logging=true   
15Jmail.Silent = true   
16Jmail.Priority = 3   
17Jmail.From = "xxx@xxx"   
18Jmail.FromName = "name"   
19Jmail.MailServerUserName = "xxx@xxx"   
20Jmail.MailServerPassword = "xxx"   
21Jmail.AddRecipient "xxx@xxx"   
22Jmail.Subject = subject   
23Jmail.Body = content   
24  
25if not Jmail.Send("smtpserver") then   
26Response.Redirect("send_failed.htm")   
27else   
28Response.Redirect("send_success.htm")   
29JMail.close   
30Set JMail=nothing   
31end if   
32
33```</form>