% @language="vbscript" %> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") counterval=1000 phypath=Server.MapPath("/upload/Responses/QIDcounter.dat") if fs.FileExists(phypath)=true then Set fhandle=fs.OpenTextFile(phypath,1) line=fhandle.ReadLine counterval=CInt(line) fhandle.Close Set fhandle=nothing end if counterval=counterval+1 %>
![]() |
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| a | a | a | a | a | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| © 2002 Corvaltec. All rights reserved | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||