<%
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"))
%>