Email info1@landtoown.com
<%
Dim strPath, File, file2, x,liCount, j ,resfile, d, i ,fl
strPath = "counter7.txt"
strPath = Server.MapPath(strPath)
Set File = Server.CreateObject("Scripting.FileSystemObject")
set file2=File.OpenTextFile(strPath)
x=file2.readline
set resfile = File.createTextFile (strPath)
resfile.writeline(x+1)
liCount=Cstr(x+1)
j = Len(liCount)
d=7 - j
%>
<%
For i=1 to d step 1
Response.Write (" ")
Next
For i=1 to j step 1
fl="digi" + Mid(liCount, i , 1) + ".gif"
Response.Write ("![]() & (fl) & ) "
Next
%>
|
