errore nel fare l'update

[primi_passi]

in questa procedura mi da un errore neo fare l'update: l'errore è questo:
SELECT * FROM T_news Where id = 1

'**************************************
'modificare
'**************************************
Sub EditItem()

	Response.write ("<h2>Modifica record nella tabella " & strTable & "</h2>")
	
	which=request("which")
	
	if isNumeric(which) then
		MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = " & which
	else
		MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = '" & which & "'"
	end if
	Set MyRs=MyConn.Execute(MySQL)

	Response.write ("<FORM ACTION=""" & strFile & "?mode=EditItemAction"" METHOD=POST>")
	Response.write ("<input name=""ID"" type=""hidden"" value=""" & MyRs(strKey) & """>")
	Response.write ("<table>")

	numerocampi=MyRs.fields.count -1
	
	for i=0 to numerocampi
	
	if Not MyRs(i).name = "id" then
		ThisRecord = MyRs(i)
		ThisRecordName = MyRs(i).name
		If IsNull(ThisRecord) or ThisRecord = "" Then
			ThisRecord = ""
		end if 
	Response.write ("<tr>")
	Response.write ("<td align=""right"">" & ThisRecordName & ": </td>")
	Response.write ("<td> <input name=""" & ThisRecordName & """ type=""text"" value=""" & MyRs(i) & """></td>")
	Response.write ("</tr>")
	end if
	next

	Response.write ("<tr>")
	Response.write ("<td align=""right""><INPUT NAME=""Submit"" TYPE=Submit Value=""Update""></td>")
	Response.write ("<td><INPUT NAME=""Reset"" TYPE=Reset Value=""Reset""></td>")
	Response.write ("</tr>")
	Response.write ("</table>")
	Response.write ("</FORM>")

	Response.write ("Torna alla lista dei record")
		
	MyRs.close
	Set MyRs= Nothing

End Sub


Sub EditItemAction()

	which = Request(strKey)
	
	if isNumeric(which) then
		MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = " & which
	else
		MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = '" & which & "'"
	end if

	'MySQL="Select * from " & strTable
	Set MyRs=MyConn.Execute(MySQL)

	numerocampi=MyRs.fields.count -1

	for i=0 to numerocampi
		if Not MyRs(i).name = "ID" then	
			str = MyRs(i).name 
			strNames = Request(str)
			if not i = numerocampi then
				str1 = str1 & "[" & str & "] = '" & strNames & "', "
			else
				str1 = str1 & "[" & str & "] = '" & strNames & "'"
			end if
		end if
	next

	if isNumeric(which) then
		MySQL1="UPDATE " & strTable & " SET " & str1 & " Where " & strKey & " = " & which
	else
		MySQL1="UPDATE " & strTable & " SET " & str1 & " Where " & strKey & " = '" & which & "'"
	end if

	'MySQL1="UPDATE " & strTable & " SET " & str1 & " Where ID=" & which

	Response.Write(MySQL)
         Response.end
        Set MyRs=MyConn.Execute(MySQL) 

	MyConn.Close
	set MyConn=nothing
	
	Response.Redirect strFile

End Sub