Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

CDONTS and CDO dont work on this script

Status
Not open for further replies.

ComputerCop911

Programmer
Jul 30, 2003
97
CA
I am trying to implement the Phone Message sample from asp101.com and it says that the message has been sent, but I never recieve it. I tried changing it to CDONTS from CDO but no go.

any ideas?

ComputerCop911
ASP/HTML Programmer
 
You might have to post some code. I'm not sure that everybody knows what the Phone Message sample is. I know I don't. Thanks.
 
test this:
[/code]
<!-- ================================================================================================ -->
<!-- Create CDONTS server object; declare variables and set them equal to filtered results from -->
<!-- RecordSet &quot;Users&quot; and then send HTML formated email -->
<!-- ================================================================================================ -->
<%' *** E-mail Vars
Dim strFirstName
Dim strEmail
Dim strAccountName
Dim strAccountPassword
strFirstName = Users.Fields.Item(&quot;FirstName&quot;).Value
strEmail = Users.Fields.Item(&quot;Email&quot;).Value
strAccountName = Users.Fields.Item(&quot;UserName&quot;).Value
strAccountPassword = Users.Fields.Item(&quot;Password&quot;).Value
%>
<%' *** SEND MAIL
Dim objCDO
Set objCDO = Server.CreateObject(&quot;CDONTS.NewMail&quot;)
objCDO.From = &quot;BOOKS&quot;
objCDO.To = strEmail
objCDO.Subject = &quot;Thank you for registering with objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Body = &quot;<font face='Arial' size ='3'>&quot; &_
&quot;WELCOME &quot; & strFirstName & &quot;!&quot; &_
&quot;<br>&quot; &_
&quot;Thank you for registering with books.ulv.edu&quot; &_
&quot;<Br>&quot; &_
&quot;Here is your presonal Account Information :&quot; &_
&quot;<p>&quot; &_
&quot;Username:&quot; & strAccountName &_
&quot;<Br>&quot; &_
&quot;Password:&quot; & strAccountPassword &_
&quot;<p>&quot; &_
&quot;HELLO HELLO here is your email...go to <a href=' and :: Log In! :: &quot; &_
&quot;<p>&quot; &_
&quot;How About Another link<a href=' &quot; &_
&quot;<br>&quot; &_
&quot;<br>&quot; &_
&quot;</font>&quot;
objCDO.Send()
Set objCDO = Nothing
%>
[/code]

it has beed running for me....from the day1!

All the best!

> need more info?
:: don't click HERE ::
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top