asked on

Why I have asp name redefined?

hi Experts!

I looking for the error in this code, but I don´t find the error. The error is:

Error Type:
Microsoft VBScript compilation (0x800A0411)
Name redefined
webContact/sendEmail.asp, line 29, col 16
Public Function sendEmail(emailTo, emailFrom, emailSubject, emailBody)
---------------^

Thnx

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Envío</title>
</head>
<body>
<%
    Dim sendEmail
    Dim destinatario
    Dim nombre
    Dim asunto
    Dim email
    Dim telefono
    Dim direccion
    Dim cp
    Dim localidad        
    Dim estado
    Dim comentario        
    Dim textBody
    'Dim destinatarios(7)
    Dim destinatarios(8)
    
    'Realiza el envío del correo electrónico
    'emailTo      Destinatario, email
    'emailFrom    Emisor, email
    'emailSubject Asunto, email
    'emailBody    Mensaje, email
    'Sets sendEmail variable
    Public Function sendEmail(emailTo, emailFrom, emailSubject, emailBody)
        sendEmail                = false
        Const cdoSendUsingPickup = 1                            'Send message using the local SMTP service pickup directory.
        Const cdoSendUsingPort   = 2                            'Send the message using the network (SMTP over the network). 
        Const cdoAnonymous       = 0                            'Do not authenticate
        Const cdoBasic           = 1                            'basic (clear-text) authentication
        Const cdoNTLM            = 2                            'NTLM
        Const smtpSendUsing      = 1                            '1=local, 2=remote
        Const smtpServer         = "mail.grupocti.com"
        Const smtpPort           = 25
        Const smtpUN             = "jmorquecho"
        Const smtpPW             = "cti011107"
        Const UseSSL             = False
        Const smtpTimeout        = 10
        
        Dim email
        Set email = server.CreateObject("CDO.Message")
        
        With email.Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")               = smtpSendUsing
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")              = smtpserver
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")          = smtpport
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")        = cdoBasic
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername")            = smtpUN
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")            = smtpPW
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")              = UseSSL
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")   = smtpTimeout
            .Update
        End With
        
        With email
            .Subjec   = emailSubject
            .From     = emailFrom
            .To       = emailTo
            .TextBody = emailBody
            .send
            if err=0 then sendEmail=true
        End With 
        Set email=Nothing
    End Function
    
    'Verifica que el captcha allá sido introducido correctamente
    '@params valCAPTCHA Valor del captcha establecido previamente
    '@Sets CheckCAPTCHA variable
    Function CheckCAPTCHA(valCAPTCHA)
	    SessionCAPTCHA = Trim(Session("CAPTCHA"))
	    Session("CAPTCHA") = vbNullString
	    If Len(SessionCAPTCHA) < 1 then
            CheckCAPTCHA = False
            exit function
        End If
	    If CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
	        CheckCAPTCHA = True
	    Else
	        CheckCAPTCHA = False
	    End If
    End Function
    
	strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
	If CheckCAPTCHA(strCAPTCHA) = True Then
        destinatarios(1) = "ventas@grupocti.com"
        destinatarios(2) = "dirgeneral@grupocti.com"
        destinatarios(3) = "dirconsultoria@grupocti.com"
        destinatarios(4) = "aclientes@grupocti.com"
        destinatarios(5) = "mesadecontrol@grupocti.com"
        destinatarios(6) = "webmaster@grupocti.com"
        destinatarios(7) = "javiermorquecho@msn.com"
        destinatario     = Request.Form("destinatario")
        nombre           = Request.Form("nombre")    
        asunto           = Request.Form("asunto")
        email            = Request.Form("email")    
        telefono         = Request.Form("telefono")
        direccion        = Request.Form("direccion")    
        cp               = Request.Form("cp")
        localidad        = Request.Form("localidad")    
        estado           = Request.Form("estado")    
        comentario       = Request.Form("comentario")
        textBody         = "Persona emisora:"            & "/n/n" & _
                            "Nombre: "      & nombre     & "/n"   & _
                            "Asunto: "      & asunto     & "/n"   & _
                            "Email: "       & email      & "/n"   & _
                            "Teléfono : "   & telefono   & "/n"   & _
                            "Dirección : "  & direccion  & "/n"   & _
                            "CP : "         & cp         & "/n"   & _
                            "Localidad : "  & localidad  & "/n"   & _
                            "Estado : "     & estado     & "/n"   & _
                            "Comentario : "              & "/n/n" & comentario
        emailDestino     = destinatarios(destinatario)
        sendEmail emailDestino, "webinfo@grupocti.com", "mensaje de usuarios en página web", textBody
        If !sendEmail Then
            msg = "No se puedo enviar el email. Por favor, intente más tarde."
            Response.Write("<" & "script language=VBScript>")
            Response.Write("MsgBox """ & msg & """<" & "/script>")
        Else          
%>
            <!-- Confirmación de envío -->
            <div style='text-align: center;'><img style='width: 663px; height: 84px;' alt='logo de CTI' src='../Images/logo12.png'><br>
            <br>
            <br>
                <span style='font-family: Arial'>
            Hemos recibido su petici&oacute;n, a la brevedad nos pondremos en contacto con Ud.<br>
            <br>
            Gracias.</span></div>
<% 
        End If
    End If
%>
</body>
</html>

Open in new window

ASKER CERTIFIED SOLUTION