Function XMLInsertCritere (sCodeClient As String, iType As Integer, sFam As String, sSousFam As String) As Integer
Dim Ret%
Dim sData$
Dim sIdPoi$
Dim s$
Dim s2$
Dim iMax%
Dim i%
Dim sTitre$
Dim sName$

XasTrace " XMLInsertCritere --->" + sFam + " - " + sSousFam
XMLInsertCritere = False
sData = "Select CodeSite From client where  CodeClient.xxKey=" + CStr(sCodeClient)
Ret = pExecute(sData)
If Ret = True And OnSQLGetItem(0) <> "" Then
    sData = "DELETE * FROM  LinkCritere "
    sData = sData + " WHERE LinkCritere.CodeClient.xxKey = " + sCodeClient
    sData = sData + " AND LinkCritere.type.integer=" + CStr(iType)
    sData = sData + " AND LinkCritere.id.integer IN(1,2)"
    Ret = pExecute(sData)
    If sFam <> "" Then
	sData = "SELECT CodeClient,type,creation  FROM Client WHERE CodeClient.xxKey =" + sCodeClient
	Ret = pExecute(sData)
	If Ret = True Then
	    sData = "INSERT INTO Client.LinkCritere(codeclient,Id,type,titre,Name,value) "
	    sData = sData + " VALUES('" + sCodeClient + "','1','" + CStr(iType) + "','Famille',"
	    sData = sData + "'Famille','" + CStr(sFam) + "')"
	    Ret = pExecute(sData)
	End If
    End If
    If sSousFam <> "" Then
	sData = "SELECT CodeClient,type,creation  FROM Client WHERE CodeClient.xxKey =" + sCodeClient
	Ret = pExecute(sData)
	If Ret = True Then
	    sData = "INSERT INTO Client.LinkCritere(codeclient,Id,type,titre,Name,value) "
	    sData = sData + " VALUES('" + sCodeClient + "','2','" + CStr(iType) + "','SousFamille',"
	    sData = sData + "'SousFamille','" + CStr(sSousFam) + "')"
	    Ret = pExecute(sData)
	End If
    End If
End If


End Function