★☆ Selamat Datang Ke Laman Web Kein Hing ★☆

★☆ Welcome To Kein Hing Homepage ★☆          

Kein Hing Industry Sdn Bhd(KHI) was incorporated on 14th March  1981 . From it’s humble beginning in producing casing for florescent lamps and air conditioner parts,  KHI has managed to carve a niche in the areas of sheet metal forming, precision machining and components assembly and even design and fabricate full set of tooling in-house. Notably, KHI was also one of the pioneer local companies to venture into precision cold forging technology as part of its horizontal diversification plan.

KHI now supplies to major industries such as the automotive, electronic components, home appliances, and audio-visual equipment industries.

KHI has moved a step forward by producing consumer products for gas appliances under the brand name “ZENNE” . Zenne’s  name is parallel with Eco-Technology and Eco-Friendly gas appliances products.

The Zenne gas appliances, which received keen interest from the local and oversea markets, has been gaining steadily acceptance and confidence. It is also noteworthy that Zenne has achieved the standard recognized by Japan Gas Appliance Inspection Association (JIA) and successfully penetrates into Hong Kong , Singapore , Vietnam and Pakistan market

KHI  is also certified with ISO9001:2000 and ISO14001: 2004.

KHI aspires to become an “A Class” company of the same category in a broad bandwidth, offering high quality products, throughout South East Asia region. With numerous awards and proven track of records, KHI welcomes all its’ business partners, whether be it customers, suppliers or investors to come together collectively to strive for “A” class achievement.

 

<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number Response.Write("You Are Visitor Number
") 'Display the hit count as text 'Response.Write(lngVisitorNumber) 'Loop to display graphical digits For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count Response.Write("") Next %>