<% Response.Expires=0 Response.write"Ziyaretçi Sayısı = " If Application("Count")= "" THEN Application("Count")= 1 Else Application("Count") = Application("Count")+1 End If If Application("Count")<=9 THEN Response.Write"0000" End If If Application("Count")<=99 And Application("Count")>9 THEN Response.Write"000" End If If Application("Count")<=999 And Application("Count")>99 THEN Response.Write"00" End If If Application("Count")<=9999 And Application("Count")>999 THEN Response.Write"0" End If If Application("Count")>99999 THEN Application("Count")=1 End if Response.Write(Application("Count")) %>

 

 

Enter