AIUTO script di BAOL

[giantv]

Un problema. vorrei recuprerare dei dati da campi input verificarli prima di fare un upload.

Ecco il codice della pagina HTML solo la form invio dati)

<form action="uploader.asp?Upload=1" method="post" enctype="multipart/form-data">
<input name="CampoTesto type="text" value="AAA" />
<input name="CampoFile" type="file" id="CampoFile" />
</form>

Ecco il codice del file Uploader.asp


<%
Dim oUpload
If (Request.querystring("Upload")="1") then
Set oUpload = new cUpload
oUpload.SetServerTimeOut 10
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath "UploadFolder"
oUpload.Upload
Response.write oUpload.Form("PIPPO")
oUpload.SaveAll
Set oUpload=Nothing
end if
%>

io in pratica apro la pagina di upload inviando la variabile Upload=1

ma non capisco... Supponiamo che io voglio legge dalla pagina di upload il contenuto del CampoTesto e se questo è = a AAA esegui l'upload altrimenti NO (è un esempio stupido ma da l'idea che mi serve controllare alcuni campi prima di fare l'upload e se tutto è verificato allora lo eseguo altrimenti no)

non riesco a capire (solita mia ignoranza abissale) dove si trova la sezione per verificare questo questi campi e nel caso continuare con l'upload oppure reinderizzare a un altra pagina.

MI POTETE AIUTARE?
info@kappanet.org

[Baol74]

oUpload.Form("CampoTesto"). Se non metti il nome dell'input corretto, nessuna documentazione potrà aiutarti.

Riprova:

[CODE]
<form action="uploader.asp?Upload=1" method="post" enctype="multipart/form-data">
<input name="CampoTesto" type="text" value="AAA" />
<input name="CampoFile" type="file" id="CampoFile" />
</form>
[CODE]

 
<% 
Dim oUpload 
If (Request.querystring("Upload")="1") then 
Set oUpload = new cUpload 
oUpload.SetServerTimeOut 10 
oUpload.AutoRename = False 
oUpload.Overwrite = true 
oUpload.SetPath "UploadFolder" 
oUpload.Upload 
Response.write oUpload.Form("CampoTesto")
oUpload.SaveAll 
Set oUpload=Nothing 
end if 
%>

[giantv]

<%
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
%>