Condor-TR Asp Kodlama Sayaç
<%
'Set to 1440 if You want increment once a day each User
Response.Expires=0
Response.write"Sitemize şuana kadar "
If Application("Sayaç")= "" THEN
Application("Sayaç")= 1
Else
Application("Sayaç") = Application("Sayaç")+1 'Her siteye girişte sayaç 1 artsın
End If
'DISPLAY ZEROS(JUST FOR A GOOD LOOK)
If Application("Sayaç")<=9 THEN
Response.Write"00000"
End If
If Application("Sayaç")<=99 And Application("Sayaç")>9 THEN
Response.Write"0000"
End If
If Application("Sayaç")<=999 And Application("Sayaç")>99 THEN
Response.Write"000"
End If
If Application("Sayaç")<=9999 And Application("Sayaç")>999 THEN
Response.Write"00"
End If
If Application("Sayaç")>99999 THEN
Application("Sayaç")=1
End if
Response.Write(Application("Sayaç"))
%>
