">
<%
response.expires=0
on error resume next
log_file_name=server.mappath(request.form("log_file_name"))
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(server.mappath(log_file_name))
If Err.number=53 then
'Log file is not found so let's create one
Set fstemp = server.CreateObject("Scripting.FileSystemObject")
Set filetemp = fstemp.CreateTextFile(log_file_name, true)
' true = file can be over-written if it exists
' false = file CANNOT be over-written if it exists
filetemp.WriteLine (1)
filetemp.Close
set filetemp=nothing
set fstemp=nothing
else
whichfile=log_file_name
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile, 1, False)
hits=Cint(thisfile.readline)
hits=hits+1
thisfile.Close
set thisfile=nothing
set fs=nothing
Set fstemp = server.CreateObject("Scripting.FileSystemObject")
Set filetemp = fstemp.CreateTextFile(log_file_name, true)
' true = file can be over-written if it exists
' false = file CANNOT be over-written if it exists
filetemp.WriteLine (hits)
filetemp.Close
set filetemp=nothing
set fstemp=nothing
end if
Set fso = Nothing
Set f = Nothing
%>
Prelievo del documento: <%=request.form("script_name")%>
Se l'operazione non dovesse avviarsi o andare a buon termine, per favore, comunicarlo a [info@vessella.it]