Function InsertServeur (Id As Integer) As Integer
Dim Ret%
Dim sData$
Dim s$
Dim screa$
Dim sidServeur$

InsertServeur = False

Ret = pExecute("CLEAR")
screa = Date$
sData = " INSERT INTO maitre.dbo.XmlServeur (Creation,maj,RaisonSociale,Index,Name,password,Adresse,AdresseSuite,Cp,ville,  "
sData = sData + " email,phone,fax,XasKey,Host,enabled,type,CodeEnseigne,Titre,pays,langue,xmluserid)  VALUES ("
sData = sData + "'" + screa + "',"
sData = sData + "'" + screa + "',"
sData = sData + "'" + TabSQLValue(0, 0) + "',"
sData = sData + "'" + TabSQLValue(0, 1) + "',"
sData = sData + "'" + TabSQLValue(0, 2) + "',"
sData = sData + "'" + TabSQLValue(0, 3) + "',"
sData = sData + "'" + TabSQLValue(0, 4) + "',"
sData = sData + "'" + TabSQLValue(0, 5) + "',"
sData = sData + "'" + TabSQLValue(0, 6) + "',"
sData = sData + "'" + TabSQLValue(0, 7) + "',"
sData = sData + "'" + TabSQLValue(0, 8) + "',"
sData = sData + "'" + TabSQLValue(0, 9) + "',"
sData = sData + "'" + TabSQLValue(0, 10) + "',"
sData = sData + "'" + TabSQLValue(0, 11) + "',"
sData = sData + "'" + TabSQLValue(0, 12) + "',"
sData = sData + "'" + TabSQLValue(0, 13) + "',"
sData = sData + "'" + TabSQLValue(0, 14) + "',"
sData = sData + "'" + TabSQLValue(0, 15) + "',"
sData = sData + "'" + TabSQLValue(0, 16) + "',"
sData = sData + "'" + TabSQLValue(0, 17) + "',"
sData = sData + "'" + TabSQLValue(0, 18) + "',"
sData = sData + "'" + TabSQLValue(0, 19) + "' ) "
Ret = pExecute(sData)
If Ret = True Then
    Ret = XasUserGetString(1, sidServeur)
    Ret = ServeurForINSERT(sidServeur)
    If Ret = True Then
	If TabSQLValue(0, 19) <> "" Then
	    sData = "UPDATE XmlUser SET Id='" + TabSQLValue(0, 1) + "' WHERE xmluserid.xxKey=" + TabSQLValue(0, 19) + " NOSYNCHRONISATION"
	    Ret = pExecute(sData)
	End If
	Ret = SQLCreateUser(0, "0.0", TabSQLValue(0, 2), TabSQLValue(0, 3), 7)
	Ret = XasSystemAddAgent(Val(TabSQLValue(0, 1)))
	Ret = XasSystemCreateUser(TabSQLValue(0, 2), TabSQLValue(0, 3), "7", "0111100", "MAITRE")
	InsertServeur = Ret
    End If
End If

End Function