impostare session all'on-change di menù a tendina

[mosquito70]

Ciao a tutti,
non so se il titolo è chiaro e spero che il testo di quello che vi chiedo lo sia di più.

Il problema è questo:
Ho una form di questo tipo chiamata modianagfileatta.asp

<form name="datiformpubb" method="POST" enctype="multipart/form-data" action="fileattaemai/upload.asp?codice=<%=request("codice")%>">
.....

<%
sqlselect = "SELECT * FROM ParaTipoEmai order by CODI_TIPO_EMAI"
Set record = Server.CreateObject("ADODB.Recordset")
record.Open sqlselect, cn
%>
<select name="CODI_TIPO_EMAI" class="campiNULL" >
<option value="">....</option>
<% do while not record.eof %>
<option value="<%=record("CODI_TIPO_EMAI")%>" <%if cint(record("CODI_TIPO_EMAI")) = cint("0"&request("vc_coditipoemai")) then response.write("SELECTED")%>> <%=record.Fields("DESC_TIPO_EMAI")%>
</option>
<% record.MoveNext
loop
%>

Ora quando eseguo l'upload (utilizzo quello di BAOL) ho necessita che alla fine della procedura di "scarico" (il file viene salvato correttamente su disco), io richiami la medesima form modianagfileatta.asp, in modo tale da poter inserire (attraverso una procedura pl/sql, che non influenza il problema) i parametri relativi al nome e al TIPO DI MAIL (ovvero proprio il parametro CODI_TIPO_EMAI)

La chiamata dopo l'esegui.asp deve essere del tipo

response.redirect "../modianagfileatta.asp?codice="&vn_codice&"&err=4&de scerro=File ricevuto&vc_nomefile="&nomefile&"&vc_coditipoemai= "& coditipoemai

Ma non riesco a fargli vedere tale valore
Ho provato così, inserendo questa istruzione

coditipoemai=request.form("CODI_TIPO_EMAI")

prima della response.redirect e

1. dopo l'esegui.asp e mi da questo errore

Oggetto Request, ASP 0207 (0x80004005)
Impossibile utilizzare l'insieme Request.Form dopo aver richiamato il metodo BinaryRead.

2. prima dell'esegui.asp e mi da quest'altro errore

Oggetto Request, ASP 0206 (0x80004005)
Impossibile richiamare il metodo BinaryRead dopo aver utilizzato l'insieme Request.Form.

Ero quindi arrivato alla conclusione che posso utilizzare solo una variabile di sessione, quando imposto (quindi cambio) il valore del tipo email

Ma non riesco a capire come fare?

[br1]

Nella procedura di upload sul server i dati del form inviati insieme al file vanno recuperati con una sintassi particolare... consulta la documentazione di BAOL.

ciao

[mosquito70]

Originariamente inviato da br1
Nella procedura di upload sul server i dati del form inviati insieme al file vanno recuperati con una sintassi particolare... consulta la documentazione di BAOL.

ciao

non riesco più a trovarla

[mosquito70]

Originariamente inviato da mosquito70
non riesco più a trovarla

L'ho trovata finalmente, ma non c'è nulla che spiega come risolvere il mio problemino.

Qualche suggerimento al volo?

Grazie infinite

[mosquito70]

Up

[mosquito70]

Sto cercando di tutto per poter risolvere questo problema. Ma mi sa che la ricerca sarà ancora lunga

Ho provato ricaricando all'onchange della select la stessa form, e poi assegnando con una request tale valore alla session.

Però, non so per quale motivo, non mi ricarica nemmeno la pagina!
Mi dice "Previsto oggetto" quando scelgo un valore nella "select"

Help me!


Questo è il codice (in rosso le parti "incriminate"). I commenti iniziali mi servono solo per poter vedere le request.write

<%
if request("err")="4" and session("vc_uplofile")="S" then

response.write "VC_FILE "& request("vc_file")
response.write "VC_NOMEFILE "& request("vc_nomefile")
response.write "VC_CODITIPOEMAI "& request("vc_coditipoemaiuplo")

session("vc_uplofile")=""

'iStoredProc = 4
'Set conn = Server.CreateObject("ADODB.Connection")
'set command = Server.CreateObject("ADODB.Command")
' conn.Open application("ConnDB")
'command.ActiveConnection = conn
'vc_user = session("vc_userprop")
'command.CommandText = "PR_MODIANAGFILEATTA"
'command.CommandType = iStoredProc
'set objParameter = command.CreateParameter ("VN_CODIPUBB",200,1,6,"")
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("VN_CODIPUBB",200,1,6,"")
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("VC_DESCNOMEFILEORIG",200,1,200,request("vc_file" ))
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("VC_DESCNOMEFILERINO",200,1,200,request("vc_nomef ile"))
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("VC_DESCNOMEFILERINO",200,1,200,request("vc_codit ipoemai"))
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("VC_USERPROC",200,1,50,vc_user)
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("VC_CODITIPOOPER",200,1,2,"I")
' command.Parameters.Append objParameter
'PAREMETRI OUTPUT
' set objParameter = command.CreateParameter ("vc_codifilesare",200,2,16)
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("vc_codierro",200,2,16)
' command.Parameters.Append objParameter
' set objParameter = command.CreateParameter ("vc_descerro",200,2,200)
' command.Parameters.Append objParameter
' command.Execute , , adExecuteNoRecords
' VERIFICO EVENTUALI ERRORI
' vn_codifile = command.Parameters("vc_codifilesare")
' vc_risuinse = command.Parameters("vc_descerro")
' vc_codirisuinse = command.Parameters("vc_codierro")
'Response.write "esito " & vc_risuinse

'response.redirect "modianagfileatta.asp?codice="&request("codice")&" &err="&vc_codirisuinse&"&descerro="&vc_risuinse
'END IF
else
%>



<SCRIPT LANGUAGE="JavaScript">


function f_gestcoditipoemai(url)
{
window.navigate(url);
}


function checkCommitinse()
{
function checkCommit()
{
document.datiform.submit();
}


</script>


<table class="tabella01" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top" class="menusx">

<table width="100%" border="0" cellpadding="2" cellspacing="1">

</table>


</p>

</td>
<td width="10" align="left" valign="top" bgcolor="#FFFFFF"></td>
<td width="*" valign="top" align="left" bgcolor="#FFFFFF" height="314">



</p>
<table class="tabellamappahelp" cellspacing="0" cellpadding="0">
<tr>
<td class="mappa">

Home\Risultanze\Bollettini\Modifica Bollettino Risultanze

</td>

<td class="help">

</td>

</tr>
</table>
<table class="campiform" cellspacing="0" cellpadding="0" width="100%">

<tr>
<td class="titolo">Inserimento allegato bollettino avvisi</td>

</tr>
<tr>
<td class="intrfunz">Consente di Completare/modificare i dati del
Bollettino delle Risultanze


</td>
</tr>
<tr>
<td valign="top">

<%
vc_user = session("vc_userprop")
response.write "Request "& request("vc_coditipoemai")

vc_coditipoemai=request("vc_coditipoemai")

response.write "CodiTipoEmai "& vc_coditipoemai

if vc_coditipoemai="" then
vc_coditipoemai= session("codi_tipo_emai")
else
session("codi_tipo_emai")=vc_coditipoemai
end if

session("codi_tipo_emai") =request("vc_coditipoemai")


if vc_user ="" then
response.redirect "timeoutt.asp"
end if

%>
<tr class=rigatabella>
<td align="center" class=rigatabella width="818" colspan="4" >
- FILE ALLEGATO INVIO MAIL -
</td>
</tr>
<tr class=rigatabella>
<td align="center" class=rigatabella width="818" colspan="4" >

<form name="datiformpubb" method="POST" enctype="multipart/form-data" action="fileattaemai/upload.asp?codice=<%=request("codice")%>">
<table cellspacing="2" cellpadding="0" width="100%">
<tr>
<td class="testolabel" >
File:
</td>
<td class="testolabel">
<input type="file" class="campinull" name="FILE_INPUT" value="<%request("vc_file")%>" size="60">
</td>
</tr>
<tr>
<td class="testolabel" >
Tipo Mail:
</td>
<td class="testolabel" colspan="2">
<%
sqlselect = "SELECT * FROM ParaTipoEmai order by CODI_TIPO_EMAI"
Set record = Server.CreateObject("ADODB.Recordset")
record.Open sqlselect, cn
%>

<select name="CODI_TIPO_EMAI" class="campiNULL" onchange="f_gestcoditipoemai('modianagfileatta.asp ?vc_file='+document.datiformpubb.FILE_INPUT.value+ '&vc_coditipoemai='+document.datiformpubb.CODI_TIP O_EMAI.value+'')">
ppp


<option value="">....</option>
<% do while not record.eof %>
<option value="<%=record("CODI_TIPO_EMAI")%>" <%if cint(record("CODI_TIPO_EMAI")) = cint("0"&request("vc_coditipoemai")) then response.write("SELECTED")%>> <%=record.Fields("DESC_TIPO_EMAI")%>
</option>
<% record.MoveNext
loop
%>
</select>
<%
'chiudo
record.Close
set record = Nothing
%>

</td>
</tr>
<tr>
<td class="testolabel" colspan="2">
<p align="center">
<input type="submit" name="Enter" value="Invia File" class="buttonoff" onMouseOver="this.className='buttonon'" onmouseOut="this.className='buttonoff'" />
</td>
</tr>
</form>
</table>
<%

sqlcont ="SELECT * FROM ANAGFILEATTA where codi_tipo_emai=2 "

Set rscont = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open application("ConnDB")
Set rscont.ActiveConnection = cn
rscont.Open sqlcont, cn
%>
<SCRIPT LANGUAGE="JavaScript">
<%
do while not(rscont.eof)
%>


function checkCommit<%=rscont("CODI_FILE_ATTA")%>() {
{

document.datiformpubb<%=rscont("CODI_FILE_ATTA")%> .submit();
}

<%
rscont.movenext
loop
%>
</script>

<%
vc_user = session("vc_userprop")
if vc_user="" then
response.redirect "timeoutt.asp"
end if

sql ="SELECT replace(a.rowid,'+','-') id , "_
&" a.DESC_NOME_FILE_RINO, "_
&" a.DESC_NOME_FILE_ORIG, "_
&" b.DESC_TIPO_EMAI "_
&" FROM ANAGFILEATTA a, "_
&" PARATIPOEMAI b "_
&" where a.codi_tipo_emai=b.codi_tipo_emai "_
&" and a.codi_tipo_emai=2 "

Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open application("ConnDB")
Set rs.ActiveConnection = cn
rs.Open sql, cn
%>
<tr>
<td colspan="3">
<table border="0" width="100%">
<tr class=rigatabella>
<td width="34%" class=rigatabella >Nome File</td>
<td width="34%" class=rigatabella >Tipo Mail</td>
<td width="12%" align="center" class=rigatabella >Elimina</td>
</tr>
<%
do while not(rs.eof)
%>
<form name="datiformpubb" method="post" action="procedure/pr_modianagfileatta.asp?vc_tipooper=U" >
<tr>
<input type="hidden" maxlength="50" name="vc_rowid" value="<%=rs("id")%>" size="40">

<input type="hidden" maxlength="100" name="DESC_NOME_FILE_RINO" value="<%=rs("DESC_NOME_FILE_RINO")%>" >
<input type="hidden" maxlength="100" name="DESC_NOME_FILE_ORIG" value="<%=rs("DESC_NOME_FILE_ORIG")%>" >

<td width="33%">
.jpg" target="_blank"><%=rs("DESC_NOME_FILE_ORIG")%>
</td>
<td width="33%" class="testolabel">
<%=rs("DESC_TIPO_EMAI")%></a>
</td>
<td width="12%">
<p align="center">
<a href="procedure/pr_modianagfileatta.asp?vc_tipooper=D&vc_rowid=<%= server.urlencode(rs("id"))%>&codice=<%=request("co dice")%>" title="Elimina">
[img]images/Icons/Delete.gif[/img] </a>

</p>




</td>
</tr>
</form>
<%
rs.movenext
loop
%>

</table>
</td>
</tr>
</table>
</td>
</tr>
</table>


</td>
</tr>


</table>


</td>
</tr>


</table>



<%end if%>