<% if ( Request.ServerVariables("HTTP_REFERER") <> "") then if ( InStr(1, Request.ServerVariables("HTTP_REFERER"), "marksfridayfunnies") <= 0) then dim url, spos database = server.MapPath(".") & "\jokes.mdb" set rst = server.CreateObject("adodb.recordset") set conn = server.CreateObject("adodb.connection") conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & database conn.Open %><% url = Request.ServerVariables("HTTP_REFERER") if ( InStr(1, url, "mail.yahoo.com") > 0) then url = "http://mail.yahoo.com" spos = InStr(9, url, "/") if ( spos > 0) then url = Left(url, spos - 1) insert = false sql = "SELECT LCOUNT FROM IN_LINKS WHERE DDATE=" & Day(Now) & " AND MDATE=" & Month(Now) & " AND YDATE=" & Year(Now) & " AND LINK_NAME='" & url & "'" set rst = conn.Execute(sql) if ( rst.eof) then insert = true rst.close() if ( insert) then sql = "INSERT INTO IN_LINKS (LINK_NAME, DDATE, MDATE, YDATE, LCOUNT, LIST) VALUES ('" & url & "', " & Day(Now) & ", " & Month(Now) & ", " & Year(Now) & ", 1, FALSE)" rst.Open sql,conn,adOpenStatic,adLockReadOnly else sql = "UPDATE IN_LINKS SET LCOUNT=LCOUNT + 1 WHERE LINK_NAME = '" & url & "'" rst.Open sql,conn,adOpenStatic,adLockReadOnly end if end if end if %>