Problema ASP 0x800A000D

[cognos]

Saludos a todos,

solicito su urgente ayuda...

estoy desarrollando una aplicacion web y necesito que esta envie mails...para esto tengo una pagina "lib_mail.asp" donde estan mis funciones ASP de envio de mails (con CDONTS), una funcion es enviacorreo().

Cuando deseo que desde una pagina envie mails referencio en la cabecera de la pagina a lib_mail.asp con:

<!-- #include file="lib_mail.asp" -->

El envio de mail esta en el submit de la pagina que referencia (que la llamaremos pagina1.asp), como parte de los eventos submit de pagina1.asp esta el llamado a la funcion enviacorreo() de lib_mail.asp

la funcion enviacorreo() de lib_mail.asp es de la siguiente manera


<%
function enviacorreo()
Set objEMail=Server.CreateObject("CDONTS.NewMail")
' bastante codigo llenando los valores de objEmail
end function
%>


Yo deseo lanzar un MsgBox o un confirm que diga si desea enviar el mail. no puedo usar otra pagina web, tiene q ser dentro de la funcion enviacorreo()

Lo q hice fue lo siguiente: (en lib_mail.asp), una funcion vbscript que llame al msgbox (del lado del cliente xq asp no levanta msgbox por ser del servidor), y q grabe el resultado en una variable, que luego se la paso al servidor...


<script language="VBScript" type="text/VBScript">
function confirmax()
if msgbox("¿Confirma envio?", vbyesno) = vbyes Then
return 1
else
return 0
end if
end function
</script>

<%
function enviacorreo()
bEnvia = confirmax()
if bEnvia = 1 then
Set objEMail=Server.CreateObject("CDONTS.NewMail")
' bastante codigo llenando los valores de objEmail
end if
end function
%>


Sin embargo, a la hora de correr la pagina me da el siguiente error


Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'confirmax'
/booking/lib_mail.asp, line XX


Porque?....necesito una solucion sumaria....es algun problema de compatibilidad entre vbscript y asp?? o que puede ser?...hay algo mal en mi codigo?

Esperando su respuesta,

Gracias de antemano

Cognos

[Bluesman74cl]

postea la linea XX
para poder vizualizar mejor el error...

[cognos]

la linea xx es:

bEnvia = confirmax()

(la primera linea de enviacorreo(), cuando le paso el valor de la funcion)

gracias

[Bluesman74cl]

otra consultita eso del msgbox, es primera vez que lo estás implementando? porque si no me equivoco debe ser por eso el error... nunca he implementado alertas de ningun tipo pero creo que sería eso...

[cognos]

si, primera vez q lo implemento de esta manera, por lo general lo he usado condicionado al click de un boton...

pero en este caso ese no es el problema, xq ya en algun momento haciendo pruebas para descartar posibles causas deje el codigo de la funcion confirmax de la siguiente manera:

<script>
function confirmax()
return 1
end function
</script>

y el resultado fue el mismo, el mismo error.

[Myakire]

Pues si, ese es el error:

Tienes <% bEnvia = confirmax() %>, ASP espera que "confirmax()" sea una función de ASP, y sin embargo la tienes en el lado del cliente. Es decir, cuando el ASP ya se ejecutó.

Es un simple error de lógica.

Saludos

[Myakire]

Lo que deberías hacer es algo como:

.... tu formulario a enviar por correo
<input type=button value="Enviar Correo" onclick="return confirm('Estas seguro que deseas enviar el correo?')">

Es decir, la validación/confirmación, debe estar del lado del cliente, y al servidor enviarle los datos ya hasta que este seguro que efectivamente se va a enviar la información.

Saludos