<%
Dim InUPL
InUPL = Request.querystring("InUPL")

if (InUPL<>"ON") then
Response.Redirect "../default.asp"
else
End if

Dim CurrUT, CurrID, CussACC
CurrUT = Request.querystring("NomeUT")
CurrID = Request.querystring("IdUT")
CussACC = Request.querystring("AccUT")
%>
HO RISOLTO COSI' VA BENE! MI FUNZIONA MA FORSE C'E' UN mODO PI§ SEMPLICE
UNA DOMANDA C'è della documentazione sullo script di BAOL da scaricare?

<form action="runupload.asp method="post" enctype="multipart/form-data">
<input name="GG" type="text" id="GG" size="2" maxlength="2">
<input name="MM" type="text" id="MM" size="2" maxlength="2"> /
<input name="AAAA" type="text" id="AAAA" size="4" maxlength="4">
<textarea name="DocDescr" cols="66" rows="3"
<input name="FileName" type="file" id="FileName">

<input name="Mod2Insert1" type="image" id="Mod2Insert1" value="Invia"src="pulsinserisci.jpg" width="70" height="22" border="0">
</form>

(codice file runupload.asp)


<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetServerTimeOut 10
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath "/public"
oUpload.Upload

if (oUpload.Form("GG")<>"19") then
Response.Redirect "../default.asp"
else
oUpload.SaveAll
Set oUpload=Nothing
Application("GblAccess") = "ON"
Response.Redirect "adminmod.asp?NomeUT=" & CurrUT & "&IdUT=" & CurrID & "&AccUT=" & CussACC
End if
%>