%
if not isEmpty(request.QueryString("id")) then
id=request.QueryString("id")
else
id=1
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From pagenews where id="&id, conn,3,3
rs("counter")=rs("counter")+1
rs.update
nCounter=rs("counter")
rs.close
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From pagenews where id="&id, conn,3,3
%>