<% if conn.Exec("select count(*) from {prefix}Visits where year(AddTime)="&Year(date)&" and month(AddTime)="&month(date)&" and day(AddTime)="&day(date),"r1")(0)>0 then conn.Exec"update {prefix}Visits set Visits=Visits+1 where year(AddTime)="&Year(date)&" and month(AddTime)="&month(date)&" and day(AddTime)="&day(date),"exe" else conn.Exec"insert into {prefix}Visits(Visits,AddTime) values(1,'"&date&"')","exe" end if %>