<%@ Language=VBScript %> <% Response.Buffer =true %> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% 'set RS=CreateObject ("adodb.recordset") 'RS.ActiveConnection ="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath(".\board\newsystem\DB\cyhgepd.mdb") & ";Persist Security Info=False" ' SQL="select no,title from news ORDER BY pdate DESC" ' RS.open SQL 'RS_News_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 3 Dim Repeat1__index Repeat1__index = 0 RS_News_numRows = RS_News_numRows + Repeat1__numRows %> <% MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>

                                                                                               

一、醫事人員支援其他醫療機構執行業務報備申請 二、全民健保特約診所基本資料表查證申請 三、藥商(公司組織型態)籌設許可申請 四、藥局(商)復業申請 五、食品衛生設備合格證明申請