Questo è un modulo di una serie che devo terminare a breve.
Ne ho fatti altri, funzionanti , che però estraggono il valore da una sola tabella.
L'idea è quella di modulo che riceve dei dati dando la possibilità di cambiarli .
Il problema è che, spedendo il modulo , in pratica , esso "scompare " e non appare il modulo di conferma come invece dovrebbe fare . Sono bloccato da giorni e non capisco dove sia il problema.
Il modulo è mooooolto lungo, cosi ho tolto qualche input radio e text area per migliorarne la leggibilità,
codice:
<%@ Language=VBScript %>



<%c=trim(request("c"))%>




<html>
</script>
<head>

<title>sicurezza</title>
</head>

<body bgcolor="gold ">


<%if len(c)=0 then
id=trim(request("id"))



sql="SELECT sicurezza.id, sicurezza.nome, sicurezza.dispositivi,sicurezza.altro, "
sql=sql&" sicurezza.datapubb, "
sql=sql&" fonti sog.fonti, fontiuno.fontiuno "
sql=sql&" FROM (sicurezza INNER JOIN fonti sog ON "
sql=sql&" sicurezza.id = fonti sog.id) INNER JOIN fontiuno ON "
sql=sql&" fonti sog.fonti = fontiuno.id "
sql=sql&" where sicurezza.id='"&id&"';"
%>

<%

 set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn_base, adlockoptimistic, adcmdtable %>

<%
if rs.eof then %>
 <h1 >non si è trovato nessun documento 

     <input type="button" value="pagina precedente" onclick="history.back()"  id=button1 name=button1></h1>
<%response.end

else
%>
</td></tr>
<form method="post" name="q">
  <table align="center" bgcolor="LightSkyBlue" width="400" bordercolorlight="darkblue" border="5" bordercolordark="mediumblue" bordercolor="navy" id="TABLE1" height="659">
    <tr>
      <td align="center" bgcolor="ivory" width="636" height="51"><big><font size="6" color="red">sicurezza</font><big></big></big></td>
    </tr>
    <tr>
      <tr><td ><h5>nome</h5></td>
<td colspan="2" ><%=trim(request("nome"))%></td></tr>
    </tr>
    
    <tr><td width="662" ><h5>Nome</h5><input type=text name="nome" value="<%=trim(rs("nome"))%>" size="50"></td></tr>
    <tr>
      <td width="636" height="38">Nello svolgere la tua
        professione fai uso di dispositivi di protezione?</td>
    </tr>
    <tr>
      <%


 
  
      if trim(rs("dispositivi"))="si" then
      
         Response.Write "<td width='30'>si</td><td width='30'  >SI<input type='radio' name='dispositivi' value='si' checked></td></tr><tr>"
         Response.Write "<td  width='30'>no</td><td width='30' >No<input type='radio' name='dispositivi' value='no'></td></tr><tr>"
      else
         Response.Write "<td width='30'>si</td><td width='30' ' >SI<input type='radio' name='dispositivi' value='si'></td></tr><tr>"
         Response.Write "<td  width='30'>no</td><td width='30'  >No<input type='radio' name='dispositivi' value='no' checked></td></tr><tr>"
      End if           
      
  
 %>  
    <tr>
      <td width="636" height="19">Se no perchè? Scrivere :</td>
    </tr>
    <tr>
      <td width="569" height="78"><textarea name="altro" rows="5" cols="67" ><%=trim(rs("altro"))%></textarea></td>
      <td width="636" height="19">Se si quali?</td>
    </tr>
   
      
<tr><td><h5>Dispositivi </h5></td></tr>

<% set rs1 = Server.CreateObject("ADODB.RecordSet")
sql="select* from fontiuno "
rs1.open sql, conn_base, adlockoptimistic, adcmdtable
if not rs1.eof then
rs1.movefirst
do while not rs1.eof
trovato=""
rs.movefirst%>
<tr><td><%=rs1("fontiuno")%></td><td>
<% do while not rs.eof %>
<%if trim(rs1("id"))=trim(rs("fonti")) then
trovato="checked"
end if%> 

<%rs.movenext
loop%>

<input type=checkbox name="fonti" value="<%=rs1("id")%>;<%=rs1("fontiuno")%>" <%=trovato%>>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>

<%

 rs.movefirst %> 
 <%end if%>
 <%if len(c)=0 then
id=trim(request("id"))
sql="select * from sicurezza where id='"&id&"';"
%>

<%



 set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn_base, adlockoptimistic, adcmdtable %>

<%
if rs.eof then %>
 <h1 >non si è trovato nessun documento 

     
<%response.end

else rs.movefirst %> 

 
 
    </tr>
    <tr>
      <td width="636" height="19">Come integreresti i dispositivi che hai a dispositivisizione?</td>
    </tr>
    <tr>
        
    
           <td width="569" height="78"><textarea name="mansionisicurezza" rows="5" cols="54" ><%=trim(rs("mansionisicurezza"))%></textarea></td>
    </tr><tr>
      <td width="636" height="38">In generale, ritiene che le mansioni lavorative siano svolte in piena sicurezza per la sua salute?</td>
    </tr>
    <tr>
      
 
    
      <td width="636" height="38">Ha mai frequentato corsi relativi alla sicurezza degli infortuni?

        </td>
    </tr>
    <tr>
      <%


 
  
      if trim(rs("corsi"))="si" then
      
         Response.Write "<td width='30'>si</td><td width='30'  ><input type='radio' name='corsi' value='si' checked></td></tr><tr>"
         Response.Write "<td  width='30'>no</td><td width='30' ><input type='radio' name='corsi' value='no'></td></tr><tr>"
      else
         Response.Write "<td width='30'>si</td><td width='30' ' ><input type='radio' name='corsi' value='si'></td></tr><tr>"
         Response.Write "<td  width='30'>no</td><td width='30'  ><input type='radio' name='corsi' value='no' checked></td></tr><tr>"
      End if           
      
  
 %>  
    
    </tr>
   
      <tr><td width="662"><h5>data pubblicazione</h5></td></tr><tr>
<input type="hidden" name="datapubb" value="">
<td colspan="2" width="382"><select name="gg">
<option value="0" selected>giorno </option>
<%
for i=1 to 31

if i<10 then i="0"&cstr(i)%>
<option value="<%=i%>" <%if cint(day(date()))=cint(i) then%> selected<%end if%>><%=i%></option>
<%next %></select>
<select name="mm">
<option value="0" selected>mese</option>
<%
for i=1 to 12
if i<10 then i="0"&cstr(i)%>

<option value="<%=i%>" <%if cint(month(date()))=cint(i) then%> selected<%end if%>><%=i%></option>
<%
next %></select>
<select name="aa">
<option value="0" selected>anno</option>
<%
for i=1950 to 2020%>
<option value="<%=i%>"  <%if cint(year(date()))=i then%>selected<%end if%>><%=i%></option>
<%
next
%>
</select></td>
</tr>


<table>

<input type="hidden" name="id" value="<%=rs("id")%>">
<%
end if
rs.close
set rs=nothing
conn_base.close
set conn_base=nothing
%>
<input type="hidden" name="c" value="4">
<input type="button" value="pagina precedente" onclick="history.back()"  id=button3 name=button3>
ECCO A QUESTO PUNTO, CLICCANDO SU "MODIFICA" INVECE DI APPARIRE IL MODULO "ORANGE" CON I DATI DA CONFERMARE, SPARISCE TUTTO E RIMANE LA PAGINA CON IL BG COLOR "GOLD" DELLO SFONDO!!!1
<input type="submit" value="modifica"  id=submit2 name=submit2>

</td></tr>
</table></form>
<%end if%>

<%
if c="4" then
s_sicurezza_corsi=request("sicurezza_corsi")
sicurezza_corsi=split(s_sicurezza_corsi,",")
gg=trim(request("gg"))
mm=trim(request("mm"))
aa=trim(request("aa"))
datapubb=cstr(aa)&cstr(mm)&cstr(gg)
data=cstr(gg)&"/"&cstr(mm)&"/"&cstr(aa)

%>
    
        <table bgcolor="orange" align="center">
         <form method="post" name="a" action="m_sicurezza.asp">
          <tr>
            <td colspan="5">
              <h5>sicurezza</h5>
            </td>
          </tr>
          <tr>
            <td>
              <h5>dispositivisitivi</h5>
            </td>
            <td colspan="2"><%=request("fontiuno")%>
            </td>
          </tr>
          <tr>
            <td>
              <h5>nome</h5>
            </td>
            <td colspan="2"><%=request("nome")%>
            </td>
          </tr>
          <tr>
            <td>
              <h5>dispositivi</h5>
            </td>
            <td colspan="2"><%=request("dispositivi")%>
            </td>
          </tr>
          <tr>
            <td>
              <h5>altro</h5>
            </td>
            <td colspan="2"><%=request("altro")%>
            </td>
          </tr>
          
          
          
          <tr>
            <td>
              <h5>mansionisicurezza</h5>
            </td>
            <td colspan="2"><%=request("mansionisicurezza")%>
            </td>
          </tr>

            <td>
              <h5>mansioni lavorative siano svolte in piena sicurezza </h5>
            </td>
            <td colspan="2"><%=request("mansioni")%>
            </td>
          </tr>
            <td>
            
            <tr>
            <td>
              <h5>idonei </h5>
            </td>
            <td colspan="2"><%=request("idonei")%>
            </td>
          </tr>
            
            
            <tr>
            <td>
              <h5> </h5>
           
            <td>
              <h5> la sua conoscenza in tema di sicurezza sul lavoro sia</h5>
            </td>
            <td colspan="2"><%=request("conoscenza")%>
            </td>
          </tr>
<tr>
            <td>
              <h5>corsi infortuni 1 </h5>
            </td>
            <td colspan="2"><%=request("corsi")%>
            </td>
          </tr>

          <tr><td>
          
              <h5>Data pubblicazione</h5>
            </td>
            <td colspan="2"><%=data%>
            </td></tr>
         <tr><td  colspan="3" style="text-align:center">
  
<input type="button" value="pagina precedente" onclick="history.back()"  id=button2 name=button2>
<input type="submit" value="Inserisci nel db" id=submit1 name=submit1 ></td></tr>
   
          
          <input type="hidden" name="nome" value="<%=request("nome")%>">
          <input type="hidden" name="altro" value="<%=request("altro")%>">
          <input type="Hidden" name="fontiuno" value="<%=request("fontiuno")%>">
          <input type="hidden" name="Datapubb" value="<%=data%>">
          <input type="hidden" name="dispositivi" value="<%=request("dispositivi")%>">
          <input type="hidden" name="mansionisicurezza" 
          <input type="hidden" name="fisici" value="<%=request("fisici")%>">
          
          <input type="hidden" name="corsi" value="<%=request("corsi")%>">
          
          <input type="hidden" name="conoscenza" value="<%=request("conoscenza")%>">
          <input type="hidden" name="mansioni" value="<%=request("mansioni")%>">
          
          <input type="hidden" name="idonei" value="<%=request("idonei")%>">
          <input type="hidden" name="id" value="<%=request("id")%>">
          <input type="hidden" name="Datapubb" value="<%=data%>">
  <input type="Hidden" name="fonti" value="<%=request("fonti")%>">
  
           <input type="hidden" name="id" value="<%=request("id")%>">

          <input type="hidden" name="c" value="2">
        </table></form><%end if%>
        
    
    <%if c="2" then%>
<%'=request("descrizione")%>
<%'response.end%>
<%=request("fonti")%>
<%fonti=split(request("fonti"),",")
for i=0 to ubound(fonti)%>
<%=fonti(i)%>
<%next
'response.end
   's_news=request("news")
'news=split(s_news,",")
%>
   

<%

data=cstr(year(date()))&cstr(month(date()))&cstr(day(date()))


%>

<%sql="select * from sicurezza where id='"&trim(request("id"))&"' ;"
set rs = Server.CreateObject("ADODB.RecordSet")
%>
<%
 rs.open sql, conn_base, adlockoptimistic, adcmdtable



rs("idonei")=trim(request("idonei"))
rs("nome")=trim(request("nome"))
rs("mansionisicurezza")=trim(request("mansionisicurezza"))

rs("protezioni")=trim(request("protezioni"))
rs("corsi")=trim(request("corsi"))

rs("conoscenza")=trim(request("conoscenza"))
rs("altro")=trim(request("altro"))
rs("Datapubb")=trim(request("datapubb"))
rs("dispositivi")=trim(request("dispositivi"))
rs("id")=id

'for i=0 to rs.fields.count-2
'rs.fields(i).value=trim(news(i))
        %>
        <%
rs.update
rs.close

sql="delete * from  fonti sog where id='"&trim(request("id"))&"' ;"
rs.open sql, conn_base, adlockoptimistic, adcmdtable 

for i=0 to ubound(fonti)
app_fonti=split(fonti(i),";")
rs.open "fonti sog", conn_base, adlockoptimistic, adcmdtable
rs.addnew
rs("id")=trim(request("id"))
rs("fonti")=trim(app_fonti(0))
rs.update
rs.close
next



set rs=nothing
conn_base.close
set conn_base=nothing

%>



<table bgcolor="#F5FFFA" align="center">
<tr><td><h5>La modifica  dei documenti 

è avvenuto con successo</h5></td></tr>

</table></form>


</div>
<%end if%>
<%end if%>
<%'end if%>
    
    
</html>