<% dim SQL,rs,hcnt,rsl,datel,lastDate,cnttotal,rs2,msgs set rsl=server.createobject("Adodb.recordset") datel=date rsl.open "Select * from hitcounter",conn,1,2 'response.Write("uploded") 'Response.End() if rsl.bof then rsl.addnew rsl("lastdate")=date rsl("cntdate")=1 rsl("cntmonth")=1 rsl("cntyear")=1 rsl("cnttotal")=1 rsl.update cnttotal=rsl("cnttotal") else lastdate=rsl("lastdate") if lastdate=cdate(datel)then rsl("lastdate")=cdate(datel) rsl("cntdate")=rsl("cntdate")+1 else rsl("lastdate")=cdate(datel) rsl("cntdate")=1 end if if month(lastdate)=month(cdate(datel))and year(lastdate)=year(cdate(datel))then rsl("cntmonth")=rsl("cntmonth")+1 else rsl("cntmonth")=1 end if if year(lastdate)=year(cdate (datel)) then rsl("cntyear")=rsl("cntyear")+1 else rsl("cntyear")=1 end if rsl("cnttotal")=rsl("cnttotal")+1 rsl.update cnttotal=rsl("cnttotal") end if hcnt=cnttotal %> Techno Services
 
 
    About Us
    Infrastructure
    Major Works
 
 
 Visitor number : <%=string(8-(len(trim(cStr(hcnt)))),"0") & hcnt%>
 
 
    About Us
    Infrastructure
    Major Works
 
Copyright 2006, All Rights Reserved with Techno-services, Website Powered by Hi Technology & Services