Developer Series

<% Function ProTop(Keyword) Dim topRs,topSql Dim topCode topSql="Select top 4 * from TsdProduct where ProCom='"&Keyword&"'" Set topRs=Server.CreateObject("Adodb.RecordSet") topRs.open topSql,conn,1,1 if topRs.eof then topCode="

error

"&chr(13) else topCode=""&chr(13) while not topRs.eof topCode=topCode&""&chr(13) else topCode=topCode&""&chr(13) topRs.movenext end if topCode=topCode&""&chr(13) wend topCode=topCode&"

"&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&"

"&chr(13) topCode=topCode&" "&topRs("ProName")&"

"&topRs("ProName")&"

"&chr(13) topRs.movenext if topRs.eof then topCode=topCode&"

"&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&"

have no record

"&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&""&chr(13) topCode=topCode&"

"&chr(13) topCode=topCode&" "&topRs("ProName")&"

"&topRs("ProName")&"

"&chr(13) end if topRs.close Set topRs=nothing response.write topCode End Function %> Developer Series

Integrated Drive Unit

Stainless Steel Standard Gate Series

Road Gate Series

Pseudo Classic Series

Guard Booth

Flag Poles

Speed Breaker, Car Localizer , Corner Fender

Developer Series

Hongmen’s electric retractable gates are the finest examples of modern high technology and production technology. When technology reaches the highest level, it transcends the physical state and becomes art. A Hongmen gate comprises numerous components and each component is fused so naturally and seamlessly with others to become a complete gate. Despite of its complex composition and structure, each Hongmen is designed and developed for simplicity and ease in operation.


Asion Dragon	Century Dragon