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

[optime]

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

quello non è un errore, è uno statement. sii più preciso, grass

[Roby_72]

E' inutile aprire un'altra discussione per lo stesso problema, come da regolamento.

Roby

[primi_passi]

lo so ma siccome non so come fare a risolvere che devo fare?

[optime]

Originariamente inviato da primi_passi
lo so ma siccome non so come fare a risolvere che devo fare?

come prima cosa esponi bene il poblema.

[primi_passi]

allora il pannelo per connettermi ad aruba con il database access, per modifcare cancellare ed eliminare dei record nel db.
nel fare la modifica mi da questo messaggio SELECT * FROM T_news Where id = 1
e ovviamente non mi fa fare l'update. il codice in esame è quello che ho postato, spero di essere stato chairo.

[optime]

no, non sei stato chiaro (almeno per me)

però mi insospettisce questa sequenza di comandi

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

sai spiegarmela?

[primi_passi]

questa mi è stata detta da un ragazzo sul fporum per farmi sapare l'eventuale errore

[optime]

quindi non la capasci? non sai cosa fa?

[primi_passi]

si in effetti non so, ma il problema che non mi fa l'update rimane