<%
myemail ="lanxiang@zjlanxiang.com"
myname ="浙江蓝翔机电设备制造有限公司"
smtpserver ="mx620.now.net.cn"
smtpuser ="postmaster@zjlanxiang.com"
smtppwd ="mtu4nt"
smtpemail ="postmaster@zjlanxiang.com"
tsubject =Request("textfield1")
temail =Request("textfield2")
tbody =Request("textfield3")
tcompany =Request("textfield4")
tname =Request("textfield5")
tphone =Request("textfield6")
tadd =Request("textfield7")
tnum =Request("textfield8")
if tname <> "" and temail <> "" then
set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.Charset ="gb2312"
if smtpemail <> "" then
jmail.From ="postmaster@zjlanxiang.com"
else
jmail.From =temail
end if
jmail.FromName =tname
jmail.ReplyTo =temail
jmail.Subject ="(定单)来自网站：" & tsubject
jmail.AddRecipient myemail,myname
jmail.Body =tcompany & vbcrlf & vbcrlf & tbody & vbcrlf & vbcrlf & tphone & vbcrlf & vbcrlf & tadd & vbcrlf & vbcrlf & tnum
jmail.MailServerUserName =smtpuser
jmail.MailServerPassWord =smtppwd
isgo=jmail.Send(smtpserver)
%>
<%if isgo then%>
定单已经发送成功，我们会尽快给您回复。
<%else%>
定单发送错误，请检查您填写的邮箱是否正确。
<%
end if
jmail.Close
set jmail=nothing
end if
%>
