<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/dsql.asp"-->
<%
dim newsid,TgNum

if not isempty(request.QueryString("id")) then
	newsid=Clng(trim(request.QueryString("id")))
else
	response.Write("error")
	response.End()
end if

Set rs = Server.CreateObject("Adodb.RecordSet")				 
rs.Open "Select f_hits,TgNum from t_lp where id="&newsid,conn,3,3
if not rs.eof then
	num=rs(0)	
	TgNum=rs(1)
end if
rs.close
set rs=nothing
conn.execute("update t_lp set f_hits=f_hits+1 where id="&newsid)
response.Write("document.getElementById('Hits').innerHTML="""&num&""";"&chr(10))
response.Write("document.getElementById('TgNum').innerHTML="""&TgNum&""";")

call connclose()
%>