Forestry Administration: Community Forestry

<%@LANGUAGE="VBSCRIPT"%> Forestry Administration: Community Forestry <% Dim QCF Dim QCF_numRows dim ProID Set QCF = Server.CreateObject("ADODB.Recordset") QCF.ActiveConnection = MM_CFonWEB_STRING QCF.Source = "SELECT Query2.ProvinceID as ProvinceID, Query2.Province as Province, Query2.ProvinceKH as ProvinceKH, Query2.CountOfCFID AS CountOfCF, Query3.CountOfVillage AS CountOfVillage, Query3.SumOfPopulation AS SumOfPopulation, Query3.SumOfCF_member AS SumOfCFmember FROM Query2 INNER JOIN Query3 ON Query2.ProvinceID = Query3.ProvinceID ORDER BY Int(Query2.ProvinceID);" QCF.CursorType = 2 QCF.CursorLocation = 2 QCF.LockType = 3 QCF.Open() QCF_numRows = 0 '--------------------------->>>>>>>>>>> Data Record set <<<<<<<<<<<--------------------------- %>

?subject=CF by provice Khmer?&body=List down your Name and position before your comment." onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image12','','../Pic/MenuKh/KH-CommentOver.gif',1)">

shKmn_éRBeQIenAkm<úCa

") else response.write("") end if response.write("") response.write("") SumCF = SumCF + QCF.Fields.Item("CountOfCF").Value if isnull(QCF.Fields.Item("CountOfVillage").Value)= false then response.write("") SumVillage= SumVillage + QCF.Fields.Item("CountOfVillage").Value else response.write("") end if if isnull((QCF.Fields.Item("SumOfPopulation").Value))=true then response.write("") else response.write("") SumPopulation = SumPopulation + QCF.Fields.Item("SumOfPopulation").Value end if if isnull(QCF.Fields.Item("SumOfCFmember").Value)=true then response.write("") else response.write("") SumCFMember = SumCFMember + QCF.Fields.Item("SumOfCFmember").Value end if response.write("") qcf.movenext i=i+1 ELSE qcf.movenext END IF Wend %>

" & QCF.Fields.Item("ProvinceID").Value ) response.write("	" & trim(QCF.Fields.Item("ProvinceKH").Value) & "	" & setcama(QCF.Fields.Item("CountOfCF").Value,False) & "	" & setcama(QCF.Fields.Item("CountOfVillage").Value,False) & "	0	" & "0" & " nak;
	extÁ	shKmn_	PUmi	cMnYnRbCaBlrdæ	smaCikshKmn_
<% dim i dim SumVillage,SumCF,SumPopulation SumVillage=0 SumCF=0 SumPopulation=0 i=0 while (Not QCF.EOF) IF QCF.Fields.Item("ProvinceID").Value <> 0 THEN if i mod 2 then response.write("
	srub	<%=setcama(SumCF,False)%>	<%=setcama(SumVillage,False)%>	<%=setcama(SumPopulation,False)%> nak;	<%=setcama(SumCFMember,False)%> nak;

<% QCF.Close() Set QCF = Nothing function SetCama(Numbers,DecimalPointYesNo) ThousandDevideString = "/" DecimalPoint="." If Numbers > 0 Then dot = False For K = 1 To Len(Numbers) If Mid(Numbers, K, 1) = "." Then strright = Mid(Numbers, K, 3) If strright = "." Or strright = "" Then strright = DecimalPoint & "00" Else strright = Mid(Numbers, K + 1, 2) If Len(strright) = 1 Then strright = strright & "0" End If End If StrLeft = Mid(Numbers, 1, K - 1) If StrLeft = "" Then StrLeft = "0" End If dot = True Exit For End If Next If dot = True Then lenght = Len(StrLeft) If lenght > 3 Then j = 0 For K = 1 To lenght Step 3 j = j + 1 If K = 1 Then SetCama = Right(StrLeft, 3) Else SetCama = Right(StrLeft, 3) & ThousandDevideString & SetCama End If If Len(StrLeft) > 3 Then StrLeft = Left(StrLeft, Len(StrLeft) - 3) End If Next SetCama = SetCama & DecimalPoint & strright Else SetCama = StrLeft & DecimalPoint & strright End If Else If DecimalPointYesNo = True Then strright = DecimalPoint & "00" Else strright = "" End If StrLeft = Numbers lenght = Len(StrLeft) If lenght > 3 Then j = 0 For K = 1 To lenght Step 3 j = j + 1 If K = 1 Then SetCama = Right(StrLeft, 3) Else SetCama = Right(StrLeft, 3) & ThousandDevideString & SetCama End If If Len(StrLeft) > 3 Then StrLeft = Left(StrLeft, Len(StrLeft) - 3) End If Next SetCama = SetCama & strright Else SetCama = StrLeft & strright End If End If Else If DecimalPointYesNo = True Then SetCama = "0" & DecimalPoint & "00" Else SetCama = "0" End If End If end function %>