点击次数统计在ACCESS显示正常但在SQL操作有问题

点击次数统计DiaryHits在ACCESS显示正常,但ACCESS转为SQL时,新增加的日记,点击后击次数统计DiaryHits不显示问题,望高手帮忙下,谢谢!

ASP页面代码如下:

<%
 DiaryHits=rs("DiaryHits")+1
 rs("DiaryHits")=DiaryHits
 rs.update
End If
 rs.Close
 Set rs=Nothing

%>

<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr><td width="50%" valign=top>推荐日记： 
<%
Dim MaxElite,i,ErrMS
Set rs=Server.CreateObject("ADODB.Recordset")
 sql="SELECT * FROM MZExtend_Diary Where DiaryElite=1"
 rs.Open sql,conn,1,3

If rs.BOF And rs.EOF Then
ErrMS="<tr><td colspan=7 align=center>·无推荐日记</td></tr>"
Else

MaxElite=6
i=0
Do While Not rs.EOF
%>
·<a href="MZDiary_Index.asp?Action=DiaryView&DiaryID=<%=rs("DiaryID")%>" target=_blank><%=rs("DiaryTitle")%></a>[<%=rs("DiaryHits")%>] 
<%
rs.movenext
 i = i + 1
 If i >= MaxElite Then Exit Do
 Loop
 Response.Write ErrMS
End if
 rs.Close
 Set rs=Nothing
%>
</td>
<td valign=top>热门日记： 
<%
Set rs=Server.CreateObject("ADODB.Recordset")
 sql="SELECT * FROM MZExtend_Diary Order by DiaryHits DESC"
 rs.Open sql,conn,1,3

If rs.BOF And rs.EOF Then
ErrMS="<tr><td colspan=7 align=center>·无热门日记</td></tr>"
Else

MaxElite=6
i=0
Do While Not rs.EOF
%>
·<a href="MZDiary_Index.asp?Action=DiaryView&DiaryID=<%=rs("DiaryID")%>" target=_blank><%=rs("DiaryTitle")%></a>[<%=rs("DiaryHits")%>] 
<%
rs.movenext
 i = i + 1
 If i >= MaxElite Then Exit Do
 Loop
 Response.Write ErrMS
End if
 rs.Close
 Set rs=Nothing
%>
</td></tr></table>
<%
End Sub

补充：.NET技术 ,  ASP.NET