salve ragazzi,
il codice che riporto in calce crea un form a cui vengono passati dei dati da una pagina precedente (in cui viene valorizzata la session(inserisci)). In questa pagina stampo i risultati e vorrei premendo il tasto modifica che i dati sul DB si aggiornassero e che la pagina mostrasse i risultati aggiornati.
Il problema è che i dati vengono postati ma quando riassegno i tre volori alle variabili "programma area e ultimo_id" la query sottostante va in errore perche le le variabili sono valorizzate a 0.
Come mai? Dov'è l'errore?
grazie in anticipo
Nicola
<%
if request("modifica")="Modifica" then
programma = request.form("programma1")
area = request.form("area1")
ultimo_id = request.form("idfaq")
sql_up="update faq set domanda='" &request.Form("domanda")&"',risposta='" &request.Form("risposta")&"' where id_faq=" & cint(request.Form("idfaq"))
rst.open sql_up, connserver2003,3,3
rst.close
end if
if ucase(session("inserisci"))="APRI" then
programma = request.form ("programma")
area = request.form ("area")
domanda = request.form("domanda")
risposta = request.form("risposta")
sql_id="select max(id_faq) as ultimo from faq"
rst1.open sql_id, connserver2003, 1,3
ultimo_id=rst1("ultimo")+1
strsql= "SELECT * FROM faq"
rst.open strsql, connserver2003, 1,3
rst.addnew
rst("id_faq")=ultimo_id
rst("domanda")=domanda
rst("risposta")=risposta
rst("id_programma")=programma
rst("id_area")=area
RST.Update
session("inserisci")="chiudi"
rst.close
end if
response.Write(session("inserisci"))
%>
<html>
<title>Gestione FAQ area amministrativa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<form action="adm_cod_gest_faq.asp" method="post" name="faq">
<table width="750" align="center" border="0" cellspacing="0">
<tr>
<td width="194" class="SfondoSottoMenu" >[img]../images/logogiallo.gif[/img]</td>
<td colspan="1" height="70" class="SfondoSottoMenu" width="706" align="center">
<div class="scrittebanner" align="center"><font face="Verdana, Arial, Helvetica, sans-serif">Amministrazione: Inserisci una nuova FAQ</font></div></td>
</tr>
<tr><td colspan="2"></td></tr>
<tr><td colspan="2">
<table width="750" align="center" border="0" cellspacing="0" cellpadding="5">
<tr><td width="" class="titolipreventivi">Programma</td>
<td width="30" class="titolipreventivi">Area</td>
</tr>
<tr><td>
<% rst.open "SELECT * FROM Programmi WHERE assistenza=1", connserver2003,3,3 %>
<select name="programma1" size="1" class="testi">
<% Do until rst.eof %>
<option class="titoli" value="<%=trim(Rst.Fields("id_programma"))%>" <% if cint(programma) = (Rst.Fields("id_programma")) then 'si basa sul codice del programma%> selected <% end if %>><% = trim(Rst.Fields("descrizione_breve"))%></option>
<%
rst.movenext
loop
rst.close
%>
</select>
</td><td>
<% rst.open "SELECT * FROM Area WHERE child=6", connserver2003,3,3 %>
<select name="Area1" size="1" class="testi">
<% Do until rst.eof %>
<option class="titoli" value="<%=trim(Rst.Fields("id_area"))%>" <% if cint(area)= (Rst.Fields("id_area")) then %> SELECTED<% END IF %>> <% = trim(Rst.Fields("descrizione"))%></option>
<%
rst.movenext
loop
rst.close
%>
</select>
<%
Set Rst_dom = Server.CreateObject("ADODB.Recordset")
sql_dom="select domanda, risposta from faq where id_faq=" &cint(ultimo_id)& " and id_area=" & cint(area) & " and id_programma=" & cint(programma)
Rst_dom.open sql_dom,connserver2003,1,3
response.Write(sql_dom)
%>
</td></tr>
<tr><td width="" class="titolipreventivi">Domanda</td>
<td width="30" class="titolipreventivi">Risposta</td>
</tr>
<tr><td width="" class="" valign="top"><input type="hidden" name="idfaq" value="<%=ultimo_id%>"> <textarea cols="54" name="domanda"><%= Rst_dom("domanda")%></textarea></td>
<td width="30" class=""><textarea cols="54" rows="10" name="risposta"><%= Rst_dom("risposta")%></textarea></td>
</tr>
<tr><td width="" class="titolipreventivi">Domanda</td>
<td width="30" class="titolipreventivi">Risposta</td>
</tr>
<tr><td width="" class="" valign="top"><%= Rst_dom("domanda")%></td>
<td width="30" class=""><%= Rst_dom("risposta")%></td>
</tr>
<tr><td align="center"><input type="submit" name="inserisci" value="Inserisci"></td>
<td align="center"><input type="submit" name="modifica" value="Modifica"></td></tr>
</table>
<table width="750" align="center" border="0" cellspacing="5" cellpadding="5">
<%Rst_dom.close%>
</table></td>
</tr>
<tr><td height="10"></td>
<td height="10"></td></tr>
</table>
<table width="750" align="center" border="0" cellspacing="0">
<tr><td width="70">logout</td><td width="70">menù</td><td></td></tr>
</table>
</form>
</body>
</html>
Rispondi quotando
