[an error occurred while processing this directive] <% Dim Dataku,koneksi,SQLku %> <% Set koneksi=Server.CreateObject("ADODB.Connection" ) %> <% koneksi.open "DSN=pengunjung" %> <% SQLku="SELECT SUM(hit) As Total FROM hitstatis" %> <% Set Dataku=Server.CreateObject("ADODB.Recordset") %> <% Dataku.Open SQLku, koneksi %> Untitled Document
Make your own free website on Tripod.com
Yayasan Adi Upaya
YASAU

Kepala Staf TNI - Angkatan Udara

 

 

Tentang Universitas Nurtanio Bandung :Sejarah, Visi / Misi, Simbol, Petinggi, Struktur Organisasi, Kontak, fasilitas, Peta, Menuju Universitas Nurtanio Bandung, ...

Pendaftaran :Prosedur pendaftaran mahasiswa Universitas Nurtanio Bandung ,...

Fakultas Universitas Nurtanio Bandung: Program Sarjana,Program Diploma,...

Kemahasiswaan Universitas Nurtanio Bandung :Beasiswa, biaya kuliah, unit kegiataan mahasiswa,...

Kalender Akademik : Penerimaan Mahasiswa baru ...

PENGUMUMAN

 

 

 

INFO UNNUR

 

 

 

 

 

Kampus I:

Jl. Pajajaran No. 219 Lanud Husein S

Bandung 40174

Tel/Fax : (022) 6034484

E-mail : unnur@bdg.centrin.net.id


Kampus 1I:

Jl. Casa No. 2 Lanud Sulaeman Bandung

Tel : (022) 5407178 Fax : 5420486

E-mail : fisipunnur@bdg.centrin.net.id

 

 

<% JumlahHit = Dataku("Total") %>

Anda Pengunjung ke : <% =JumlahHit %>

<% SQLku="SELECT * FROM hitstatis " %> <% Set Dataku = Server.CreateObject("ADODB.Recordset") %> <% Dataku.Open SQLku, koneksi, AdopenKeySet, Adlockoptimistic %> <% Dataku.Movelast %> <% Dataku.Addnew %> <% Dataku.Fields("hit") = 1 %> <% Dataku.Fields("tanggal") = Date %> <% Dataku.Update %>