div {            font-size:13px;  } 
#menu UL {            FONT-SIZE: 12px;   } 
A {            font-size:13px;  } 
A:visited  {           COLOR: navy;   } 
A:active     {           COLOR:navy;   } 
A:link  {           COLOR: navy;   } 
A:hover  {           COLOR: navy;   } 
A.listitem:visited { COLOR: navy; } 
A.listitem:active  { COLOR: navy;  } 
A.listitem:link       { COLOR: navy;               } 
A.listitem:hover  { COLOR: navy;  } 

DIV.post     {  PADDING-LEFT: 20px;        line-height: 16pt; } 
DIV.posttitle {                PADDING-BOTTOM: 8px;    } 

.posttitle A:visited { font-size:14px; } 
.posttitle A:active  { font-size:14px; } 
.posttitle A:link       { font-size:14px; } 
.posttitle A:hover  { font-size:14px; } 

DIV.itemdesc       { FONT-SIZE: 11px; }

.itemdesc A:visited  { font-size:11px; } 
.itemdesc A:active  { font-size:11px; } 
.itemdesc A:link  { font-size:11px; } 
.itemdesc A:hover  { font-size:11px; } 
.footer   { FONT-SIZE: 11px;  }
<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
  fs.createtextfile(filename)
    set f=fs.getfile(filename)
           s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
          else
    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(1, -2)
    s=ts.readline+1
    ts.close
end if
application(“visitor”)=s
end sub

sub session_onstart
session.timeout=5
application(“visitor”)=application(“visitor”)+1
set f=fs.getfile(filename)
     Set ts = f.OpenAsTextStream(2, -2)
      


ts.writeline (cstr(application(“visitor”)))
ts.close
end sub
</script>
<%
s=cstr(application("visitor")+10^8)
s=mid(s,2,8)
for i=1 to 8
   response.write "<img src='https://www.okasp.com/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>