<%Root=1%> <%current="events" Title=request.querystring("Title") TitleAll=request.querystring("TitleAll") MainType=request.querystring("ET") if not IsNumeric(MainType) or MainType="" then MainType=0 ED_SID=request.querystring("ED_SID") if not IsNumeric(ED_SID) or ED_SID="" then ED_SID=0 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&",ET.name as ETName" sql=sql&",ET2nd.name as ETName2nd" 'sql=sql&",iif(ED_IN,'國外','國內') as EDIN" sql=sql&",iif(ED_IN=0,'台北院區',iif(ED_IN=1,'淡水院區',iif(ED_IN=2,'院外',''))) as EDIN" sql=sql&" from (EduData as E" sql=sql&" left join EduType2nd as ET2nd on ET2nd.id=E.ED_Type2nd)" sql=sql&" left join EduType as ET on ET.id=ET2nd.ET_ID" sql=sql&" where 1=1" sql=sql&" and ED_SID="& ED_SID set EduData=conn.execute(sql) set FS=Server.CreateObject("Scripting.FileSystemObject") %>

<%=EduData("ETName2nd")%>

<%sql="select *" sql=sql&" from EduAdd" sql=sql&" where 1=1" sql=sql&" and ED_SID="& ED_SID sql=sql&" order by EA_SID" set EduAdd=conn.execute(sql) if not (EduAdd.eof or EduAdd.bof) then%>
    <%do while not EduAdd.eof or EduAdd.bof Pic_Path="../DB/Edu/"&ED_SID&"/"&EduAdd("EA_PIC") if FS.FileExists(Server.MapPath(Pic_Path)) then%>
  • <%=EduAdd("EA_LINK")%>
  • <%else%> 附檔錯誤!!!
    <%end if EduAdd.movenext loop%>
<%end if%>