|
|||||||
|
|
|
 |
|
|
Strumenti |
01-12-2006, 16:35
|
#1 |
|
Senior Member
Iscritto dal: Jul 2001
Messaggi: 2776
|
(asp) complesso modulo che non fa nulla
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 ">
<!-- #include virtual="/fileinclude/connessione.inc" -->
<!-- #include virtual="/fileinclude/adovbs.inc" -->
<%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 <br>
<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"><strong>Nello svolgere la tua
professione fai uso di dispositivi di protezione?</strong></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"><strong>Se no perchè? Scrivere :</strong></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"><b>Se si quali?</b></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 <br>
<%response.end
else rs.movefirst %>
<tr>
<td width="636" height="38"><strong>Li ritieni idonei ?</strong></td>
</tr><tr>
<%
if trim(rs("idonei"))="si" then
Response.Write "<td width='30'>si</td><td width='30' >SI<input type='radio' name='idonei' value='si' checked></td></tr><tr>"
Response.Write "<td width='30'>no</td><td width='30' >No<input type='radio' name='idonei' value='no'></td></tr><tr>"
else
Response.Write "<td width='30'>si</td><td width='30' ' >SI<input type='radio' name='idonei' value='si'></td></tr><tr>"
Response.Write "<td width='30'>no</td><td width='30' >No<input type='radio' name='idonei' value='no' checked></td></tr><tr>"
End if
%>
</tr>
<tr>
<td width="636" height="19"><strong>Come integreresti i dispositivi che hai a dispositivisizione? </strong></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"><strong>In generale, ritiene che le mansioni lavorative siano svolte in piena sicurezza per la sua salute?</strong></td>
</tr>
<tr>
<td width="636" height="38"><strong>Ha mai frequentato corsi relativi alla sicurezza degli infortuni?<br>
</strong></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" value="<%=request("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("fisici")=trim(request("fisici"))
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
%>
<br>
<table bgcolor="#F5FFFA" align="center">
<tr><td><h5>La modifica dei documenti <br>
è avvenuto con successo</h5></td></tr>
</table></form>
</div>
<%end if%>
<%end if%>
<%'end if%>
</html>
__________________
non esitare e accorri numeroso nel forum toposo della loggia cricetale progetto mondo luminoso sito della Loggia Cricetale Universale Ultima modifica di shambler1 : 01-12-2006 alle 16:39. |
|
|
|
01-12-2006, 19:49
|
#2 |
|
Senior Member
Iscritto dal: Jul 2001
Messaggi: 2776
|
Aiuto...ora sono riuscito a fargli scrivere qualcosa sul db. Il problema è che non scrive l'id, che riesco a vedere sull'html del modulo.
Per qualche motivo non lo scrive sul db e cosi il modulo non risulta indicizzato. E mica ho capito perche!! |
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 05:02.
