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