Passare un valore

[carlo55]

Scusate la mia profonda ignoranza avrei per cortesia bisogno di aiuto:

Ho dei form nella prima pagina con cui ivio dei dati ad una seconda pagina per l'inserimento nel DB e creo un documento rtf alla fine se tutto va a buon fine passo alla terza pagina dove vorrei inserire un link per aprire il codumento.
Di seguito lo script della seconda pagina:

'dichiaro le variabili che contengono i dati
Dim sede, prot, data, oggetto, diff_gest, ufficio, fine,

var_sede = Request.Form("sede")
var_prot = Request.Form("prot")
var_data = Request.Form("data")
var_og = Request.Form("oggetto")
var_di_ge = Request.Form("diff_gest")
var_ditta = Request.Form("ufficio")
var_fine = Request.Form("fine")

SQL = "INSERT INTO determina"
SQL = SQL & "("
ecc. ecc.


If esito = True Then

%>
<%
'Per leggere il documento
Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = FSO.GetTempName

Set f = fso.OpenTextFile(Server.MapPath("mod_word\art_100_ p_5.rtf"), 1)
'Leggo tutto il contenuto del documento
Documento = f.ReadAll
'chiudo
f.Close
Set f = Nothing

sede = Request.Form("sede")
proto = Request.Form("prot")
data = Request.Form("data")
oggetto = Request.Form("oggetto")
diff = Request.Form("diff_gest")
uff = Request.Form("ufficio")
final = Request.Form("fine")

Documento = Replace(Documento, "sede", sede)
Documento = Replace(Documento, "prot", proto)
Documento = Replace(Documento, "1data", data)
Documento = Replace(Documento, "oggetto1", oggetto)
Documento = Replace(Documento, "oggetto2", oggetto)
Documento = Replace(Documento, "difficolta", diff)
Documento = Replace(Documento, "ufficio", uff)
Documento = Replace(Documento, "fine", final)

modulo_2 = Request.Form("prot")

Set f = fso.OpenTextFile(Server.MapPath("det_WORD\" & modulo_2 & ".rtf"), 2, True)
%>

<%
Response.Redirect(el_fine.asp)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>

Per poter passare alla terza pagina il valore di modulo_2 come posso fare ?????
Nella speranza di essermi fatto capire un caro saluto Carlo

[carlo55]

Mi datre una mano per cortesia - VE ne sarei grato Carlo

[Mems]

Con una form e un campo di tipo hidden che contiene il valore da passare ed un pulsante che fa il submit della form verso pagina 3 dove recuperi il dato con request.form("nomeCampoHidden")
Easy.

PS.
Cos'è il "codumento"?

[carlo55]

Grazie per la risposta - Cos'è il "codumento"? ho sbagliato volevo scrivere documento.
Vorrei evitare di utilizzare submit e campo hidden, vorrei invece utilizzare qualcosa (request, cookies, session o altro che non saprei data la mia ignoranza) che mi dia la possibilità di passare la variabile modulo_2 dalla seconda alla terza pagina
Carlo

[Mems]

Allora crea un link e in queryString passi il valore e lo recuperi con request.queryString

[carlo55]

In effetti quelo vorrei fare ma inutilmente ci provo in tutte le manmiere ma non rieco a passare nulla (sicuramente è la mia ignoranza)

faccio così sulla seconda pagina:
modulo_2 = Request.Form("prot")

sulla terza pagina:
var_per = request.querystring("modulo_2")

Variabile <%= var_per %>
Ma non vedo nulla.
Di nuovo grazie Carlo

[FxAndrea]

Devi mettere il link alla pagina 3 e passare il valore della variabile.

Pag 2

Vai alla pagina 3

Pag 3

Dim Modulo2

Modulo2 = Request.QueryString("modtwo")

[carlo55]

Nel ringraziarTI ho fatto come hai detto ma niente
ho fatto così nella seconda pagina
<%
'Per leggere il documento
Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = FSO.GetTempName

Set f = fso.OpenTextFile(Server.MapPath("mod_word\art_100_ p_5.rtf"), 1)
'Leggo tutto il contenuto del documento
Documento = f.ReadAll
'chiudo
f.Close
Set f = Nothing

sede = Request.Form("sede")
proto = Request.Form("prot")
data = Request.Form("data")
oggetto = Request.Form("oggetto")
diff = Request.Form("diff_gest")
uff = Request.Form("ufficio")
final = Request.Form("fine")

Documento = Replace(Documento, "sede", sede)
Documento = Replace(Documento, "prot", proto)
Documento = Replace(Documento, "1data", data)
Documento = Replace(Documento, "oggetto1", oggetto)
Documento = Replace(Documento, "oggetto2", oggetto)
Documento = Replace(Documento, "difficolta", diff)
Documento = Replace(Documento, "ufficio", uff)
Documento = Replace(Documento, "fine", final)

Set f = fso.OpenTextFile(Server.MapPath("det_WORD\" & modulo_2 & ".rtf"), 2, True)
modulo_2 = Request.Form("prot")
%>

<%
'pag3.asp?modtwo=modulo_2
Response.Redirect(el_fine.asp?modtwo=modulo_2)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>

nella terza pagina:
Dim Modulo2
Modulo2 = Request.QueryString("modtwo")
Variabile <%= Modulo2 %>

Non succede nulla - ahimè - Buona serata Carlo

[carlo55]

Grazie a tutti sbatterei veramente la testa al muro sono due girni che ci batto la testa e non contento ho rotto le scatole a questo forum scusatemi sbagliavo il redirect, in effeti era da scrivere così
Response.Redirect("el_fine.asp?modtwo=" & modulo_2)
Di nuovo scusatemi e un caro saluto a tutti Carlo

[FxAndrea]

Non ti preoccupare, l'importante è imparare.