歡迎光臨台北醫學大學進修推廣部

<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_enter_STRING MM_editTable = "epaper" MM_editRedirectUrl = "database/epaper_success.asp" MM_fieldsStr = "epaperName|value|epaperEmail|value" MM_columnsStr = "epaperName|',none,''|epaperEmail|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_enter_STRING Recordset1.Source = "SELECT * FROM epaper" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> 歡迎光臨台北醫學大學進修推廣部

本部簡介　　學習園地　　線上報名　　留言版

瀏覽過期電子報

2009暑假醫學營(高中國中)

國高中報名表簡章下載

國小報名表簡章下載


最新消息
98/06/25	[消息]	免費的瑜珈體驗課程~不同的感覺~報名從速
98/05/27	[消息]	2009暑期遊學團因應新型流感公告：本校為醫學大學，對此次新流感疫情處理相對嚴謹，我們會以學員的安全為優先考量，敬請家長及學員放心！經部務會議決議，是否出團條件以下列二項原則評估：1.最後決定日期(美國團6/10;英國團7/2)及2.流感級別(黃燈四級(含)以上不出團，做為是否出團依據！若在上列確認日期達黃燈四級則不出團，團員可選擇保留、轉團、退費；退費部份除已產生費用，如已代辦護照等，其他費用全額退費！有考慮暑期遊學團但尚未報名的學員，歡迎先來電預約報名，先處理前置作業，以免時間來不及！洽詢電話02-27361661*2413凌小姐
98/05/27	[消息]	6/13藥師48小時持續教育訓練課表藥師48小時持續教育訓練減免NT$500優惠延長到5/31，請把握報名時間哦！
98/04/24	[消息]	牙科技師經營菁英訓練課程學分班開始接受報名囉! 簡章詳細課程內容
98/04/09	[消息]	教育部人力加值計劃課程～全額補助免費！大專以上近一年內失業勞工的進修學習，歡迎來電洽詢02-273616612413凌小姐/2416李小姐人力加值計劃申請須知連續六天 08:30-18:30 牙科助理培訓B班來電預約每週一四9:00-17:00 健康美容講師課程班來電預約每週一四9:00-17:00 健康美容講師進階班來電預約
98/03/17	[消息]	營養食品百百款，怎麼吃才健康! 讓營養學權威謝明哲教授(本校副校長)，黃士懿教授(本校圖書館館本)親自上課，告訴您! 幽默生動的上課內容，實用的營養知識，一次學全營養觀念，加值減肥課程，以往只開放企業包班課程，應學員要求今年首度開放，千萬別錯過！營養學課程
98/03/13	[消息]	2009暑期遊學團出爐了！快來預約3/24(一)說明會
98/03/13	[消息]	牙醫學院全系列課程：03/15全口復健－植牙學分班　　 3/29EMBA牙醫師口腔事業經營管理菁英暨實務班　 03/29EMBA非牙醫師口腔事業經營管理學分班　　　牙科技師經營菁英訓練學分班牙醫專科輔導訓練(RN)學分班
97/11/06	[消息]	大家一起拚經濟！北醫大展現最大誠意!芳療課程最大回饋最超值[國際芳療認證課程]+[國際芳療師高階認證課程] 220小時原價98,000元課程－＞下殺五一折，只要50,000元千萬別錯過哦！
97/10/22	[消息]	中國證照系列課程，前進中國！
97/10/22	[消息]	恭喜! 2008暑期遊學團心得徵文比賽前三名第一名　　李威第二名　　張乃云第三名　　陳怡臻
98/7/01	[消息]	9/8醫療級的芳療花精課程，全力禮聘巴哈花精作者李泓斌醫師主授，千萬不可錯過的精彩課程！巴哈花精情緒檢測表

近期強打

	減肥自然療法應用課程班 07/05
	國際芳療師高階認證班 07/12
	醫學美容課程班 07/14
	醫學美容儀器操作 07/18
	中國健康管理師證照班 07/19
	2009暑假遊學團超值再加價 (北醫大老師親自帶團)安全更有保障
	國際催眠師證照班 08/01

新課推薦

	Dental EMBA口腔事業經營管理精英班
	牙醫專科輔導訓練學分班
	專科牙助實戰精英班
	嬰幼兒按摩指導員培訓班08/05
	芳香卜卦與精油保養品調製班 08/15
	解讀英文醫藥文獻課程班 08/22
	中草藥在皮膚美容的臨床應用課程班 08/30
	各種疾病的自然療法學分班 09/08
	英國嬰幼兒按摩考證班09/12
	中國職業證照考證班

許一個今生的美麗回憶weddingplanner

婚禮顧問課程班

　

★ 新潮流 ★ 　　中國健康管理師證照 ~夯~

@蘋果日報/記者:賴佳雯

國內裁員潮一波波, 許多人轉而往國外發展, 其中大陸的健康管理師正熱門!

因大陸規定公民營企業每100人須有一名健康管理師, 因此需求量大, 且只要有證照就可以在大陸的私人企業/醫院/健檢中心工作, 而目前考有執照的健康管理師仍相當不足!

中國官方為鼓勵更多人考得證照, 有北醫中國健康管理師證照輔導班結業證書者到大陸考試可加,分台灣人到中國考取健康管理師證照的比例約可達八成.... (More)

中國相關證照

<% Recordset1.Close() Set Recordset1 = Nothing %>