台灣臨床病理醫學會

	台灣臨床病理檢驗醫學會
	Taiwan Society of Clinical Pathology and Laboratory Medicine(TSCPaLM)

學會介紹學會組織專科法規學會出版品衛教專區專科會員專區

<% keyword = encode_str(request("keyword")) IF keyword= "" or keyword= "關鍵字搜尋" THEN keyword= request.Form("keyword") END IF DbPath = SERVER.MapPath("DB/data_news.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath Set rs1 = Server.CreateObject("ADODB.Recordset") sql = "Select * From latest where new_id <> "& session("new_id") if keyword <> "" and keyword <> "關鍵字搜尋" then sql= sql & " and (topic Like '%"+keyword+"%' or author Like '%"+keyword+"%' or cont Like '%"+keyword+"%')" end if sql = sql & " order by create_date desc" rs1.open Sql,conn,3 Page = cint(Request("Page")) RS1.PageSize = 5 ' 設定每頁顯示 5 筆 If Page<1 Then Page=1 ELSEIF Page>rs1.PageCount Then Page=rs1.PageCount END IF If Not rs1.eof Then ' 有資料才執行 RS1.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁 end if On Error Resume Next %> <%if not Rs1.Eof then%> <%End If%>

<% DbPath = SERVER.MapPath("DB/data_news.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath sql = "Select Top 1 * From latest" sql = sql & " order by create_date desc" Set rs = conn.Execute( sql ) On Error Resume Next if not rs.eof then session("new_id")=rs("new_id") end if if not Rs.Eof then %>

	學分資訊

5月17日研討會照片

<%end if%>

<% On Error Resume Next FOR SH=1 to rs1.pageSize ' 顯示資料 %> <% rs1.MoveNext IF RS1.EOF THEN EXIT FOR Next %>

	" class="news"><%=rs1("topic")%>9月10-11日第十屆亞洲臨床病理暨檢驗醫學大會於蒙古烏蘭峇托舉行蒙古開會報告
10月21-22日第10屆ANCLS組委會在韓國大邱舉行

11月1日(星期日) 本會暨中華醫學會舉辦年會暨研討會在台北榮總致德樓第三會議室。當天請帶報到卡選舉理監事

11月1日(星期日) 節目表

<%If rs1.PageCount=0 Then%> <%Else%>

會址：台北市北投區石牌路二段201號病理檢驗部生化科　電話：(02)-28757447 、( 02)-28746354　傳真：(02)-28717680

目前共有

位瀏覽本網站