<%
	Dim Stats
Set Stats = Server.CreateObject ("WDK.Stats")
 
Stats.CounterFile = Server.MapPath("counter.xcnf")

Response.ContentType = "image/png"
Response.BinaryWrite ImageCounter

Public Function ImageCounter()
    Dim DImage
    Set DImage = Server.CreateObject ("DynImage.DynImage.1")
    DImage.Open 88, 31
    DImage.Color = &H666666
    DImage.FillColor = &HFFFFFF
    DImage.Rectangle 1, 1, 87, 30
    DImage.FontFace = "Verdana"
    DImage.FontSize = "12"
    DImage.FontWeight = 700
    Dim txtLine1, txtLine2
    txtLine1 = "LADA"
    txtLine2 = "America"
    DImage.TextOut 6, 2, txtLine1
    DImage.FontWeight = 400
    DImage.TextOut DImage.TextWidth(txtLine1) + 5, 2, txtLine2
    DImage.Color = &HFF6600
    DImage.TextOut 6, DImage.TextHeight(txtLine1) + 5, Stats.Counter
    ImageCounter = DImage.Image
End Function


	
%>