바로가기 메뉴

본문 바로가기

kobaco 한국방송광고진흥공사

<% dbOpen public_file_name = "" public_thum_name = "" public_title = "" public_contents = "" sql = "select contents_thum_name, contents_file_name, contents_title from main_contents_mng " &_ "WHERE CONTENTS_DEL_YN = 'N' AND contents_kind = 'Public_AD' AND rownum <= 1 order by CONTENTS_NO desc" Set rs = strConn.execute(sql) If Not(rs.eof And rs.bof) Then public_file_name = rs("contents_file_name") public_thum_name = rs("contents_thum_name") public_title = rs("contents_title") End If rs.close sql = "select dbms_lob.substr(contents_contents, dbms_lob.getlength(contents_contents), 1) "&_ "from main_contents_mng "&_ "WHERE CONTENTS_DEL_YN = 'N' AND contents_kind = 'Public_AD' AND rownum <= 1 order by CONTENTS_NO DESC" Set rs = strConn.execute(sql) If Not(rs.eof And rs.bof) Then public_contents = Replace(rs(0),Chr(13),"
") End If rs.close company_file_name = "" company_thum_name = "" sql2 = "select contents_thum_name, contents_file_name from main_contents_mng " &_ "WHERE CONTENTS_DEL_YN = 'N' AND contents_kind = 'Company_AD' AND rownum <= 1 order by CONTENTS_NO desc" Set rs = strConn.execute(sql2) If Not(rs.eof And rs.bof) Then company_file_name = rs("contents_file_name") company_thum_name = rs("contents_thum_name") End If rs.close %>
에너지절약 공익광고협의회 동영상
홍보동영상, 공익광고협의회 동영상
  • 공익광고
  • 홍보동영상
  • 경제혁신 3개년 계혹 홍보동영상

KOBACO

광고산업을 선도하는 공영 미디어랩으로 새롭게 거듭나고 있습니다.

열기
  • 코바코뉴스
      <% '코바코뉴스 strSQL = " SELECT /*+ index_desc(KOBACO_NEWS) */ news_no, news_title, TO_CHAR(news_regdate,'yyyy.mm.dd') as news_regdate, news_file_name, news_summary " &_ " from KOBACO_NEWS " &_ " where news_del_yn = 'N' " &_ " AND rownum <= 5 " &_ " ORDER BY NEWS_NO DESC " Set Rs = strConn.Execute(strSQL) Do Until Rs.EOF news_file_name = Rs("news_file_name") news_title = Rs("news_title") news_regdate = Rs("news_regdate") news_no = Rs("news_no") news_summary = Rs("news_summary") news_title = replaceChar(news_title) Response.Write "
    • "& news_title &""& news_regdate &"
    • " & vbCrLf Rs.MoveNext Loop Rs.Close() %>
  • 공지사항
  • 보도자료
  • 계약입찰정보
      <% '입찰공고(sort없음) strSQL = "select /*+ index_desc(t1 contract_bbs_pk) */ contract_no,contract_title,to_char(contract_regdate,'yyyy.mm.dd') regdate " &_ " from contract_bbs t1 " & _ "where contract_del_yn = 'N' " &_ " and contract_no > 0 " &_ " and rownum <= 4 " Set Rs = strConn.Execute(strSQL) Do Until Rs.EOF Response.Write "
    • "& replaceChar(Rs("contract_title")) &""& Rs("regdate") & "
    • " & vbCrLf Rs.MoveNext Loop Rs.Close() %>
닫기

INFORMATION

방송과 광고에 대한 무한 정보의 장, KOBACO 고객 여러분의 성공과 함께 합니다.

열기
에너지절약 공익광고 스크린샷
홍보동영상 공익광고 스크린샷

kobaco뉴스

<%=strSubNews%>
  • 공익광고
  • 기업pr
  • 코바코뉴스
  • 방송사 현황
  • 광고회사 현황
  • 신설 광고회사 대행계약
  • 유관 언론단체 현황
닫기

CUSTOMER

고객만족을 위해 정성을 다하는 마음으로 여러분의 의견에 귀를 기울이고 있습니다.

열기

1

고객상담실

일반상담 및 지사, 광고심의 관련에 대하여 친절히 상담을 해드립니다.

자세히보기

2

고객제안

저희 공사의 발전을 위한 제안, 개선사항 건의사항을 남겨주세요.

자세히보기

3

사이버신문고

고객님의 민원을 적극 수용하기 위한 사이버 민원실입니다.

자세히보기

나의 질의문답

고객님이 질문하신 사항을 성실히 답변해 드리고 있습니다.

go

고객만족현장

KOBACO는 여러분의 생각과 의견을 소중히 듣고있습니다.

go

고객칭찬 고객님의 칭찬이 KOBACO를 키웁니다

    <% '칭찬합시다 strSQL ="select request_no, comm_name, request_title, to_char(Request_regdate,'yyyy.mm.dd') regdate from ( " &_ " select t1.Request_no,t3.comm_name,t1.Request_title,t1.Request_regdate " &_ " from praise_Request t1,comm_info t3 where t1.Request_header = t3.comm_code and t1.Request_del_yn = 'N' order by t1.Request_no desc) where rownum <= 2 " Set Rs = strConn.Execute(strSQL) Do Until Rs.EOF commonName = replaceChar(Rs("comm_name")) requestTitle = replaceChar(Rs("request_title")) requestTitle = Fn_textlen(requestTitle, 22-Len(commonName)) requestTitle = "["& replaceChar(Rs("comm_name")) &"] "& requestTitle Response.Write "
  • "& requestTitle &"
  • " & vbCrLf Rs.MoveNext Loop Rs.Close() %>
닫기
<% '방문자수 strSQL = "SELECT COUNT(ipaddr) totalCount, " &_ " COUNT(DECODE(TO_CHAR(regdate,'YYYYMMDD'),TO_CHAR(SYSDATE,'YYYYMMDD'),1)) today "&_ " FROM VISIT_COUNT" Set Rs = strConn.Execute(strSQL) totalCount = Clng(14988592) today = 0 If Not Rs.EOF Then totalCount = totalCount + CLng(Rs("totalCount")) today = Rs("today") End If Rs.Close %>

오늘 방문자

<%=today%>

총 방문자

<%=totalCount%>

<% strSQL = "SELECT popup_no, popup_title, POPUP_FILE_THUMB_NAME, POPUP_FILE_MAIN_NAME, POPUP_URL, DBMS_LOB.substr(POPUP_CONTENTS,500) AS CONTENTS " &_ "FROM POPUP_MNG "&_ "WHERE popup_del_yn = 'N' "&_ " AND TO_CHAR(SYSDATE,'yyyymmddhh24MI') BETWEEN popup_main_st AND popup_main_ed AND rownum <= 7 " &_ "ORDER BY POPUP_NO DESC " Set Rs = strConn.Execute(strSQL) tmpnum = 1 strQuickNum = "" strSmallImage = "" strBigImage = "" Do Until Rs.EOF if Rs("POPUP_URL") = "#" then tempURL = "" else tempURL = Rs("POPUP_URL") strQuickNum = strQuickNum & "
  • "& tmpnum &"
  • "& vbCrLf strSmallImage = strSmallImage& " "& replaceChar(Rs("popup_title")) &"" strBigImage = strBigImage& ""& replaceChar(Rs("popup_title")) &"" tmpnum =tmpnum +1 Rs.moveNext Loop Rs.Close DBClose If tmpnum > 1 Then %>

    <%=strSmallImage%>

    <%=strBigImage%>

      <%=strQuickNum%>
    닫기
      <%=strQuickNum%>
    <% End If %>
    kobaco 한국방송광고진흥공사