% dim Hits dim vote dim VoteNum dim documentid Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open Application("ConnectionString") Call con.Execute("update documents set hits=isnull(hits,0)+1 where documentid=1239") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=1239") If Not (rs.EOF And rs.BOF) Then Hits = rs(0) Vote = rs(1) VoteNum = rs(2) Else Hits = 1 Vote = 5 VoteNum = 1 End If rs.Close Set rs = Nothing con.Close Set con = Nothing %>
|
|
|
省交通厅出台《浙江省乡村康庄工程建设争先活动考核办法》 |
|
|
|
为进一步加快农村公路建设步伐,确保本届政府任期内全面完成乡村康庄工程建设任务,促进我省农业农村现代化,省交通厅近期出台了《浙江省乡村康庄工程建设争先活动考核办法》。 该办法主要对2006年前提前达到双化目标(即路基100%等级化,路面100%硬化)的县(市、区)给予奖励,奖金额度为: 1、2004年达标的,以奖代补500万元,工作奖金40万元; 2、2005年达标的,以奖代补400万元,工作奖金30万元; 3、2004年达标的,以奖代补200万元,工作奖金20万元;
4、奖代补的资金,应专项用于通村公路及相关设施的完善,工作奖金主要用于奖励县(市、区)政府、交通主管部门主要领导、分管领导和乡村康庄工程办公室人员。 |