Problema su passaggio dati da form

[robertobel]

Problema su passaggio dati da form

Salve ho un problema sul passagio dati da form, in particolare, ho costruito un form che deve passare dati in forma text e caricare un file su una cartella contenute nalle cartella " public" del server

Nel form ho questi dati in forma testo e il caricamento di un file da inviare :

<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data" action="caricalezioni2014.asp">

<input  type="text" value="<% = strpsw %>"size="40" name="pw">
<input  type="text" value="<% = strcognome %>"size="40" name="cg">
<input  type="text" value="<% = strnome %>"size="40" name="no">
<input  type="text" value="<% = strcognome & " " & strnome %>"size="40" name="cogno">    


<INPUT TYPE=FILE SIZE=40 NAME="FILE1">

Quando apro la maschera io riesco a visualizzare i dati scritti nell'input.
Nel file caricalezioni2014.asp ho questo script

<% Set Upload = Server.CreateObject("Persits.Upload.1")

dim strpw
strpw = Upload.Form("pw")
response.Write("titolo2" & strcn )
strpw = Replace ( strpw, "'", "''" )
if len(strpw) = 0 then
%> <!-- <META HTTP-EQUIV="REFRESH" CONTENT="0; --> <%
else
end if

dim strcg
strcg = Upload.Form("cg")
response.Write("titolo 3" & strcn )
strcg = Replace ( strcg, "'", "''" )
if len(strcg) = 0 then
%> <!-- <META HTTP-EQUIV="REFRESH" CONTENT="0; /allerta.htm"> --> <%
else
end if

dim strno
strno = Upload.Form("no")
response.Write("titolo 4" & strcn )
strno = Replace ( strno, "'", "''" )
if len(strno) = 0 then
%> <!--<META HTTP-EQUIV="REFRESH" CONTENT="0; /allerta.htm"> --> <%
else
end if

dim strcn
strcn = Upload.Form("cogno")
strcn = Replace( strcn, "'", "''" )
response.Write("titolo 1" & strcn )

percorso=Server.MapPath("/public/" & strcn)
Upload.Save(percorso)

Set File = Upload.Files("FILE1")
filename=File.FileName

Ora il problema è che i dati dell'input in forma text non vengono ricevuti dalla pagina caricalezioni2014.asp, mentre il file viene salvato regolarmente in " public" .

Roberto