<% On error resume next dim tmpCountryName,tmpRegionName,tmpCityName,ipAddressVal dim alreadyAdded Dim subBtnVal alreadyAdded=False %> <% set dbconn=getDB() ipAddressVal=Trim(Request.ServerVariables("REMOTE_ADDR")) strSql="select sessionID from pages_hits where page_name='rules_byelaws_mex.asp' and ipaddress='" & FixQuotes(ipAddressVal) &"' and Year(visiteddate)=DatePart(year,getDate()) and Month(visiteddate)=DatePart(Month,getDate()) and Day(visiteddate)=DatePart(day,getDate()) and DatePart(hh,visiteddate)=DatePart(hh, getDate()) " Set rs=Server.CreateObject("ADODB.Recordset") set rs=dbconn.execute(strSql) if rs.bof=False then alreadyAdded=True End if rs.close If alreadyAdded=False Then If Ucase(Request.ServerVariables("REQUEST_METHOD"))="POST" Then subBtnVal=Trim(Request.Form("subbtn")) Else subBtnVal=Trim(Request.Querystring("subbtn")) End if If (subBtnVal="" or Len(subBtnVal)=0) Then %>

<% Else If Ucase(Request.ServerVariables("REQUEST_METHOD"))="POST" Then tmpCountryName=Trim(Request.Form("cnn")) tmpRegionName=Trim(Request.Form("rgn")) tmpCityName=Trim(Request.Form("cyn")) Else tmpCountryName=Trim(Request.Querystring("cnn")) tmpRegionName=Trim(Request.Querystring("rgn")) tmpCityName=Trim(Request.Querystring("cyn")) End if if isnull(tmpCountryName) or tmpCountryName="" Then tmpCountryName="UnknownCountry" if isnull(tmpRegionName) or tmpRegionName="" Then tmpRegionName="UnknownRegion" if isnull(tmpCityName) or tmpCityName="" Then tmpCityName="UnknownCity" Set rs=Server.CreateObject("ADODB.Recordset") strSql="select max(hitcounterno) from pages_hits where page_name='rules_byelaws_mex.asp'" set rs=dbconn.execute(strSql) if rs.bof=False then If Isnull(rs.Fields(0)) Then currHitsNo=0 Else currHitsNo=Cdbl(rs.Fields(0) ) End if End if rs.Close currHitsNo=currHitsNo+1 strSql="Insert into pages_hits (sessionID,visiteddate,ipaddress,hitcounterno,page_name,countryName,regionName,cityName) values ('"& FixQuotes(Session.SessionID) &"',getDate(),'"& FixQuotes(Request.ServerVariables("REMOTE_ADDR")) &"'," & FixQuotes(currHitsNo) & ",'rules_byelaws_mex.asp','"& FixQuotes(tmpCountryName) & "','" & FixQuotes(tmpRegionName) & "','"& FixQuotes(tmpCityName) & "')" dbconn.Execute strSql End if End if call freeDB() %>