<% ' Function CheckNull(sInputString) if sInputString<>"" then CheckNull=sInputString else CheckNull="---" end if End Function Function MultiLine(sInputString) MultiLine=replace(CheckNull(sInputString),vbcrlf,"
") End Function Function SendEmail(sInputFormName,sInputFormAddress,sInputRecipientName,sInputRecipientAddress,sInputSubject,sInputBodyText) Set Mailer=Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost="globalmain.ee11.net" Mailer.ContentType="text/html; charset=big5" Mailer.FromName=CheckNull(sInputFormName) Mailer.FromAddress=CheckNull(sInputFormAddress) Mailer.AddRecipient CheckNull(sInputRecipientName),sInputRecipientAddress Mailer.Subject=CheckNull(sInputSubject) Mailer.BodyText=CheckNull(sInputBodyText) if Mailer.SendMail then SendEmail="Your Enquiry has been sent !" else SendEmail="Some fields are missing in your Enquiry Form !" end if Set Mailer=Nothing End Function Function AddField(sInputHTMLBody,sInputFieldName,sInputValue) AddField=sInputHTMLBody AddField=AddField & "" AddField=AddField & "" & sInputFieldName & "" AddField=AddField & "" & MultiLine(sInputValue) & "" AddField=AddField & "" End Function ' if Request.Form("send")="send" then 'get information Name=Request.Form("Name") Company=Request.Form("Company") Email=Request.Form("Email") Country=Request.Form("Country") Message=Request.Form("Message") 'create email form sHTMLHeader="" sHTMLHeader=sHTMLHeader & "" sHTMLBody="" sHTMLBody=AddField(sHTMLBody,"Name",Name) sHTMLBody=AddField(sHTMLBody,"Company",Company) sHTMLBody=AddField(sHTMLBody,"Email",Email) sHTMLBody=AddField(sHTMLBody,"Country",Country) sHTMLBody=AddField(sHTMLBody,"Message",Message) sHTMLBody=sHTMLBody & "
" sHTMLFooter="" sHTMLFooter=sHTMLFooter & "" 'send email sShortMessage=SendEmail(Name,Email,"Phoenix Candle","info@phoenixcandle.com","Enquiry",sHTMLHeader & sHTMLBody & sHTMLFooter) end if %> Phoneix Candle
HomeProductsContact Us
Email to us now..
want to voice out something? confused about something? we love to hear from you! write to us in the simple form below and we will respond to you shortly.
<%=sShortMessage%>
your name:
  your company:  
  your email:  
  country:  
  please write your message here:  
   
   
       
copyright (c) 2002 phoenixcandle.com.hk (hong kong) limited. all rights reserved

I home | products I contact us I

 

Web Site Developed Maintained by Phoenix Industrial Company
This site is best viewed with Internet Explorer 4.0 or higher.
Any technical questions please email info@pichk.com