Perchè non riesco a modificare il record con questo script???
codice:
<%
If ID="" AND Action="" Then
Sql = "SELECT * FROM news ORDER BY ID ASC;"
Rs.Open Sql, Conn
Do While NOT Rs.EOF
Response.Write "[*]<div align=""left"">" & Rs("Date") & " - " & Rs("Title") &"</div>"
Rs.MoveNext
Loop
ElseIf ID<>"" AND Action="" Then
Sql = "SELECT * FROM news WHERE ID = " & ID
Rs.Open Sql, Conn
%>
<form method="post" action="edit.asp">
<input type="hidden" name="action" value="modifica">
<input type="hidden" name="ID" value="<%=ID%>">
Titolo:
<input type="text" name="titolo" size="72" value="<%=Rs("Title")%>">
Messaggio:
<textarea name="testo" cols="70" rows="20"><%=Rs("Text")%></textarea>
<input type="submit" value=" Modifica ">
</form>
<%
ElseIf ID="" AND Action="modifica" Then
Sql = "UPDATE news SET Title = '" & Titolo & "', "
Sql = Sql & " Text = '" & Testo & "'"
Sql = Sql & " WHERE ID = " & ID
Rs.Open Sql, Conn
Response.Write "La news è stata modifica con successo!"
End If
%>