Sau những ngày đầu xuân Nhâm Thìn hòa mình cùng dòng chảy náo nức đón xuân của cả nước, các cán bộ nhân viên của Ban Quản lý Rừng đã tề tụ đông đủ về hội trường đơn vị để tham gia buổi họp mặt đầu năm,...Xem tiếp
Nhân dịp tết nguyên đán Nhâm Thìn 2012, ngày 18 tháng 01 năm 2012, các đồng chí Lãnh đạo Thành ủy, Hội đồng Nhân dân, Ủy ban Nhân dân, Ủy ban Mặt trận tổ quốc, các Sở,...Xem tiếp
Với mong muốn giúp các em học sinh có điều kiện tiếp cận và học tập thực tế tại môi trường thiên nhiên trong lành, bổ ích để cảm nhận được những giá trị thực chất từ những bài học trong sách vở...Xem tiếp
Rừng ngập mặn Cần Giờ - Khu dự trữ sinh quyển thế giới đầu tiên của Việt Nam – khu căn cứ địa kháng chiến chống giặc ngoại xâm hào hùng của quân và dân ta – khu nghiên cứu khảo cổ học về các Giồng di tích thời kỳ Sa Huỳnh...Xem tiếp
Được sự chấp thuận của UBND huyện Cần Giờ, vào ngày 10/01/2012, Ban quản lý Rừng phòng hộ đã tổ chức Hội nghị tổng kết năm 2011 và đề ra mục tiêu, nhiệm vụ trọng tâm năm 2012...Xem tiếp
Bạn là một người yêu thiên nhiên, thích du lịch đó đây để được khám phá những điều mới lạ và cũng để cho tinh thần thoải mái sau những khoảng thời gian vật lộn với công việc thường nhật...Xem tiếp
Được ví như “ốc đảo xanh” của TP.HCM bởi những con sông đan xen, uốn lượn dẫn nước nuôi sống những cánh rừng xanh bạt ngàn của Khu dự trữ Sinh quyển rừng ngập mặn Cần Giờ...Xem tiếp
Ngày 23 tháng 11 năm 2011, trường đại học Khoa học Xã hội Nhân văn thành phố Hồ Chí Minh phối hợp với câu lạc bộ AEON 1% Nhật Bản thuộc tập đoàn AEON Nhật Bản tổ chức cho đoàn sinh viên quốc tế gồm sinh viên 3 nước Nhật- Thái- Việt thuộc “Chương trình giao lưu sinh viên Châu Á – AEON 1%” tham quan rừng ngập mặn Cần Giờ...Xem tiếp
Ngày 24 tháng 12 năm 2011, Trung tâm Bảo tồn Sinh vật biển và phát triển công đồng (MCD) phối hợp với Sở Tài nguyên-Môi trường Tỉnh Nam Định tổ chức tham quan học tập tại khu dữ trữ sinh quyển Cần Giờ,....Xem tiếp
Một sân chơi hoàn toàn mới mẻ dành cho các bạn trẻ, những ai sôi nổi, năng động, thích khám phá, thích được thử thách và luôn muốn “hoạt náo tối đa 24/24”....Xem tiếp
Chào bạn! Có khi nào bạn tự hỏi rằng: vì một lý do nào đó, mình bị lạc giữa một khu rừng bao la thì sẽ như thế nào? Sống ra sao, ăn gì, uống gì, tồn tại bằng cách nào trước những mối nguy hiểm mà ngay chính bản thân cũng chưa biết được...Xem tiếp
Qua hai lần tổ chức thành công Hội thi “tìm hiểu về Rừng ngập mặn” cho các em học sinh trên địa bàn huyện Cần Giờ đã mang lại hiệu quả tích cực trong công tác truyền thông, giáo dục môi trường cũng như nâng cao nhận thức về tầm quan trọng của Rừng ngập mặn cho các em...Xem tiếp
Hội thi “Tìm hiểu Rừng ngập mặn Cần Giờ” là một trong những hoạt động truyền thông nâng cao nhận thức về bảo vệ môi trường và rừng ngập mặn nổi bật của BQL Rừng phòng hộ Cần Giờ mà đối tượng hướng đến là các em học sinh...Xem tiếp
Rừng ngập mặn Cần Giờ - Khu dự trữ Sinh quyển thế giới đầu tiên của Việt Nam, niềm tự hào to lớn của không chỉ người dân nơi đây mà còn của toàn thể những người yêu màu xanh và sự kỳ vĩ của thiên nhiên...Xem tiếp
Nhằm tạo một sân chơi thật sự bổ ích cho học sinh trong các buổi tham quan học tập ngoại khóa đồng thời đưa các em đến gần hơn với Rừng ngập mặn.....Xem tiếp
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data.mdb")
set rs = Server.CreateObject("ADODB.recordset")
%>
<%
Dim OldVal
call GetCurrentValue() 'GETS THE CURRENT VALUE FROM THE DATABASE.
call IncrementText() 'INCREMENTS THE OLD VALUE AND UPDATES THE DATABASE.
call DisplayText() 'DISPLAYS THE UPDATED VALUE FROM THE DATABASE.
%>
<%
sub GetCurrentValue()
SQL = "select counter from CounterTable" 'SQL STATEMENT TO GET THE VALUE
set rs = conn.execute(SQL) 'EXECUTE THE STATEMENT
OldVal = rs("counter") 'STORE THE VALUE IN OldVal VARIABLE
End Sub
sub IncrementText()
OldVal = OldVal + 1 'INCREMENT THE VALUE
SQL = "update CounterTable set [counter]= '"& OldVal & "'" 'SQL STATEMENT TO UPDATE THE DATABASE
set rs = conn.execute(SQL) 'EXECUTE THE STATEMENT
End Sub
sub DisplayText()
SQL = "select counter from CounterTable" 'SQL STATEMENT TO GET THE VALUE
set rs = conn.execute(SQL) 'EXECUTE THE STATEMENT
response.write("
" & rs("counter") & "
") 'DISPLAY ON THE BROWSER
End Sub
%>
<%
rs.close 'CLOSE RECORDSET
set rs = nothing
conn.close 'CLOSE CONNECTION
set conn = nothing
%>
