<%@ Language=VBScript %> <% option explicit %>

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

CONTACT US   Names Email Addresses Remarks CGTC [email protected] About Cambodia Garment Training Centre (CGTC) Info [email protected] About general information from GMAC Labor [email protected] Members seeking clarifications on labor matters Monitoring [email protected] Members seeking help on document processing matters Van Sou Ieng [email protected] Chairman, GMAC Ray Chew [email protected] Secretary General, GMAC David Van [email protected] Deputy Secretary General, GMAC

<% 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("

Company	Contact 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 %>