Pues kitando eso, aparece lo siguiente:
Error de Microsoft VBScript en tiempo de ejecución error '800a0046'
Permiso denegado
/webs5/jose15001/envia_email.asp, line 19
No se que pasa... el codigo que he hecho es este:
<%
'Declaramos las variables
Dim xDato1, xDato2, OBJ_EMAIL
'Obtenemos los valores del formulario
xDato1=Request.querystring("dato1")
xDato2=Request.querystring("dato2")
'Creación del objeto email
Set OBJ_EMAIL= Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From= "Web"
OBJ_EMAIL.To="
[email protected]"
OBJ_EMAIL.Subject="Registros"
OBJ_EMAIL.Body= xDato1 & chr(13) & xDato2
OBJ_EMAIL.Send 'Envia el email
Response.Write "Datos enviados correctamente"
Set OBJ_EMAIL=Nothing
%>
La linea 19 corresponde con el OBJ_EMAIL.Send. Yo creo que el servidor no admite CDONTS, porque en mi ordenador y con mi servidor local funciona...