Error Type:
Microsoft VBScript runtime (0x800A003E)
Input past end of file
/aspphp/My WebMaster/asp/countertxt.asp, line 14
แก้ไงครับ ผมเด็กฝึก
<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fa=fs.createTEXTfile(Server.MapPath("counter.txt"))
Set f=fs.OpenTEXTfile(Server.MapPath("counter.txt"))
counter=f.ReadAll
if Session("Visitor")="" Then
counter=counter+1
f.write counter
Session("Visitor")=counter
Session.Timeout=30
End if
f.close
strcount=right("0000000"&counter,7)
for i=1 to len(strcount)
Response.Write"<img src=./counterdata/"&mid(strcount,i,1)&".gif alt=www.webhot.tk>"
next
%>
Load balance : Server 00
