SQL error?

[Jerome]

Hi,

I've got the following code but my records don't get updated ... Is
anyone seeing why? Just looking at the code? Any help is appreciated!

Jerome

<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim strSQL 'Holds the SQL query to query the database

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DSN=IntranetDB"

NewsInt=request.querystring("textfield")

strSQL="UPDATE activites_edu_bkp SET "
strSQL= strSQL & "testfeld='yes'"
strSQL= strSQL & " WHERE news='" & NewsInt & "'"
on error resume next
adoCon.Execute sql
if err<>0 then
response.write( "*" & NewsInt & "No update permissions!")
else
response.write("Records for " & NewsInt & " updated!")
end if
adoCon.close
%>

 

[Jerome]

Please ignore my question, found the error!