Ciao!
Sto imparando ad usare asp , seguendo anche la guida di html.it e sono alle prese con un esercizio di modifica dei dati, tramite un form.
Cliccando sul pulsante "Entra" (che uso per inviare i dati modificati al database) vengo indirizzata ad un'altra pagina dove posso vedere la query (è stato inserito, appunto, un response.write che stampa la query)...sembra tutto ok: non appare nessun errore ma quando controllo il database vedo che il record non ha subito alcuna modifica.
Dove ho sbagliato?
Posto il codice:
Codice PHP:
<%
Option Explicit
Dim strConn, objConn, objRs, strsql, submitted
Dim id, titolo, sottotitolo, testo, data_vivo, data_morto
If Session("login") then
strConn = Application("dbconn")
submitted = Request.QueryString("submitted")
If submitted then
'cambia i dati
id = Request.QueryString("id")
response.write "id = " & id & "
"
titolo = Replace(Request.Form("titolo"),"'","''")
sottotitolo = Replace(Request.Form("sottotitolo"),"'","''")
testo = Replace(Request.Form("testo"),"'","''")
data_vivo = Replace(Request.Form("data_vivo"),"'","''")
data_morto = Replace(Request.Form("data_morto"),"'","''")
strsql = "UPDATE tbl_news"
strsql = strsql & " SET ("
strsql = strsql & "titolo = '" & titolo & "',"
strsql = strsql & "sottotitolo = '" & sottotitolo & "',"
strsql = strsql & "testo = '" & testo & "',"
strsql = strsql & "data_vivo = #" & data_vivo & "#,"
strsql = strsql & "data_morto = #" & data_morto & "#,"')"
strsql = strsql & "WHERE id = " & id
response.write strsql & "
"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:....")
Set objRs = Server.CreateObject("ADODB.Recordset")
'set objRs = objConn.Execute(strsql)
objConn.Close
Set objConn = Nothing
else
id = Request.QueryString("id")
strConn = Application("dbconn")
strsql = "SELECT * FROM tbl_news WHERE id = " & id
response.write strsql & "
"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:\....")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(strsql)
id = objRs("id")
titolo = objRs("titolo")
sottotitolo = objRs("sottotitolo")
testo = objRs("testo")
data_vivo = objRs("data_vivo")
data_morto = objRs("data_morto")
%>
<FORM ACTION="cambia_news.asp?submitted=true&id=<%= id %>" METHOD="post">
<div align="center">
<table border="0" width="95%" celpadding="2" cellspacing="2">
<tr>
<td><h1>Cambia quello che vuoi...<hr align="LEFT" size="1" width="100%" color="navy"></h1></td>
</tr>
<td align="center">
<table width="80%" border="0" celpadding="2" cellspacing="2">
<tr>
<td>Titolo</td>
<td><INPUT NAME="titolo" TYPE="TEXT" Value="<%= titolo %>" size="80" MAXLENGTH="80"></td>
</tr>
<tr>
<td>Sottotitolo</td>
<td valign="top"><TEXTAREA NAME="sottotitolo" ROWS="3" COLS="60"><%= sottotitolo %></TEXTAREA></td>
</tr>
<tr>
<tr>
<td valign="top">News</td>
<td valign="top"><TEXTAREA NAME="testo" ROWS="10" COLS="60"><%= testo %></TEXTAREA></td>
</tr>
<tr>
<td nowrap>Data di entrata</td>
<td valign="top"><INPUT NAME="data_vivo" TYPE="TEXT" Value="<%= data_vivo %>" size="24" MAXLENGTH="24"></td>
</tr>
<tr>
<td nowrap>Data di scadenza</td>
<td valign="top"><INPUT NAME="data_morto" TYPE="TEXT" Value="<%= data_morto %>" size="24" MAXLENGTH="24"></td>
</tr>
<tr>
<td valign="top">[b][/b]</td>
<td>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<table width="40%" border="0" celpadding="6" cellspacing="2">
<tr>
<td align="right"><INPUT TYPE="submit" NAME="submit" VALUE="Entra"></td>
<td align="left"><INPUT TYPE="reset" NAME="Reset" VALUE="Reset"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</FORM>
<%
end if
end if
%>