<% 'put hit in traffic or repeat_traffic beenhere = request.cookies("seenbob") if beenhere = "true" then sql = "select visits from bob_repeat_traffic where date_year = " & year(now) & " and date_month = " & month(now) & " and date_day = " & day(now) rs.open sql if rs.eof then sql = "insert into bob_repeat_traffic (date_year, date_month, date_day, visits) values (" & year(now) & ", " & month(now) & ", " & day(now) & ", 1)" dbconn.execute sql else sql = "update bob_repeat_traffic set visits = visits + 1 where date_year = " & year(now) & " and date_month = " & month(now) & " and date_day = " & day(now) dbconn.execute sql end if else sql = "select visits from bob_traffic where date_year = " & year(now) & " and date_month = " & month(now) & " and date_day = " & day(now) & " and feature = 'homepage'" rs.open sql if rs.eof then sql = "insert into bob_traffic (date_year, date_month, date_day, feature, visits) values (" & year(now) & ", " & month(now) & ", " & day(now) & ", 'homepage', 1)" dbconn.execute sql else sql = "update bob_traffic set visits = visits + 1 where date_year = " & year(now) & " and date_month = " & month(now) & " and date_day = " & day(now) & " and feature = 'homepage'" dbconn.execute sql end if rs.close end if response.cookies("seenbob") = "true" response.cookies("seenbob").expires = #November 25, 2005# 'credit referer if one exists if request("dp") <> "" then sql = "update bob_referers set visits = visits + 1 where ad_tag = '" & request("dp") & "'" dbconn.execute sql end if dbconn.close %>

feedback | Web hosting provided by Hostway