error de CDO.Message

[Ascariz]

El error que me da este este "Nombre redefinido"

Código:

Const cdoSendUsingPort = 2
	Set iMsg = Server.CreateObject("CDO.Message") 
	set iConf = Server.CreateObject("CDO.Configuration") 
	Set iFlds = iConf.Fields 
	With iFlds 
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxx.xxx" 'iServer 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Si el servidor requiere autentificación 
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario" 'Cuenta SMTP 
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "clave" 'Contraseña SMTP 
		.Update 
	End With 
	iMsg.Configuration = iConf 
	iMsg.From = "Prueba" 'Dirección del remitente 
	iMsg.Subject = "asunto 2" 'Asunto del mensaje 
	iMsg.TextBody = "hola 2" 'Cuerpo del mensaje 
	iMsg.To = "[email protected]" 'Dirección de destino 
	iMsg.Send 
	set iMsg = nothing 
	set iConf = nothing 
	set iFlds = nothing 
	IF ERR.number <> 0 THEN 
		Texto_email = "1 - Error : "& ERR.Description
		'Texto_email = "<br />Error, Sentimos las molestias.  <br/><br/>"& ERR.Description
	ELSE
		Texto_email = "ok."
	END IF

[Shiryu_Libra]

Ascariz, podrias decirnos en que linea te marca redefinido?
aunque viendo el codigo, por que tienes en

iMsg.From = "Prueba" 'Dirección del remitente