SIYB :: Thuc hien Chuong trinh

<% dim sotof, sohvtof, sosyb, soiyb, sohviyb, sohvsyb sohviyb=0 sohvsyb=0 Set cn=Server.CreateObject("ADODB.Connection") cn.open sDSN,"","" 'Tof strSQLtof="Select * from Training" set RcTof=Server.CreateObject("ADODB.Recordset") RcTof.open strSQLtof,cn,1,1 sotof=RcTof.RecordCount RcTof.Close set RcTof=nothing 'Number of Facilitator Tof strSQLtofhv="Select * from Facilitator" set RcTofhv=Server.CreateObject("ADODB.Recordset") RcTofhv.open strSQLtofhv,cn,1,1 sohvtof=RcTofhv.RecordCount RcTofhv.Close set RcTofhv=nothing 'SYB strSQLsyb="Select * from SYB" set RcSYB=Server.CreateObject("ADODB.Recordset") RcSYB.open strSQLsyb,cn,1,1 sosyb=RcSYB.RecordCount Do until(RcSYB.EOF) if (RcSYB("female")<>"") then sohvsyb=sohvsyb+RcSYB("female") end if if (RcSYB("male")<>"") then sohvsyb=sohvsyb+RcSYB("male") end if RcSYB.MoveNext loop RcSYB.Close set RcSYB=nothing 'IYB strSQLiyb="Select * from IYB" set RcIYB=Server.CreateObject("ADODB.Recordset") RcIYB.open strSQLiyb,cn,1,1 soiyb=RcIYB.RecordCount do until (RcIYB.EOF) if (RcIYB("males")<>"") then sohviyb=sohviyb+RcIYB("males") end if if (RcIYB("females")<>"") then sohviyb=sohviyb+RcIYB("females") end if RcIYB.MoveNext Loop RcIYB.Close set RcIYB=nothing cn.Close set cn=nothing %> SIYB :: Thuc hien Chuong trinh

Tính đến tháng 5/2005, kết quả triển khai chương trình SIYB như sau:

<%=sotof%>71 khoá đào tạo giảng viên đào tạo được <%=sohvtof%>756 Cán bộ Hướng dẫn. Đây là chương trình đào tạo cho các cán bộ của Tổ chức Đối tác về cách thức triển khai đào tạo SYB và IYB.
Thông qua mạng lưới các Tổ chức Đối tác, đã có <%=sosyb%>631 khoá đào tạo SYB cho <%= sohvsyb%>16.854 doanh nhân và 195 khoá đào tạo IYB cho 5.347<%=sohviyb%> doanh nhân.
Ngoài ra, 3.436 doanh nhân đã tham gia chương trình đào tạo “Tăng cường khả năng kinh doanh qua sóng phát thanh” được thực hiện tại các tỉnh Kiên Giang, Đồng Nai, Hải Phòng và Yên Bái.

Lời thông cáo | Phản hồi