<% 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 %>

图片新闻

  武义县召开康庄工程建设现场会

2004-6-24 来源:武义县交通局

 日前，武义县政府召开康庄工程建设现场会。会议要求各乡镇街道扎扎实实抓好康庄工程建设。一是要从政治的高度，进一步统一思想，提高认识，加强领导，制订具体的政策、措施，把这项工作真正落到实处。二是要明确目标，落实计划，保证康庄工程顺利实施。各乡镇要对未开工建设的项目认真梳理，逐一拿出具体实施计划表；交通部门抓紧做好前期工作，确保工程按照指标动工建设。三是要落实责任，加强管理。要在确保工程质量的同时，严把工程廉政建设关，严格施工安全操作规程，做到文明施工、安全施工，确保乡村康庄工程建设健康发展。

　

会场 图1

　

图2

图3

　

关闭窗口