[Ovillo] Relay access denied

[Rosendo Marín]

pues el código asp es este que dejo aquí, luego vendrían los campos de 
texto del formulario y el botón enviar. Y cuando se envía es cuando 
aparece el error 456: Relay access denied.

<% If Request.Form("enviar") <> "" Then
       
                    NOMBRE=ucase(Request.Form("NOMBRE"))
                    TELEFONO=Request.Form("TELEFONO")
                    EMAIL=Lcase(Request.Form("EMAIL"))
                    SUGERENCIAS=Request.Form("SUGERENCIAS")
                   
                    CABECERA_S="ERROR EN LA SUSCRIPCI&Oacute;N"
                    DESCRIPCION_S=""
                   
                    If NOMBRE="" Then
                        DESCRIPCION_S="<li>Debe introducir su nombre<br 
/></li>"
                    End If
       
                    If TELEFONO="" And EMAIL="" Then               
                        DESCRIPCION_S=DESCRIPCION_S & "<li>Debe 
introducir una forma de contacto. Correo electr&oacute;nico o 
tel&eacute;fono<br /></li>"
       
                    ElseIf Valid_Type(EMAIL,"EMAIL","@")<>"" Or 
Valid_Long(EMAIL,"EMAIL",0,60)<>"" Then
                        DESCRIPCION_S=DESCRIPCION_S & 
"<li>Direcci&oacute;n de email no v&aacute;lida<br /></li>"
                   
                    Elseif Valid_Long(TELEFONO,"TELEFONO",0, 9)<>"" Or 
Valid_Type(TELEFONO,"TELEFONO","+I")<>"" Then
                        DESCRIPCION_S=DESCRIPCION_S & 
"<li>Direcci&oacute;n de email no v&aacute;lida<br /></li>"       
                     End If
                 
                     IF DESCRIPCION_S<>"" Then
                        DESCRIPCION_S= "<ul>" & DESCRIPCION_S & "</ul>"%>
                       
                        <br /><p>Se han encontrado los siguientes 
errores:<br /></p>
                        <% Response.write(DESCRIPCION_S & "<br />")
                   
                    ELse 'ENVIAMOS EL CORREO
                        sSQL = "SELECT SMTP, CORREOWEB FROM DOMINIOS 
WHERE I_DOMINIO=" & Session("I_DOMINIO")
           
                        CrearRS dbi,rs,sSQL,0
                        SMTP=RS("SMTP")
                        CORREOWEB=RS("CORREOWEB")
                        CerrarObj(RS)
                        CerrarObj(dbi2)        
                       
                        REMITENTE_NOMBRE="WEB "  & Session("WEB")
                        ASUNTO="CONSULTA FORMULARIO WEB " & Session("WEB")
                        CUERPO=NOMBRE & " a enviado la siguiente 
consulta:<br /> " & SUGERENCIAS & "<br /><br />" &_
                                     "Forma de contacto: " & TELEFONO  & 
"   " & EMAIL
                                'Session("EMAIL")
                        envio=Enviar_Email 
(SMTP,CORREOWEB,Remitente_Nombre,Session("EMAIL"),Asunto,Cuerpo)        
                             
               
                        Response.write("<br /><p>Comentario enviado 
satisfactoriamente</p><br />")
                    End If
       
        End If
         %>
 <form method="post" action="<%=Param_modo_actual%>" id="form-contacto">
.
.
.
<input class="suscripcioninputbutton" name="enviar" value="Enviar" 
type="submit" />       
                   </form>

Probaré a ver la configuración del correo pero es muy raro que de pronto 
haya dejado de funcionar.

Mauro Gullino escribió:
> podrías dar más detalles?
>
> dónde ves el error? qué formulario es? alguna parte del código que podamos
> ver?
>   
>
>
>
>
>