%Response.Expires = -1%>
<%
If Request("Send") <> Empty Then
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "admin@lmshoes.com"
msg.MailServerPassword = "admin"
msg.From = Request.Form("email")
msg.FromName = Request.Form("company")
msg.AddRecipient "master@jinggong-china.com"
msg.Subject = "ORDER INFORMATION"
body="姓名:" & request.form("name")& vbcrlf &"邮编:" & request.form("name5")& vbcrlf &"传真:" & request.form("name2")& vbcrlf &"单位:" & request.form("name3")& vbcrlf &"电话:" & request.form("name7")& vbcrlf &"地址:" & request.form("name4")& vbcrlf &"E-mail:" & request.form("name6")& vbcrlf &"手机:" & request.form("name8")& vbcrlf &"订购产品的详细说明:" & request.form("note")
msg.Send ("mail.lmshoes.com")
set msg = nothing
Response.write "
"
'Response.Write "邮件已发送!"
end if
%>
精工机件