New Page 3

<% SUB sendMail( fromWho, toWho, Subject, Body ) DIM myMail SET myMail = Server.CreateObject("CDONTS.Newmail") myMail.From = fromWho myMail.To = toWho myMail.Subject ="定单" myMail.Body = Body myMail.Send SET myMail = Nothing END SUB fromWho = TRIM( Request.Form( "email" ) ) toWho = "yz.wjgs@public.yz.js.cn" Contactperson = TRIM( Request.Form("contact")) Body = TRIM( Request.Form( "Body" ) ) add=TRIM( Request.Form("address")) tel=TRIM( Request.Form("phone")) body=contactperson&add&tel&body sendMail fromWho, toWho, Subject, Body %> New Page 3


Type of company:	Manufacture	Importer/exporter
	Retailer	Distributor
	Wholesaler	Other
Contact person:
Address:
Phone:
Fax:
Email:
Website
Textarea