Originariamente inviato da willybit
Infatti in quel thread la risposta non centra... si possono mettere tutti i tag body che vuoi, non è corretto ma non genera errori lato server.
A te l'errore lo da perché fai un redirect dopo aver già scritto qualcosa (ed hai il response.buffer=0)
Il response.buffer è lasciato di default, ovvero ad 1
E non c'è nessuno response.write prima del redirect
codice:
<%
Dim objRS, strSQL, objField, strTipo, intIDC, intIDSC, intIDSSC, intIDSSSC, strTbl
Dim strCategoria, intPadre, strDescrizioneBreve, strDescrizioneLunga, strCampi
strCategoria = TogliHTML(Request.Form("Categoria"))
strDescrizioneBreve = TogliHTML(Request.Form("DescrizioneBreve"))
strDescrizioneLunga = TogliHTML(Request.Form("Body"))
strCampi = Replace(Request.Form("Campi"), ", ", "/")
intID = Request.Form("ID")
strTbl = Request.Form("tbl")
If strTbl = "MC" Then
intPadre = 0
If Request.Form("Menu") = "True" Then
blnMenu = "True"
Else
blnMenu = "False"
End If
End If
If Not strTbl = "MC" Then
strSQL = "UPDATE tbl"&strTbl&"ategorie SET DescrizioneBreve = '" & TogliHTML(Request.Form("DescrizioneBreve")) & "', " & _
"DescrizioneLunga = '" & strDescrizioneLunga & "', Categoria = '" & TogliHTML(Request.Form("Categoria")) & "', " & _
"Campi = '" & strCampi & "', PageTitle = '" & TogliHTML(Request.Form("PageTitle")) & "', " & _
"HiddenText = '" & TogliHTML(Request.Form("HiddenText")) & "', Keywords = '" & _
TogliHTMl(Request.Form("Keywords")) & "', MetaDescription = '" & TogliHTML(Request.Form("MetaDescription")) & _
"' WHERE ID = " & intID
Else
strSQL = "UPDATE tbl"&strTbl&"ategorie SET DescrizioneBreve = '" & TogliHTML(Request.Form("DescrizioneBreve")) & "', " & _
"DescrizioneLunga = '" & strDescrizioneLunga & "', Categoria = '" & TogliHTML(Request.Form("Categoria")) & "', " & _
"Campi = '" & strCampi & "', Menu = " & blnMenu & ", Lingua = '" & Request.Form("Lingua") & "'" & _
", PageTitle = '" & TogliHTML(Request.Form("PageTitle")) & "', " & _
"HiddenText = '" & TogliHTML(Request.Form("HiddenText")) & "', Keywords = '" & _
TogliHTMl(Request.Form("Keywords")) & "', MetaDescription = '" & TogliHTML(Request.Form("MetaDescription")) & _
"' WHERE ID = " & intID
End If
Set objRS = Server.CreateObject("ADODB.Recordset")
'Response.Write(strSQL & "
")
objRS.Open strSQL, objConn, 3, 3
Set objRs = Nothing
Response.Redirect("InserimentoCategoria.asp")
%>