CEO mindPower 新書推介

<%@LANGUAGE='VBSCRIPT'%> CEO mindPower 新書推介

回到主頁

<% if Request.Form("hiddenField") <> "SendMail" Then %>

姓名:
職位:
電郵:
在職機構:
相關著作:
內容:

	返回名家推介

<% Else SendComment Request.Form("From") , Request.Form("JobTitle"), Request.Form("Email"), Request.Form("Org"), Request.Form("AssOrg"), Request.Form("Msg") %>

你的郵件已傳送，謝謝！

<% End If %>

想自我提升，實現理想？

請按此瀏覽CEO mindPower ltd. 的官方網址及個人培訓計劃

讀者心聲

請按此分享你的實貴意見

<% Function SendComment(From, JobTitle, Email, Org, AssOrg, Msg ) Set myMail=CreateObject("CDO.Message") myMail.Subject= "CEO MPower Book Comment :" & Subject myMail.From= "comment@ceompower.com" myMail.To= ContactFormEmail myMail.Bcc= "taw3004@hotmail.com" myMail.BodyPart.Charset="big5" myMail.HtmlBody = ReadTemplate(From, JobTitle, Email, Org, AssOrg, Msg) myMail.Send() End Function Function ReadTemplate (From, JobTitle, Email, Org, AssOrg, Msg) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, fs, temp Set fso = CreateObject("Scripting.FileSystemObject") Set fs = fso.OpenTextFile(Server.MapPath("CommentTemplate.html"), ForReading, True) temp = fs.ReadAll 'Replace Template Value temp = Replace(temp,"%From%", From) temp = Replace(temp,"%JobTitle%", JobTitle) temp = Replace(temp,"%Email%", Email) temp = Replace(temp,"%Org%", Org) temp = Replace(temp,"%AssOrg%", AssOrg) temp = Replace(temp,"%Msg%", Msg) ReadTemplate = temp fs.Close End Function %>