---

<% Keta = 6 Filename = "D:\Inetpub\wwwroot\fuji-electronics\Counter\count.txt" On Error Resume Next Set f = Server.CreateObject("Scripting.FileSystemObject") Set Inf = f.OpenTextFile(filename, 1, False, False) Count = Inf.ReadLine Inf.Close Count = Count + 1 Set Outf = f.CreateTextFile(filename, True, False) Outf.WriteLine Count Outf.Close b = Right(String(Keta, "0") & Count, Keta) For i = 1 To Keta w = "" Response.Write(w) Next %>

FUJI ELECTRONICS AMERICA INC.
MARINER COURT 3625 DEL AMO BLVD.#240, TORRANCE, CALIFORNIA 90503
PHONE:(310)214-5100 FAX:(310)214-5105
Copyright(C) 1996, FUJI ELECTRONICS AMERICA INC. All Rights Reserved.

E-Mail to kohtake@fuji-electronics.com