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