<%JudulAnak="Radio Retjo Buntung 100.55 FM"%> <%sssRadio="RBFM"%> <% 'xradio="Rasialima" Set dbconn = Server.CreateObject("ADODB.Connection") dbconn.open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("../admin/data/dbRadio.mdb") sql = "SELECT * from dbAgenda ORDER BY mulai Desc" 'hitung jumlah data jmlData = 0 sqlData="select count(*) as jmlData from dbAgenda " set RS = dbConn.Execute(sqlData) jmlData = RS("jmlData") RS.Close set RS = dbconn.Execute(sql) no = 0 '--Bar Halaman-- jmlDisplay = 5 jmlHalMax = 10 thisFile = request.servervariables("script_name") A_href = thisFile page = request("page") if page<1 then page=1 'hitung awal, akhir, dan jumlah halaman jmlHalaman = int(jmlData/jmlDisplay) if jmlHalaman <> jmlData/jmlDisplay then jmlHalaman = jmlHalaman + 1 if 1 * page> 1 * jmlHalaman then page=jmlHalaman awal = (page - 1) * jmlDisplay + 1 akhir = page * jmlDisplay if akhir>jmlData then akhir=jmlData hlmAwal = ((page-1)\jmlHalMax)*jmlHalMax+1 hlmAkhir = hlmAwal - 1 + jmlHalMax if hlmAkhir>jmlHalaman then hlmAkhir=jmlHalaman 'generate bar navigasi barHlmBaru = "" if hlmAwal=1 then barHlmBaru = barHlmBaru & "" else barHlmBaru = barHlmBaru & "" end if if page<2 then barHlmBaru = barHlmBaru & "" else barHlmBaru = barHlmBaru & "" end if barHlmBaru = barHlmBaru & "" if 1 * page< 1 * jmlHalaman then barHlmBaru = barHlmBaru & "" else barHlmBaru = barHlmBaru & "" end if if hlmAkhir=jmlHalaman then barHlmBaru = barHlmBaru & "" else targetNext = page+jmlHalMax if targetNext>jmlHalaman then targetNext=jmlHalaman barHlmBaru = barHlmBaru & "" end if barHlmBaru = barHlmBaru & "

<<

<<

<

<

" for gh=hlmAwal to hlmAkhir if gh>hlmAwal then barHlmBaru = barHlmBaru & " - " if 1 * gh = 1 * page then barHlmBaru = barHlmBaru & "" & gh & "" else barHlmBaru = barHlmBaru & "" & gh & "" end if next barHlmBaru = barHlmBaru & "

>

>

>>

>>

" barHalaman = barHlmBaru '--Bar Halaman Selesai-- %>

Menyajikan hiburan dan informasi bagi seluruh anggota keluarga di Jogja dan kota-kota sekitarnya."Mungkin kalimat tersebut bisa anda dapatkan dari sajian Radio Retjo Buntung 100,55 FM (baca: seratus koma lima-lima FM). Menjadikan radio sebagai sajian utuh bagi sebuah keluarga merupakanarah yang tepat bagi kami untuk merangkum seluruh menu acara yang tersaji rapi sepanjang hari. Dan hanya kami yang tetap konsisten menggarapnya sejak tahun 1967. Dengan semangat kebersamaan dari beberapa komponen penting yaitu program acara, SDM, dan teknologi sepakat menjadikan Radio Retjo Buntung 100,55 FM "Citra Radio Keluarga" sebagai pilihan utama pemiarsa. Salam untuk anda dan seluruh anggota keluarga. <%end if%> <% z=0 for z=0 to awal-2 RS.movenext next do while (not RS.eof) and z -1 then%> <% z=z+1 tglAwal=day(RS("mulai")) tglAkhir=day(RS("selesai")) bulanAwal=month(RS("mulai")) bulanAkhir=month(RS("selesai")) tahunAwal=year(RS("mulai")) tahunAkhir=year(RS("selesai")) if bulanAwal = bulanAkhir then if tglAwal = tglAkhir then strBulan=BulanIndo(bulanAwal) tgl= tglAwal&" "&strBulan&" "&tahunAwal else strBulan=BulanIndo(bulanAwal) tgl= tglAwal&"-"&tglAkhir&" "&strBulan&" "&tahunAwal end if else strBulanAwal=BulanIndo(bulanAwal) strBulanAkhir=BulanIndo(bulanAkhir) tgl= tglAwal&" "&strBulanAwal&" "&tahunAwal&" s/d "&tglAkhir&" "&strBulanAkhir&" "&tahunAkhir end if response.write tgl %> ><%= RS("tempat") %> <%= replace(replace(left(RS("isi"),100),"<","<"),">",">") %> ...>detail selengkapnya Sumber: (<%= RS("sumber") %>) <% end if RS.MoveNext Loop %> <%if not (RS.EOF or RS.BOF) then%> Daftar Berita dan Agenda selengkapnya... <% end if RS.Close dbconn.Close %> <%if RS.EOF or RS.BOF then%>

<%aaa=request.servervariables("script_name")%>