<!--#include file="conn.asp"-->
<!--#include file="InputDataValidate.asp"-->
<%
  Dim ContentID,SiteName,rs,sql,title,url,sql1,sql2
  ContentID = Clng(SafeRequest("ContentID"))
  SiteName=CStr(SafeRequest("SiteName"))
  SiteID=CStr(SafeRequest("SiteID"))


  sql1="update gov_counter set [clicks]=[clicks]+1 WHERE ContentID=" & ContentID & " and SiteName='" & SiteName & "'"
  sql2="insert into gov_counter(ContentID,Clicks,SiteName,SiteID) values (" & ContentID & ",1,'" & SiteName & "','" & SiteID & "')"
  
  set rs=server.CreateObject("adodb.recordset")
  sql = "select ContentID from gov_counter where ContentID=" & ContentID & " and SiteName='" & SiteName & "'"
  rs.open sql,sqlConn,1,1
  
  if Not rs.eof then
      ExecCommand sql1
  Else
      ExecCommand sql2
  End If

  set rs=server.CreateObject("adodb.recordset")
  sql = "select clicks from gov_counter where ContentID=" & ContentID & " and SiteName='" & SiteName & "'"
  rs.open sql,sqlConn,1,1
%>
document.write("<%=rs("clicks")%>")

<%
rs.close
set rs=nothing
sqlConn.close
set sqlConn=nothing
%>