<% MM_connect_STRING = "Provider=MSDAORA;Data Source=WEBPOSTEL;User ID=repostel; Password=repostel2004;PLSQLRSet=1" Set Rs = Server.CreateObject("ADODB.RECORDSET") Rs.ActiveConnection = MM_connect_String 'Rs.Source = "SELECT info_id,info_name,to_char(info_date,'DD--YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' ORDER BY INFO_DATE DESC" 'Rs.Source = "SELECT info_id,info_name,info_descr,to_char(info_date,'DD-MM-YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' ORDER BY INFO_DATE DESC" Rs.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' and rownum < 9 ORDER BY INFO_ID DESC" Rs.CursorType = 0 Rs.CursorLocation = 2 Rs.LockType = 3 Rs.Open() Rs_numRows = 8 Set Rs2 = Server.CreateObject("ADODB.RECORDSET") Rs2.ActiveConnection = MM_connect_String Rs2.Source = "SELECT count(*) nomor from t_info where INFO_LANG='ID' and info_descr is not null" Rs2.Open() nomer1= formatnumber (rs2("nomor"),0)-8 'total = nomer1-6 Rs2.Close() %> Direktorat Jenderal Pos dan Telekomunikasi
 
 
DOWNLOAD
PENCARIAN
 

Anda Pengunjung Ke :

 
  
.............................Mengingat setiap Pengadaan Barang dan Jasa di lingkungan Ditjen Postel dilakukan secara obyektif, transparan dan sesuai dengan ketentuan yang berlaku, maka dalam pelaksanaannya tidak ada pungutan lain apapun dengan alasan atau atas perintah Pimpinan Ditjen Postel untuk memenangkan suatu proses pengadaan tertentu.................................Pejabat dan Staf Ditjen Postel Dilarang Menerima Imbalan Dalam Bentuk Apapun Dalam Membantu Pengurusan Izin Layanan Pos dan Telekomunikasi. Ketentuan Tentang Tarif PNBP Telah Diatur Dalam PP No. 7 Tahun 2009. Pengaduan Terhadap Penyalahgunaan Pelayanan di Ditjen Postel Dapat Dikirimkam ke PO BOX 2727 Jakarta 10000 atau SMS ke 0811898504.......................................... |
INFORMASI TERKINI

<% no = RS_first x=0 while not rs.eof and x < rs_numRows %>

<%=Rs(3)%>
<%=Rs(1)%>
<%=Rs(2)%>

<% Rs.Movenext x = x + 1 Wend %>

EMAIL ADDRESS

Cek email status : Masuk

PELAYANAN TERPADU
PUBLIKASI
EVENT

Hari Bhakti Postel ke 64

 
 
PENGUMUMAN
<% ' ini untuk pengumuman Set Rs3 = Server.CreateObject("ADODB.RECORDSET") Rs3.ActiveConnection = MM_connect_String 'Rs3.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' and rownum < 7 AND INFO_DESCR LIKE '%PENGUMUMAN%' ORDER BY INFO_ID DESC" Rs3.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' and info_name like INITCAP('%PENGUMUMAN%') or (dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)) like INITCAP('%PENGUMUMAN%') or info_name like UPPER('%PENGUMUMAN%') or (dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)) like UPPER('%PENGUMUMAN%') ORDER BY INFO_ID DESC" Rs3.CursorType = 0 Rs3.CursorLocation = 2 Rs3.LockType = 3 Rs3.Open Rs3_numRows = 3 no = RS3_first x=0 while not rs3.eof and x < rs3_numRows %>
<%=Rs3(3)%> <%=Rs3(2)%>

<% Rs3.Movenext x = x + 1 Wend %>

 
KONSULTASI PUBLIK
<% 'INI UNTUK KONSULTASI PUBLIK Set Rs2 = Server.CreateObject("ADODB.RECORDSET") Rs2.ActiveConnection = MM_connect_String 'Rs2.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' and rownum < 7 AND INFO_NAME LIKE '%KONSULTASI%' ORDER BY INFO_ID DESC" Rs2.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' and info_name like INITCAP('%KONSULTASI%') or (dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)) like INITCAP('%KONSULTASI%') or info_name like UPPER('%KONSULTASI%') or (dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)) like UPPER('%KONSULTASI%') ORDER BY INFO_ID DESC" Rs2.CursorType = 0 Rs2.CursorLocation = 2 Rs2.LockType = 3 Rs2.Open Rs2_numRows = 3 no = RS2_first x=0 while not rs2.eof and x < rs2_numRows %>
<%=Rs2(3)%>
<%=Rs2(2)%>
<% Rs2.Movenext x = x + 1 Wend %>

 
ARSIP BERITA

<% Set Rs1 = Server.CreateObject("ADODB.RECORDSET") Rs1.ActiveConnection = MM_connect_String 'Rs1.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD-MM-YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' AND ROWNUM < 6" ' Rs1.Source = "SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' and info_descr is not null and rownum between 1 and "& nomer1 &" ORDER BY INFO_date desc" 'TAMBAHAN onOs ... yg atas asli tanpa gubahan dari saya Rs1.Source = "select * from ( SELECT x.*, rownum as r FROM ( SELECT info_id,info_name,(dbms_lob.substr(info_descr,dbms_lob.GETLENGTH(info_descr),1)),to_char(info_date,'DD Month YYYY'),info_lang,info_type,info_file from t_info where INFO_LANG='ID' ORDER BY INFO_ID DESC ) x ) where r between 7 AND 9" Rs1.CursorType = 0 Rs1.CursorLocation = 2 Rs1.LockType = 3 Rs1.Open Rs1_numRows = 3 no = RS1_first x=0 while not rs1.eof and x < rs1_numRows %>

<%=Rs1(3)%>
<%=Rs1(2)%>

<% Rs1.Movenext x = x + 1 Wend %>

Arsip Lain >>>

kembali