codice:
	SUB LogRiubicazione(codScatola, scatola, codArch, codUbicazioneOLD, UbicazioneOLD, codUbicazioneNEW, UbicazioneNEW, data, codiceOperatore, percorsoDB)
	'inserisco una riga nel DB storicoubi
	Call CreaConnDB(Mariadb_driver,"ConnStoricoUBI", percorsoDB, Mariadb_portserver, Mariadb_server, Mariadb_user, Mariadb_password, Mariadb_option, Mariadb_charset)
	
	ConnStoricoUBI.BeginTrans
	
	SQLSTO = "INSERT INTO storicoUbi (codScatola, scatola, codArch, codUbicazioneOLD, UbicazioneOLD, codUbicazioneNEW, UbicazioneNEW, data, codOpe) "& _
				" VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?);"
	set cmdSTO = server.createobject("ADODB.Command")
	cmdSTO.ActiveConnection = ConnStoricoUBI
	cmdSTO.CommandText = SQLSTO
	cmdSTO.CommandType = adCmdText
	cmdSTO.CommandTimeout = 900
	
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("codScatola", adInteger, adParamInput, , codScatola )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("scatola", adDouble, adParamInput, , scatola )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("codArch", adInteger, adParamInput, , codArch )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("codUbicazioneOLD", adInteger, adParamInput, , codUbicazioneOLD )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("UbicazioneOLD", adVarChar, adParamInput, 30, UbicazioneOLD )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("codUbicazioneNEW", adInteger, adParamInput, , codUbicazioneNEW )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("UbicazioneNEW", adVarChar, adParamInput, 30, UbicazioneNEW )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("data", adDBTimeStamp, adParamInput, , data )
	cmdSTO.Parameters.Append cmdSTO.CreateParameter("codOperatore", adInteger, adParamInput, , codiceOperatore )
	cmdSTO.Execute  '<---- errore qui
	
	set cmdSTO = nothing
	On Error Resume Next
	If Err.number = 0 and ConnStoricoUBI.Errors.Count = 0 Then
		ConnStoricoUBI.CommitTrans
	Else
		ConnStoricoUBI.RollbackTrans
		'ConnStoricoUBI.close
		'set ConnStoricoUBI=nothing
		Call ChiudiConnDB("ConnStoricoUBI")
		esitoOP "Si e' verificato un errore, eseguito il rollback",""
	End If
	On Error GoTo 0
	Call ChiudiConnDB("ConnStoricoUBI")
End SUB
 
CreaConnDB e ChiudiConnDB aprono e chiudono la connessione, l'errore che mi esce e'