Problema su passaggio dati da form

[batman60]

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; URL=http://www.bellati-tonini.it/allerta.htm">  -->
 <%
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; URL=http://www.bellati-tonini.it/allerta.htm"> -->
 <%
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; URL=http://www.bellati-tonini.it/allerta.htm"> -->
 <%
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

[vic53]

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; URL=http://www.bellati-tonini.it/allerta.htm">  -->
 <%
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; URL=http://www.bellati-tonini.it/allerta.htm"> -->
 <%
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; URL=http://www.bellati-tonini.it/allerta.htm"> -->
 <%
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

I dati che vuoi passare li devi passare via querystring ...
la form action la devi modificare...
"caricalezioni2014.asp"
deve diventare

"caricalezioni2014.asp?cogno="+cogno.value+"&no="+no.value+"&pw="+pw.value+"&cg="+cg.value

nel file caricalezioni2014.asp
ricuperi i dati via querystring

dim no,cogno,pw,cg
no=request.QueryString("no")
cogno=request.QueryString("cogno")
pw=request.QueryString("pw")
cg=request.QueryString("cg")

ciao

[batman60]

I dati che vuoi passare li devi passare via querystring ...
la form action la devi modificare...
"caricalezioni2014.asp"
deve diventare

"caricalezioni2014.asp?cogno="+cogno.value+"&no="+no.value+"&pw="+pw.value+"&cg="+cg.value

nel file caricalezioni2014.asp
ricuperi i dati via querystring

dim no,cogno,pw,cg
no=request.QueryString("no")
cogno=request.QueryString("cogno")
pw=request.QueryString("pw")
cg=request.QueryString("cg")

ciao

ciaoper falo funzionare ho dovuto impostare l'actio cosi

action="caricalezioni2014.asp?cogno=<% = strcognome & " " & strnome %>&no=<% = strnome %>&pw=<% = strpsw %>&cg=<% = strcognome %>

grazie per l'idea

[vic53]

ciaoper falo funzionare ho dovuto impostare l'actio cosi

action="caricalezioni2014.asp?cogno=<% = strcognome & " " & strnome %>&no=<% = strnome %>&pw=<% = strpsw %>&cg=<% = strcognome %>

grazie per l'idea

Ok, i campi nome.value si utilizzano lato client, mentre quelli che hai usato tu li usi caricati da server
comunque vedo che hai risolto e sono contento di esserti stato di aiuto nello spirito del Forum
Ciao