%@LANGUAGE="VBSCRIPT"%> <% Dim rs__newid rs__newid = "1" If (request.querystring("newid") <> "") Then rs__newid = request.querystring("newid") End If %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_conn_STRING rs.Source = "SELECT * FROM News WHERE NewsId=" + Replace(rs__newid, "'", "''") + "" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> <% Dim rsdt Dim rsdt_numRows Set rsdt = Server.CreateObject("ADODB.Recordset") rsdt.ActiveConnection = MM_conn_STRING rsdt.Source = "SELECT * FROM News WHERE Typeid=1 and tjnews=1 order by dateandtime desc" rsdt.CursorType = 0 rsdt.CursorLocation = 2 rsdt.LockType = 1 rsdt.Open() rsdt_numRows = 0 %> <% Dim rs315 Dim rs315_numRows Set rs315 = Server.CreateObject("ADODB.Recordset") rs315.ActiveConnection = MM_conn_STRING rs315.Source = "SELECT * FROM News WHERE Typeid=3 and tjnews=1 order by dateandtime desc" rs315.CursorType = 0 rs315.CursorLocation = 2 rs315.LockType = 1 rs315.Open() rs315_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 8 Repeat1__index = 0 rsdt_numRows = rsdt_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 8 Repeat2__index = 0 rs315_numRows = rs315_numRows + Repeat2__numRows %>
|
||||||||||||||||||||||||||||||||||||
|
为优化发展环境,提高行政效能,辉县市工商局成立网上纪检投诉中心,职能是对全市工商行政管理部门及其工作人员履行职责情况进行监督,受理社会各界、国内外客商对工商行政管理部门及其工作人员的投诉,并依照有关规定予以查处。
|
|||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||
| 主办单位:辉县市工商行政管理局 策划制作 :辉县市工商局信息中心 投诉举报:12315 通信地址:河南省辉县市文昌路东段 |
||||||||||||||||||||||||||||||||||||