<%@ Language=VBScript %> <% option explicit %> G M A C - Garment Manufacturers Association in Cambodia
Nr.175, Jawaharlal Nehru Blvd., (Street 215), SK Phsar Dem Kor, KH Tuol Kork, 12159  
Phnom Penh, Cambodia | Fax +855-23-311181 | Phone +855-23-301180  
Email: [email protected]  
design by Interquess   
 
WELCOME TO THE WEBSITE OF G M A C!
IT IS MY PLEASURE TO WELCOME ALL VISITORS TO OUR WEBSITE.

WE HOPE TO OFFER YOU ALL THE INFORMATION YOU SOUGHT WHETHER FOR GENERAL KNOWLEDGE OR THE DEVELOPMENT OF BUSINESS OPPORTUNITIES.

IN FACT, THE GMAC WAS ESTABLISHED FOR THESE MAIN PURPOSES, TO SHARE WITH ALL THE WIDE AREAS OF POSSIBILITIES WITHIN THE INDUSTRY AND ALL OTHER SERVICE OPPORTUNITEIS RELATED TO THIS GRADUALY EXPANDING INDUSTRY.

WHILE IN MANY COUNTRIES, THE GARMENT INDUSTRY IS JUST ONE OF MANY INDUSTRIES, IN CAMBODIA IT IS THE MAIN INDUSTRY.

ON ACCOUNT OF ITS IMPORTANCE, THE GMAC WORKS VERY CLOSELY WITH THE GOVERNMENT TO FACILITATE EFFICIENT DISCHARGE OF BUREAUCRACY ON ONE HAND AND CO-OPERATIES WITH THE LABOUR MOVEMENT TO ENSURE OBSERVATION OF BASIC LABOUR STANDARDS ON THE OTHER.

PROGRAMS TO UPGRADE QUALITY WITHIN THE INDUSTRY IS ON-GOING. AS THE LABOUR FORCE GAIN SKILL ON THE JOB, PRODUCTS EXPORTED CONTINUES TO ATTRACT MORE AND MORE NEW BUYERS. COUPLED THIS WITH A HIGH STANDARD OF INTERNATIONAL COMPLIANCE, THE GARMENT INDUSTRY IN CAMBODIA IS MAKING A VERY SIGNIFICANT IMPACT IN THE WORLD.

WE HOPE YOU ENJOY AND FIND OUR INFORMATION USEFUL.


WITH BEST REGARDS,

VAN SOU IENG
CHAIRMAN


<% sub writeMembers(sAlpha) dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString dim sSQL sSQL = "SELECT * FROM members WHERE CompanyName LIKE 'a%' OR CompanyName LIKE 'A%' ORDER BY companyName ASC;" if instr("0123456789bcdefghijklmnopqrstuvwxyz",sAlpha) AND sAlpha<>"" then sSQL = "SELECT * FROM members WHERE CompanyName LIKE '" & sAlpha & "%' OR CompanyName LIKE '" & UCase(sAlpha) & "%' ORDER BY companyName ASC;" dim rsMembers Set rsMembers = Conn.Execute(sSQL) with response .write("") ' .write("") end with dim sAltColor, sIscolored sAltColor = "#8B9FC0" sIscolored = false while not rsMembers.EOF with response dim sPopUpScript sPopUpScript = "openMemberPop('" & rsMembers("memberID") & "');" sIscolored = not sIscolored .write("") .write("") .write("") end with rsMembers.moveNext wend response.write("
CompanyContact Person
") .write("
") .write(rsMembers("CompanyName") + "
") rsMembers.close set rsMembers = nothing Conn.close set conn = nothing end sub sub writeAlphaJump(sActiveLetter) dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString dim sLetters sLetters = "0123456789abcdefghijklmnopqrstuvwxyz" response.write("") dim i for i = 1 to len(sLetters) dim sSQL sSQL = "SELECT * FROM members WHERE CompanyName LIKE '" & mid(sLetters,i,1) & "%' OR CompanyName LIKE '" & UCase(mid(sLetters,i,1)) & "%' ORDER BY companyName ASC;" dim rsMembers Set rsMembers = Conn.Execute(sSQL) if not rsMembers.EOF then with response if mid(sLetters,i,1)=sActiveLetter then .write("") else .write("") end if end with end if next response.write("
") .write("
") .write("" & UCase(mid(sLetters,i,1)) & "") .write("
") .write("
") .write("" & UCase(mid(sLetters,i,1)) & "") .write("

") rsMembers.close set rsMembers = nothing Conn.close set conn = nothing end sub function findFirstLetter dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString dim sSQL sSQL = "SELECT companyName FROM members ORDER BY companyName ASC;" dim rsMembers Set rsMembers = Conn.Execute(sSQL) if not rsMembers.EOF then sActiveLetter = lcase(left(rsMembers("companyName"),1)) end if rsMembers.close set rsMembers = nothing conn.close set conn = nothing findFirstLetter = sActiveLetter end function function countMembers dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString dim rsMembers set rsMembers = Server.CreateObject("ADODB.Recordset") rsMembers.Open "SELECT CompanyName FROM members", Conn, adOpenStatic, adLockOptimistic,adCmdText dim nRecordCount nRecordCount = rsMembers.recordcount rsMembers.close set rsMembers = nothing conn.close set conn = nothing countMembers = nRecordCount end function %>