<% Dim ContentID ContentID=Cint(filterPara(getForm("id","get"))) conn.Exec "update {prefix}Content set Visits=Visits+1 where ContentID="&ContentID&"", "exe" %>