test this:
[/code]
<!-- ================================================================================================ -->
<!-- Create CDONTS server object; declare variables and set them equal to filtered results from -->
<!-- RecordSet "Users" and then send HTML formated email -->
<!-- ================================================================================================ -->
<%' *** E-mail Vars
Dim strFirstName
Dim strEmail
Dim strAccountName
Dim strAccountPassword
strFirstName = Users.Fields.Item("FirstName"

.Value
strEmail = Users.Fields.Item("Email"

.Value
strAccountName = Users.Fields.Item("UserName"

.Value
strAccountPassword = Users.Fields.Item("Password"

.Value
%>
<%' *** SEND MAIL
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail"

objCDO.From = "BOOKS"
objCDO.To = strEmail
objCDO.Subject = "Thank you for registering with
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Body = "<font face='Arial' size ='3'>" &_
"WELCOME " & strFirstName & "!" &_
"<br>" &_
"Thank you for registering with books.ulv.edu" &_
"<Br>" &_
"Here is your presonal Account Information :" &_
"<p>" &_
"Username:" & strAccountName &_
"<Br>" &_
"Password:" & strAccountPassword &_
"<p>" &_
"HELLO HELLO here is your email...go to <a href='
and :: Log In! :: " &_
"<p>" &_
"How About Another link<a href='
" &_
"<br>" &_
"<br>" &_
"</font>"
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 ::