<%@ codepage="65001" language="VBScript" %> <% call sm_header() %>
<% call sm_top() %>
  • 교회명
  • 목사명 비활성화
<% s_Qry = "select" s_Qry = s_Qry & " isnull(a.onair,'') as onair" s_Qry = s_Qry & " , b.newflag" s_Qry = s_Qry & " , a.pid" s_Qry = s_Qry & " , b.kname as l_kname" s_Qry = s_Qry & " , c.kname as c_kname" s_Qry = s_Qry & " , a.regdate" s_Qry = s_Qry & " from wp_prog a" s_Qry = s_Qry & " left outer join wp_church b" s_Qry = s_Qry & " on a.cid=b.cid" s_Qry = s_Qry & " left outer join wp_lecturer c" s_Qry = s_Qry & " on a.lid=c.lid" s_Qry = s_Qry & " where b.kname is not null" s_Qry = s_Qry & " and a.cate1='CATSM'" s_Qry = s_Qry & " and a.delflag<>'Y'" s_Qry = s_Qry & " and b.delflag<>'Y'" s_Qry = s_Qry & " and c.delflag<>'Y'" ' s_Qry = s_Qry & " and a.onair<>'Z'" s_Qry = s_Qry & " order by isnull(onair,'') desc, newflag desc" response.write "" ' response.write s_Qry 'response.end If sSortSM = "Lect" Then s_Qry = s_Qry & ", c_kname asc" ElseIf sSortSM = "Chur" Then s_Qry = s_Qry & ", l_kname asc" ElseIf sSortSM = "RegD" Then s_Qry = s_Qry & ", a.regdate asc" End If set o_Rs = server.CreateObject("ADODB.Recordset") o_Rs.Open s_Qry,o_Cn,1 If o_Rs.eof or o_Rs.bof Then Else dim onair : onair=0 i=1 j=1 Do Until o_Rs.eof sAir = o_Rs("onair") sPID = o_Rs("PID") sNEW = o_Rs("NEWFLAG") sChNm = o_Rs("L_KNAME") sLeNm = o_Rs("C_KNAME") if sAir="Z" then sAir="Y" end if if sNEW = "Y" then center_bu="new_center_bu_new" else if sAir="Y" then if j>10 then center_bu="new_center_bu2" else center_bu="new_center_bu" end if else center_bu="new_center_bu3" end if end if if sAir<>"Y" or isnull(sAir) then onair=onair+1 end if %> <% if onair=1 then %> <% i=1 %> <% j=1 %> <% end if %> <% if i >1 and i mod 10 = 1 then %> <% end if %> <% i=i+1 j=j+1 if j>20 then j=1 end if o_Rs.MoveNext Loop End If %>

종영된방송

<% call sm_plus() %>
<% call sm_copy() %> <% call sm_bottom() %>