台灣臨床病理醫學會

<% 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%>

5月26日萬芳醫院

5月31日微生物醫學會

<% 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日(星期日) 本會暨中華醫學會舉辦年會暨研討會在台北榮總致德樓第三會議室。當天請帶報到卡選舉理監事

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

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

目前共有

位瀏覽本網站