競爭力企業訓練中心–公開課程、企業內訓課程、員工教育訓練、年度計劃課程

<% If Request("Send")<>Empty Then ' Set mail=Server.CreateObject("CDONTS.NewMail") ' mail.To="sany@compet.com.tw" ' mail.from="service@compet.com.tw" ' mail.subject=REQUEST("姓名") & "---競爭力企管網企管講師登錄" ' body="發送時間：" & now & vbcrlf ' body=body & "姓名：" & REQUEST("姓名") & vbcrlf ' body=body & "性別：" & REQUEST("性別") & vbcrlf ' body=body & "行動電話：" & REQUEST("行動電話") & vbcrlf ' body=body & "出生日期：" &"民國" & REQUEST("出生日期年") & "年" & REQUEST("出生日期月") & "月" & REQUEST("出生日期日") & "日" & vbcrlf ' body=body & "聯絡電話日：" & REQUEST("聯絡電話日") & vbcrlf ' body=body & "聯絡電話夜：" & REQUEST("聯絡電話夜") & vbcrlf ' body=body & "傳真電話日：" & REQUEST("傳真電話日") & vbcrlf ' body=body & "傳真電話夜：" & REQUEST("傳真電話夜") & vbcrlf ' body=body & "電子郵件：" & REQUEST("電子郵件") & vbcrlf ' body=body & "地址公：" & REQUEST("地址公") & vbcrlf ' body=body & "地址宅：" & REQUEST("地址宅") & vbcrlf ' body=body & "最高學歷：" & REQUEST("最高學歷") & vbcrlf ' body=body & "現任職務：" & REQUEST("現任職務") & vbcrlf ' body=body & "專長課程類別：" & REQUEST("專長課程類別") & vbcrlf ' body=body & "其他專長：" & REQUEST("其他專長") & vbcrlf ' body=body & "曾任職務：" & REQUEST("曾任職務") & vbcrlf ' body=body & "專長說明：" & REQUEST("專長說明") & vbcrlf ' body=body & "最受歡迎課程1：" & REQUEST("最受歡迎課程1") & vbcrlf ' body=body & "最受歡迎課程2：" & REQUEST("最受歡迎課程2") & vbcrlf ' body=body & "最受歡迎課程3：" & REQUEST("最受歡迎課程3") & vbcrlf ' body=body & "備註：" & REQUEST("備註") & vbcrlf ' mail.body=body ' mail.send '======================================================================================== sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") ="59.125.144.196" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "service@compet.com.tw" cdoMessage.To = "sany@compet.com.tw" cdoMessage.Subject =REQUEST("姓名") & "---競爭力企管網企管講師登錄" cdoMessage.HTMLBody ="發送時間：" & now & ("
")&_ "姓名：" & REQUEST("姓名") & ("
") &_ "性別：" & REQUEST("性別") & ("
") &_ "行動電話：" & REQUEST("行動電話") & ("
") &_ "出生日期：" &"民國" & REQUEST("出生日期年") & "年" & REQUEST("出生日期月") & "月" & REQUEST("出生日期日") & ("
") &_ "聯絡電話日：" & REQUEST("聯絡電話日") & ("
") &_ "聯絡電話夜：" & REQUEST("聯絡電話夜") & ("
") &_ "傳真電話日：" & REQUEST("傳真電話日") & ("
") &_ "傳真電話夜：" & REQUEST("傳真電話夜") & ("
") &_ "電子郵件：" & REQUEST("電子郵件") & ("
") &_ "地址公：" & REQUEST("地址公") & ("
") &_ "地址宅：" & REQUEST("地址宅") & ("
") &_ "最高學歷：" & REQUEST("最高學歷") & ("
") &_ "現任職務：" & REQUEST("現任職務") & ("
") &_ "專長課程類別：" & REQUEST("專長課程類別") & ("
") &_ "其他專長：" & REQUEST("其他專長") & ("
") &_ "曾任職務：" & REQUEST("曾任職務") & ("
") &_ "專長說明：" & REQUEST("專長說明") & ("
") &_ "最受歡迎課程1：" & REQUEST("最受歡迎課程1") & ("
") &_ "最受歡迎課程2：" & REQUEST("最受歡迎課程2") & ("
") &_ "最受歡迎課程3：" & REQUEST("最受歡迎課程3") & ("
")&_ "備註：" & REQUEST("備註") & ("
") & cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing '======================================================================================== Response.write "" RESPONSE.WRITE "" RESPONSE.end end if %> 競爭力企業訓練中心–公開課程、企業內訓課程、員工教育訓練、年度計劃課程

帳號：

密碼：