活動日期 | 活動主題 | <%if EData.eof or EData.bof then%>
---|---|
目前尚無任何活動!!! | |
">
<%=EData("ED_Title")%>主辦單位:<%=EData("ED_Holder")%>活動地點:<%=EData("ED_Place")%> |
%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 EData.eof or EData.bof then%>
---|---|
目前尚無任何活動!!! | |
">
<%=EData("ED_Title")%>主辦單位:<%=EData("ED_Holder")%>活動地點:<%=EData("ED_Place")%> |