<%
dim sql
id=request.querystring("id")
if request.querystring("id")="" then
response.end
end if
sql="update infor set hits=hits+1 where id="&request.querystring("id")
conn.execute(sql)
set rs=server.createobject("adodb.recordset")
sql="select * from Infor where id="&request.querystring("id")
rs.open sql,conn,3,2
%>
