|
<%
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 "![](http://www.bbec.sabah.gov.my/asp/CounterImg/") " & " "
Next
response.write " |
"
set Rs = nothing
set Conn = nothing
%>
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.
|
|
|
