Problema su passaggio dati da form

[batman]

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")

' riferimenti personali  
 dim strpw
 strpw = Upload.Form("pw") 
 response.Write("tutto fa spettacolo 2" & 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("tutto fa spettacolo 3" & strcn )
 strcg = Replace ( strcg, "'", "''" )
 if len(strcg) = 0 then 
 %>
 <!-- <META HTTP-EQUIV="REFRESH" CONTENT="0; > -->
 <%
else
end if

dim strno
 strno = Upload.Form("no") 
 response.Write("tutto fa spettacolo 4" & strcn )
 strno = Replace ( strno, "'", "''" )
 if len(strno) = 0 then 
 %>
  <!--<META HTTP-EQUIV="REFRESH" CONTENT="0; -->
 <%
else
end if
' fine riferimenti personali


dim strcn
 strcn = Upload.Form("cogno") 
 strcn = Replace( strcn, "'", "''" )

response.Write("tutto fa spettacolo 1" & strcn )


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

Upload.Save(percorso)
'On Error Resume Next
'response.write percorso
'response.write (request.Form)

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

 

[Paolo69]

Prova a sostituire, per esempio:

strpw = Upload.Form("pw")

con:

strpw = Request("pw")