<% option explicit %> BTREE INFOTECH (P) LTD. Enterprise software and Web Development Solutions.

 

Home  About us  Products   Services   BTREEmail    BTREE shops    BTREE news   Jobs@ BTREE

 

Web Hosting   Clients   Reseller  Support   site Promotion  WAP@BTREE    e-Commerce

 

BTREE NEWS :

 

          

  Search this site

Advanced Search

User ID  

Password  


 Forget Password?

  At BTREE, it is fast, reliable, different
and gives you peace of mind. why?

 

     WEB HOSTING

WAP PORTAL

     

            

 

 

    E BUSINESS   

                    

                 SOFTWARE

                        

Linux - Free Software

Linux Training

 

 

 

 

 

 

This site is best viewed in 800X600 pixels in


Site designed and maintained by BTREE INFOTECH (P) LTD., btree@btreeit.com, Tel:+91-471-321224, +91-471-532834

mobile: 98460 22834 , 98470 62834     Fax:+91-471-330037

Copyright © BTREE INFOTECH (P) LTD.   All Rights Reserved.   Legal Notices and Terms of Use

 

Admin

<%' Are we being referred? Dim Referrer Referrer = "" If Request.ServerVariables("http_referer") <> "" Then ' Get hold of where we're being referred from. ' This is always a full URL... Referrer = Mid(Request("http_referer"), 8) Referrer = Left(Referrer, InStr(Referrer, "/") - 1) Referrer = LCase(Referrer) ' ignore it if we're from the local server... ' otherwise, add it to the log... else Referrer = "local host" end if LogClickThrough(Referrer) Function LogClickThrough(Byval referrer) Dim TheMonth , TheDay , TheYear TheMonth = Month(Now) TheDay = Day(Now) TheYear = Year(Now) 'Response.Write themonth 'Response.Write theday 'Response.Write theyear 'Response.Write referrer Dim c,rs, sql set c=server.createObject("adodb.connection") set rs=Server.CreateObject("ADODB.Recordset") c.Open "dsn=btreeit1;database=btreeit","btreeit","123med" rs.Open "select * from clickthroughs where referrer = '" &referrer & "' and month = " &Themonth & " and day = " & TheDay & " and year =" &TheYear,c,1,3 If rs.Eof then sql="insert into Clickthroughs values('"&themonth &"','"&theday &"','"&theyear &"','" &referrer &"',1)" else sql="Update Clickthroughs set tally = tally+1 where referrer = '" &referrer &"' and month = " & Themonth & " and day = " & TheDay & " and year =" &TheYear end if rs.close rs.Open sql,c,1,3 End Function %>