<%@ 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   
 
General
 
WEATHER

CNN Weather: Cambodia
This is CNN’s excellent weather site. Weather Cambodia. (weather.cnn.com)

BBC Weather: Cambodia
Weather in Cambodia from the BBC. (www.bbc.co.uk)

Yahoo Weather: Cambodia
Weather in Cambodia from Yahoo. (www.yahoo.com)


NEWS

Yahoo! Cambodia News
The latest news from Cambodia on the famous Yahoo! news portal. (search.news.yahoo.com)

BBC Cambodia News
Extensive news archives on Cambodia from the BBC. (news.bbc.co.uk)

Phnom Penh Post
The Phnom Penh Post provides national news about Cambodia as well as some more local and international news. An interesting read! (www.phnompenhpost.com)


CURRENCY CONVERTER


The Financial Times US Dollar Currency Converter
One of the most popular financial sites due to its high street presence and therefore also the most widely used US Dollar Currency Converter (mwprices.ft.com)

The Yahoo! Finance Center
The Yahoo! Finance Center provides up to date currency information. (finance.yahoo.com)

OANDA FX Converter
This on line currency converter includes the Cambodian Reil to US Dollar or Euro conversion, if you are interested as well as most other currencies of the world. (www.oanda.com)

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