<% fp = Server.MapPath("aspcount.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) ct = ct + 1 Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) a.Close %>

Click here to see sample page 1 : page 2 : completion certificate.

Macromedia Flash Player 7 required. © 2005 SIK Center. Website Created by Worlds by Design. Email: skatoor@hotmail.com <%=ct%> visitors since 26.03.05