<% Dim newsID newsID=getForm("id","get") conn.Exec "update tcweb_News set Visits=Visits+1 where newsID="&newsID&"", "exe" %>