Kemaskini terakhir: 19.5.2005
English version


<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & Server.MapPath ("/japanese/asp/db1.mdb") Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT hits from table1 Where counter = 2", Conn, 1,3 ''Rs.addnew ''RS.movelast hits = Rs("hits") hits = hits + 1 Rs("hits") = hits Rs.update cnt= Cstr(hits) cntlen=len(hits) response.write "

" for i = 1 to cntlen Response.Write "" & " " Next response.write "
" set Rs = nothing set Conn = nothing %>





Web Counter
Eddie Bauer Furniture

 
Berita Terkini

Berita Utama


Untuk berita-berita sila lawati Berita 2004

 



Kolam di Pusat Informasi Muayah di Sipitang

Acara akan datang
 
Laporan
  • Bengkel "Learning Through Friends on Environment" pada 24 - 25 Mei 2005 di Likas Square
  • Pelancaran Buku "Environment Education Work Book" pada 25 Mei 2005 di Lahad Datu oleh TYT Sabah
  • Bengkel kedua mengenai plot tetap pada 24 - 26 Mei 2005 di Inobong.
 


This webpage is best viewed in 800 x 600 resolution
© Copyright 2002 - 2003 by Unit of Science & Technology. All rights reserved.

Laman web ini lebih baik dilayari dengan resolusi 800 x 600
© Hakcipta terpelihara 2003 oleh Unit Sains & Teknologi.