Hello,
I'm not receiving my email, I believe I'm almost there, but can't
figure out what I'm missing. Any Clue would be appreciated.
Here's my html and asp code. I've included the cdovbs.inc file in the
root of my website, I thought that maybe my error.
Thank you,
Summer
HTML CODE: SENDMAIL.HTM
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Send Mail</title>
</head>
<body bgcolor="#FFFFF F">
<form method="POST" action="sendmai l.asp">
<h3 align="center"> CDONTS Send Email Simple Form Example</h3>
<p>To: <input type="text" size="30" name="To"></p>
<p>From: <input type="text" size="30" name="From"></p>
<p>Subject: <input type="text" size="30" name="Sub"></p>
<p>Message Text:<br>
<textarea name="Message" rows="10" cols="80"></textarea></p>
<p align="center"> <input type="submit" name="Send"
value="Submit"> <input type="reset" name="Cancel"
value="Reset"></p>
</form>
</body>
</html>
CODE: SENDMAIL.ASP
<%@ LANGUAGE="VBSCR IPT" %>
<% Option Explicit %>
<!--#include virtual="cdovbs .inc"-->
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<%
Dim objMail, strFrom, strTo, strSubject, strBody
'strTo = Trim(Request.Fo rm("To"))
'strSubject = Trim(Request.Fo rm("Sub"))
'strFrom = Trim(Request.Fo rm("From"))
'strBody = Trim(Request.Fo rm("Message"))
Set objMail = Server.CreateOb ject("CDONTS.Ne wMail")
objMail.From = "em***@domain.c om"
objMail.To = "em***@domain.c om"
objMail.Subject = "TEST cdonts"
objMail.Body = "TEST body"
objMail.Send()
Set objMail = Nothing
%>
<html>
<body>
Email sent
</body>
</html>
