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

关于要求将上报的05年康庄工程建设计划进行排序的通知

04-9-12 市康庄办

各县（市、区）康庄办：

接省康办通知，要求对已上报的05年康庄工程建设计划项目（省补部分）按项目的重要进行排序，以便省康办删改。请各县康办在网站或公用邮箱（jhkzb@126.com）下载原上报的计划，排序后，于17日前传回fangxiangzheng@163.net邮箱。

附件一：上报的05年康庄工程建设计划（winrar压缩文件）

附件二：上报的04年康庄工程建设调整计划（winrar压缩文件）

注：如下载的文件打不开，请到公用邮箱（jhkzb@126.com）下载未压缩文件

金华市乡村康庄工程办公室

2004.9.12

关闭