%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim rsCount
Dim rsCount_numRows
Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_connNcmt_STRING
rsCount.Source = "SELECT * FROM count"
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 1
rsCount.Open()
rsCount_numRows = 0
%>
<%
set updCount = Server.CreateObject("ADODB.Command")
updCount.ActiveConnection = MM_connNcmt_STRING
updCount.CommandText = "UPDATE count SET viewCount = viewCount +1 "
updCount.CommandType = 1
updCount.CommandTimeout = 0
updCount.Prepared = true
updCount.Execute()
%>
NCMT
<%
rsCount.Close()
Set rsCount = Nothing
%>