Dim strSqlUpdateAnnonceLespac
Dim objConn
'strSqlUpdateAnnonceLespac = "UPDATE dbo.tblAnnonce SET strTitreAnnonce = '" & FixQuote(objAnnonceAuto.strTitre)& "', strDetailAnnonce = '" & FixQuote(objAnnonceAuto.strDetail)& "', bActiveAnnonce = 1 WHERE (FK_Site = 1) AND (iNumberAnnonce = " & FixQuote(objAnnonceAuto.iNumber)& ")"
strSqlUpdateAnnonceLespac = "psUpdatetblAnnonce " & FixQuote(objAnnonceAuto.iNumber)& ",'" & FixQuote(objAnnonceAuto.strTitre)& "','" & FixQuote(objAnnonceAuto.strDetail)& "',1"
Response.Write("strSqlUpdateAnnonceLespac |" & strSqlUpdateAnnonceLespac & "|<BR>")
Response.Flush()
'cree la connection
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = Application("strConn")
objConn.Open
objConn.execute strSqlUpdateAnnonceLespac
'fermer la connection
objConn.Close
Set objConn = Nothing
Partager