%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%
Dim news
Dim news_numRows
Set news = Server.CreateObject("ADODB.Recordset")
news.ActiveConnection = MM_news_STRING
news.Source = "SELECT title, wenhao, time FROM news ORDER BY time DESC"
news.CursorType = 0
news.CursorLocation = 2
news.LockType = 1
news.Open()
news_numRows = 0
%> <%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 15
Repeat1__index = 0
news_numRows = news_numRows + Repeat1__numRows
%> <%
Dim MM_paramName
%> <%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
新建网页 1
|
|
|
|
|
|
|
|
| |
|
关于全市室内电梯安装施工安全管理会议
企业到会情况及处理意见的公示
各镇街(园区)安监组(站),各有关单位:
为切实加强室内电梯安装施工安全监督,督促和指导建筑施工、工程监理企业落实安全生产主体责任,预防和减少室内电梯安装安全事故的发生,我局于2011年12月8日召开了全市室内电梯安装施工安全管理会议,通报了我市今年以来建筑施工安全生产形势,提出了下一阶段我市室内电梯安装工程施工安全管理工作要求,并由广州奥的斯电梯有限公司东莞分公司负责人作出关于认真吸取事故教训、加强施工安全生产工作的发言。现将企业到会情况及处理意见公示如下:
一、企业到会情况
(一)本次全市室内电梯安装施工安全管理会议到会企业共58家,名单如下:
|
东莞市富士电梯有限公司 |
东莞市三洋电梯有限公司 |
东莞市魏丰电梯科技有限公司 |
|
东莞市华菱电梯有限公司 |
东莞市东升电梯有限公司 |
东莞市长城电梯有限公司 |
|
东莞市西门子电梯有限公司 |
东莞市东航电梯有限公司 |
东莞市川鑫电梯有限公司 |
|
东莞市华星电梯有限公司 |
东莞市日芝电梯有限公司 |
东莞市三星电梯有限公司 |
|
东莞市宝马电梯有限公司 |
东莞市大力士电梯有限公司 |
东莞市上菱电梯有限公司 |
|
东莞市东奥电梯有限公司 |
日立电梯(中国)有限公司东莞分公司 |
东莞市上海三菱电梯特约销售服务有限公司 |
|
广州奥的斯电梯有限公司东莞分公司 |
广东骏安电梯有限公司 |
东莞市莞菱电梯技术服务有限公司 |
|
东莞市富升电梯有限公司 |
东莞市佳胜电梯有限公司 |
广东台日电梯有限公司东莞分公司 |
|
东莞市长城广奥有限公司 |
上海三菱电梯有限公司东莞分公司 |
伟达电梯(深圳)有限公司东莞分公司 |
|
东莞市全灵特种设备工程有限公司 |
东莞市中凯电梯有限公司 |
东莞市瀛鑫电梯工程有限公司 |
|
东莞市奥通电梯有限公司 |
东莞市迅达电梯销售服务有限公司 |
东莞市运通电梯有限公司 |
|
东莞市德立电梯有限公司 |
东莞市塘厦机械厂 |
东莞市诚顺电梯有限公司 |
|
东莞市华日电梯有限公司 |
东莞市东江电梯有限公司 |
东莞市广日电梯经销有限公司 |
|
东莞市骏达电梯有限公司 |
东莞市凯鑫电梯有限公司 |
东莞市诚辉实业投资有限公司 |
|
东莞市恒泰电梯有限公司 |
东莞市天翔电梯起重设备有限公司 |
东莞市楠帆威电梯有限公司 |
|
东莞市张丰合号电梯有限公司 |
东莞市安博电梯有限公司 |
东莞市华宇电梯有限公司 |
|
东莞市群立电梯有限公司 |
东莞市华升电梯有限公司 |
东莞市诚达电梯有限公司 |
|
东莞市万菱电梯有限公司 |
东莞市三川电梯有限公司 |
东莞市新力电梯有限公司 |
|
东莞市悍马电梯起重机工程有限公司 |
东莞市环宇电梯有限公司 |
东莞市东菱电梯有限公司 |
|
蒂森电梯有限公司深圳分公司 |
|
|
(二)根据市质量技术监督局提供的电梯安装企业名单,本次全市室内电梯安装施工安全管理会议缺席企业共16家,名单如下:
|
东莞市快意电梯有限公司 |
东莞市川田电梯有限公司 |
广东迪宝电梯有限责任公司 |
|
东莞市华宝新奥电梯有限公司 |
巨人通力电梯有限公司东莞分公司 |
东莞市振兴快捷电梯公司 |
|
东莞市盈动电梯有限公司 |
东莞市中奥电梯有限公司 |
东莞市明兴电梯有限公司 |
|
东莞市永达电梯工程有限公司 |
东莞市西子电梯有限公司 |
东莞市日菱电梯有限公司 |
|
东莞市城飞电梯有限公司 |
东莞市秦岭电梯有限公司 |
东莞市科迈电梯起重设备工程有限公司 |
|
东莞市中堂恒丰电梯安装维修公司 |
|
|
二、对缺席企业的处理
对上述缺席全市室内电梯安装施工安全管理会议的企业,我站将暂停办理该企业的“在建工程电梯安装施工安全保障措施告知备案”事项。
东莞市建设工程安全监督站
二〇一一年十二月十三日
|
|
|
|
|
<%
news.Close()
Set news = Nothing
%>