<%@ 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   
 
THE EXECUTIVE COUNCIL




Van Sou Ieng
Chairman
PPS Ltd. (Cambodia)

Kong Sang
First Deputy Chairman
Q.M.I. Industrial C/L

Roger Tan
Second Deputy Chairman
Thai Pore Garment Manufacturing Co., Ltd.

Albert Tan
Treasurer
Suntex Pte. Ltd.

Larry Kao
Deputy Treasurer
Manhattan Textile and Garment Corp.

Robert Hwang
Executive Member
Da Joo Cambodia Ltd.

Jacky Y.K Mau
Executive Member
Gennon (Cambodia) Garment Manufacturing Ltd.

Cao Shu Guang
Executive Member
Huiying Enterprises (Cambodia) C/L

Ma Wen Qiang
Executive Member
In Fong (Cambodia) Garment C/L

Lee Thai Kit
Executive Member
June Textile C/L

Thomas Lo
Executive Member
King First Industrial Co., Ltd.

Dean Lewis
Executive Member
Luen Thai Garment (Cambodia) C/L

Tan Keat Chong
Executive Member
PCCS Garments Limited

Kan Chin Chen
Executive Member
Roo Hsing Garment Co., Ltd.

Steed Cheung
Executive Member
Sabrina (Cambodia) Garment Manufacturing Corp.

Qiang Chun
Executive Member
Su Tong Fang Group Ying Kan (Cam.) Garment

Francis So
Executive Member
Tack Fat Garment (Cambodia) Ltd.

Kiki Wang
Executive Member
Tai Yang Enterprises Co., Ltd.

Arun Premchan
Executive Member
Wearwel (Cambodia) Ltd.

K.Y.Ling
Executive Member
YGM (Cambodia) Ltd.
 
<% 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 %>