<%Root=1%> <%current="events" MainType=request.querystring("ET") if not IsNumeric(MainType) or MainType="" then MainType=0 select case MainType case 1: Title="癌症資源服務" TitleAll="全部活動" case 2: Title="癌症篩檢服務" TitleAll="全部篩檢" case else Title="癌症篩檢服務" TitleAll="全部篩檢" end select Type2nd=request.querystring("ET2nd") if not IsNumeric(Type2nd) or Type2nd="" then Type2nd=0 set EType2nd=conn.execute("select name from EduType2nd where ID="& Type2nd) set EData=Server.CreateObject("ADODB.RECORDSET") const adopenkeyset=1 const adlockreadonly=1 sql="select *" sql=sql&",format(ED_FDate,'yyyy/mm/dd') as FDate" sql=sql&",format(ED_FDate,'HH:mm') as FTime" sql=sql&",format(ED_TDate,'yyyy/mm/dd') as TDate" sql=sql&",format(ED_TDate,'HH:mm') as TTime" sql=sql&" from EduData" sql=sql&" left join EduType2nd as ET2 on ET2.id=EduData.ED_Type2nd" sql=sql&" where 1=1" if Type2nd<>"" and Type2nd<>0 then sql=sql&" and ED_Type2nd="& Type2nd end if sql=sql&" and ET2.ET_ID="& MainType sql=sql&" and ED_Show=true" sql=sql&" order by ED_FDate Desc" EData.open sql,conn,adopenkeyset,adlockreadonly %>

<%if Type2nd<>"" and Type2nd<>0 and not EType2nd.eof then response.write EType2nd("name") else response.write TitleAll end if%>

<%if EData.eof or EData.bof then%> <%else EData.pageSize=20 u=EData.pageCount PageNo=ReturnInt(request("sub")) if CInt(PageNo)<1 then PageNo=1 if CInt(PageNo)>u then PageNo=u EData.absolutePage=PageNo do while not (EData.eof or EData.bof) and EData.absolutePage=PageNo%> <%EData.movenext loop%> <%end if%>
活動日期 活動主題
目前尚無任何活動!!!
">

<%=EData("ED_Title")%>

主辦單位:<%=EData("ED_Holder")%>
活動地點:<%=EData("ED_Place")%>

style="display:none;"<%end if%>> <%if pageno<6 then j=1 else j=pageno-5 end if if pageno1 then%> 第一頁 < <%end if%> <%for i=j to k if pageno=cint(i) then%> <%=i%> <%else%> <%=i%> <%end if next%> <%if pageno > 到最後 <%end if%> ,前往第