.: Selamat datang di www.warnet2000.net :.

<% 'sub format tanggal indonesia sub format_tgl(inputtgl) dim hari(7) dim bulan(12) dim sekarang dim hariini dim bulanini sekarang = inputtgl hari(1) = "Minggu" hari(2) = "Senin" hari(3) = "Selasa" hari(4) = "Rabu" hari(5) = "Kamis" hari(6) = "Jumat" hari(7) = "Sabtu" bulan(1) = "Januari" bulan(2) = "Pebruari" bulan(3) = "Maret" bulan(4) = "April" bulan(5) = "Mei" bulan(6) = "Juni" bulan(7) = "Juli" bulan(8) = "Agustus" bulan(9) = "September" bulan(10) = "Oktober" bulan(11) = "Nopember" bulan(12) = "Desember" hariini = hari(weekday(sekarang)) bulanini = bulan(Month(sekarang)) response.write hariini+", "+cstr(day(sekarang))+" " +bulanini+" "+cstr(year(sekarang)) end sub ' end sub format tanggal indonesia ' Script untuk text counter ' buka FSO Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile = "counter.txt" ' buka text file yang berisi counter Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 ' buka text file yang sama untuk ditulis Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) ' tutup dan hapus semua object Set FileObject = Nothing InStream.Close Set InStream = Nothing OutStream.Close Set OutStream = Nothing %> .: Selamat datang di www.warnet2000.net :. <% MyFileSP = "scrolltext/speech.txt" Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TSO = FSO.OpenTextFile(MyFileSP) while not tso.atendofstream text = TSO.readline message = trim(text) wend ' close TextStreamObject and ' destroy local variables to relase memory TSO.close Set TSO = Nothing Set FSO = Nothing %>

<% dim dbDriver dim dbDatabase dim dbUser dim dbPass dbDriver = "{mysql}" dbDatabase = "ads" dbUser = "warnet2000" dbPassword = "patrick" Set oConn = Server.CreateObject("ADODB.Connection") Set ors = Server.CreateObject("ADODB.Recordset") oConn.Open "Driver=" & dbDriver & "; Database=" & dbDatabase & "; Uid=" & dbUser & ";Pwd=" & dbPassword & ";" Query = "select * from banner where bannerpos = 1" ors.Open Query, oConn,1,1 while not ors.EOF response.write "

" ors.MoveNext wend %>

<% Set ors4 = Server.CreateObject("ADODB.Recordset") Query4 = "select * from banner where bannerpos = 4" ors4.Open Query4, oConn,1,1 while not ors4.EOF response.write "" response.write "" ors4.MoveNext wend %>			<% Set ors2 = Server.CreateObject("ADODB.Recordset") Query2 = "select * from banner where bannerpos = 2" ors2.Open Query2, oConn,1,1 while not ors2.EOF response.write "" response.write "" ors2.MoveNext wend %>

<% call format_tgl(now) %>	Daftar Warnet \| User Login \| SMS \| Chat

Profil dan Jasa

<% Set ors9 = Server.CreateObject("ADODB.Recordset") Query9 = "select * from banner where bannerpos = 9" ors9.Open Query9, oConn,1,1 while not ors9.EOF response.write "" response.write " Rp 400.000,- " ors9.MoveNext wend %>

Situs Berita

Situs Hiburan

Warnet2000 disediakan untuk melayani komunitas warnet di seluruh Indonesia. Pada situs ini dapat dilihat daftar warnet yang berlaku sebagai directory warnet seluruh Indonesia. Warnet2000 menyediakan fasilitas daftar warnet secara online.

Breaking News

Berita Warnet2000

<% MyFile = "warnet.txt" Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TSO = FSO.OpenTextFile(MyFile) while not tso.atendofstream baris=TSO.readline pj = len(baris) id = trim(left(baris,6)) brspesan = trim(mid(baris,6,pj-5)) response.write "" response.write brspesan response.write "" response.write "
" wend ' close TextStreamObject and ' destroy local variables to relase memory TSO.close Set TSO = Nothing Set FSO = Nothing %>

Berita-berita lain

<% MyFile1 = "lain.txt" Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TSO = FSO.OpenTextFile(MyFile1) while not tso.atendofstream baris=TSO.readline pj = len(baris) id = trim(left(baris,6)) brspesan = trim(mid(baris,6,pj-5)) response.write "" response.write brspesan response.write "" response.write "
" wend ' close TextStreamObject and ' destroy local variables to relase memory TSO.close Set TSO = Nothing Set FSO = Nothing %>

<% Set ors7 = Server.CreateObject("ADODB.Recordset") Query7 = "select * from banner where bannerpos = 7" ors7.Open Query7, oConn,1,1 while not ors7.EOF response.write "" response.write " Rp 200.000,-

" ors7.MoveNext wend %>

<% Set ors11 = Server.CreateObject("ADODB.Recordset") Query11 = "select * from banner where bannerpos = 11" ors11.Open Query11, oConn,1,1 while not ors11.EOF response.write "" response.write " Rp 300.000,-

" ors11.MoveNext wend %>

<% Set ors12 = Server.CreateObject("ADODB.Recordset") Query12 = "select * from banner where bannerpos = 12" ors12.Open Query12, oConn,1,1 while not ors12.EOF response.write "" response.write " Rp 300.000,-

" ors12.MoveNext wend %>

Kolom

<% Set ors3 = Server.CreateObject("ADODB.Recordset") Query3 = "select * from banner where bannerpos = 3" ors3.Open Query3, oConn,1,1 while not ors3.EOF response.write "" response.write " Rp 300.000

" ors3.MoveNext wend %>

Situs Teknik

<% Set ors5 = Server.CreateObject("ADODB.Recordset") Query5 = "select * from banner where bannerpos = 5" ors5.Open Query5, oConn,1,1 while not ors5.EOF response.write "" response.write " Rp 100.000,-

" ors5.MoveNext wend %>

<% Set ors10 = Server.CreateObject("ADODB.Recordset") Query10 = "select * from banner where bannerpos = 10" ors10.Open Query10, oConn,1,1 while not ors10.EOF response.write "" response.write " Rp 100.000,-

" ors10.MoveNext wend %>

<% Set ors6 = Server.CreateObject("ADODB.Recordset") Query6 = "select * from banner where bannerpos = 6" ors6.Open Query6, oConn,1,1 while not ors6.EOF response.write "" response.write " Rp 200.000,-

" ors6.MoveNext wend %>

<% Set ors8 = Server.CreateObject("ADODB.Recordset") Query8 = "select * from banner where bannerpos = 8" ors8.Open Query8, oConn,1,1 while not ors8.EOF response.write "" response.write " Rp 100.000

" ors8.MoveNext wend %>

	Best viewed with internet explorer
	Copyright © 2001 Warnet2000