% 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-8-1 来源:婺城区康庄办
|
|
2004年7月29日,婺城区康庄工程质量管理培训班在华景旅游饭店举行。各乡镇分管康庄工程的领导、乡镇康庄工程质量监督员、年度计划项目(已开工在建或已招标)所在行政村的质量监督员、婺城区康庄工程质量监理组、康庄办人员共150余人参加了培训,分管交通的婺城区副区长邢水成百忙之中抽时间参加了听课。 金华市交通工程质量监督站高工刘运化,康庄办副主任、工程师吕有盛分别对路基、路面、桥梁及交通工程等质量控制要点、竣工验收资料、建设程序、施工现场石灰水泥用量如何监控等方面等作了图文并茂的讲解和简单易懂的阐述。这次培训对提高乡镇、村工程质量管理人员的业务水平起到了很好的成效,为加强康庄工程现场质量管理提供了保障。 (季美珍)
|