<% sendto="halinpipe@halinpipe.cn" strsubject="Contact" Subject=request.form("Subject") Name=request.form("Name") Company=request.form("Company") Address=request.form("Address") City=request.form("City") State=request.form("State") Zip=request.form("Zip") Country=request.form("Country") Tel=request.form("Tel") Fax=request.form("Fax") Email=request.form("Email") Message=request.form("Message") if Subject<>"" then str="Subject: "+Subject+"
" str=str+"Name: "+Name+"
" str=str+"Company: "+Company+"
" str=str+"Address: "+Address+"
" str=str+"City: "+City+"
" str=str+"State/Province:"+State+"
" str=str+"Zip/Postal code:"+Zip+"
" str=str+"Country: "+Country+"
" str=str+"Tel: "+Tel+"
" str=str+"Fax: "+Fax+"
" str=str+"Email: "+Email+"
" str=str+"Message: "+Message+"
" strquery=str Dim JMail Set JMail = Server.CreateObject("JMail.Message") JMail.silent=true JMail.Logging = True JMail.Charset = "gb2312" JMail.MailServerUserName = "newshunxiang@zszhenhai.com" JMail.MailServerPassword = "newshunxiang" JMail.ContentType = "text/html" JMail.Priority = 2 JMail.From = "newshunxiang@zszhenhai.com" JMail.FromName = "Contact" JMail.AddRecipient sendto JMail.Subject = strsubject JMail.Body = strquery JMail.Send ("mail.zszhenhai.com") ShowMsg " Send email okŁ¬ThanksŁˇ ","" set objmail=nothing end if Function ShowMsg(MsgContent, URL) Response.write("") End Function %>
*
*
Subject:
*
Name:
*
Company:
*
Address:
City:
State/Province:
Zip/Postal
code:
*
Country:
*
Tel:
*
Fax:
*
E-mail:
*
Verification Code
Business Type:
Importer
Wholesaler
Agent
End User
Manufacturer
ˇˇ
*
Message:
ˇˇ
Copyright © 2008 Halin Pipe Corp.. All rights reserved.
blog
