Bonjour, 

Je crée un site en VBNet.

Le code suivant me renvoie un message d'erreur dans les logs :

Function resetX (CdY)
	set objRecordset = Server.CreateObject("ADODB.Recordset")
	OK = false


	myQuery = "SET DATEFORMAT DMY SELECT CdX, pers, AAAAMM FROM Y LEFT JOIN X ON Y.CdY = X.CdY WHERE Y.CdY='" & SQLProtect(CdY) & "' ORDER BY X.CdX"
	
	objRecordset.Open myQuery, objConnect
	
	
	' Variables pour la suppression des fichiers joints
	Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser")  	' Bout qui pose problème ( ligne 42 )
	objLogon.Logon ID_LOGIN, ID_PASSWORD, ID_DOMAIN
	
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	aaaamm = objRecordset("AAAAMM")
	

	repertoireFichier = BASE_FICHIERS_ & objRecordset("Pers") & "\" & DOSSIER_FICHIERS_
	emplacementFichier = repertoireFichier & aaaamm & "\"

	
	
	'Suppression des lignes X
	Do While not objRecordset.eof
		
		' Suppression des fichiers joints
			set objRecordsetFic = Server.CreateObject("ADODB.Recordset")
			myQuery = "SELECT nomFichier FROM Fic WHERE CdX = '" & objRecordset("CdX") & "'"
			objRecordsetFic.Open myQuery, objConnect
			
			if not objRecordsetFic.eof then
				if fso.FileExists(emplacementFichier & objRecordsetFic("nomFichier")) then
					fso.DeleteFile(emplacementFichier & objRecordsetFic("nomFichier")) 
				end if
				
				myQuery = "DELETE FROM Fic WHERE CdX =" & objRecordset("CdX")
				objConnect.Execute myQuery					
			end if
		
		myQuery = "DELETE FROM X WHERE CdX=" & objRecordset("CdX")
		objConnect.Execute myQuery
		objRecordset.MoveNext
	loop
	
	'Suppression du Y
	myQuery = "DELETE FROM Y WHERE cdY=" & cdY
	objConnect.Execute myQuery
	OK = True
	
	set objRecordset = nothing
	
	resetX = OK
End Function

Le message renvoyé dans les logs est le suivant :

[...] 500, 0, POST,  […] |42|ASP_0177_:_800401f3|Échec_de_Server.CreateObject,

Je vous remercie d'avance

Ce code n'est absolument pas du VB.NET mais du VBScript.

Les mécanismes à la base de "CreateObject" demandent des installations particulières.

Si vous insistez à utiliser ces trucs totalement obsolètes sortant tout droit des années 1990, je demanderais un transfert aux administrateurs pour changer de section du forum vers une plus adaptés.

Sinon, si vous faites vraiment du VB.NET, il faut savoir quel framework, aussi bien d'exécution que d’authentification vous utilisez pour vous indiquer comment sérieusement le faire.