3rd Annual China Gold & Precious Metals Summit 2008 - WHAT DOES THE FUTURE HOLD FOR GOLD AND PRECIOUS METALS? │IGVision
Email a friend or colleague
3rd Annual China Gold & Precious Metals Summit 2008 Shanghai,China
4th-5th, December
<%
'获取表单数据
fromname= Request.Form("fromname")
frommail= Request.Form("frommail")
toname= Request.Form("toname")
tomail= Request.Form("tomail")
mailtitle= Request.Form("mailtitle")
mailbody= Request.Form("mailbody")
'检查是否填写了表单
if tomail="" then
%>
<%
else
if frommail="" then
msg="You must fill the email address。"
else
'=============== 发 信 ================
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName = fromname
JMail.from = frommail
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
sendok=JMail.send(mailserver)
if sendok then
msg="Email has been submited"
else
msg="Email failed, you may sended a wrong email address " & _
"If you are sure the email is correct, there may be something worng of email system " & _
"Error,please contact the administrator"
end if
end if
%>