Pero cuales la linea 13?
Ademàs....
Que pasas si testeas esto?
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "
[email protected]"
objCDOMail.To= "
[email protected]"
objCDOMail.Subject = "test email"
HTML = "<br><br>TEST"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body= HTML
objCDOMail.Send
Set objCDOMail = Nothing
En el sitio de godaddy aparece este script de ejemplo que funciona en sus servidores:
<%
from = request.form("from")
body = request.form("body")
subject = request.form("subject")
%>
<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = from
objMail.Subject = subject
objMail.To = "hard-code your email address"
objMail.Body = body
objMail.Send
Set objMail = Nothing
Response.redirect "thankyou.asp" '<- auto-redirection
'You must always do this with CDONTS.
'Change the page name to one that exists on your site.
%>