<%@ LANGUAGE="VBSCRIPT" %> 
<!--#include file="articleconn.asp"--> 
<% 
on error resume next 
response.buffer=false 
dim sql 
dim rs 
dim listname 
dim articleid 
articleid=request("id") 
set rs=server.createobject("adodb.recordset") 
sql="update learning set hits=hits+1 where articleID="&articleid 
rs.open sql,conn,1,1   

response.redirect "list.asp?id="&articleid 
rs.close 
conn.close 
%> 