Styling ASP 1

[johnsimpson]

Hi guys,

Bit confused here, Im fairly new to ASP and am having trouble adding a style to some text.

Basically im creating a forgotten password for a cms system, all is working great, sends the email and everything, but the HTML email is in plain text format and i want to add a style to make it cleaner text

the code im using to write to the email body is:
mailObj.Body = "You requested a password reminder. Your username is:- " & GETData("emailadd") & "Your password is:- " & GETData("pwd")

How can i add a "inline" style to this so it will display in verdana, size 10 in the email?

I had it working if i put it within the string text but it wont format the database element (i.e emailadd or pwd will be in plain text still)

thanks in advance

 

[TheCandyman]

You need double quotes to make it work.

mailObj.Body = "<font face=""Verdana"" size=""2"">You requested a password reminder. Your username is:- " & GETData("emailadd") & "Your password is:- " & GETData("pwd") &"</font>"

 

[johnsimpson]

i tried that before (and just now) but it doesnt seem to work... having the "</font>" at the end of the code for some reason makes the email appear with the "<font face=""Verdana"" size=""2""> text as well...

???

I also need to format the email to appear on multiple lines... i.e adding a <br /> tag in, but when i do that it adds <br /> into the email instead of taking action.

Oh just to add, not sure if it matters but we are using CDONTS

thanks for your help
J

 

[TheCandyman]

Post your code that you use to send email. I bet you don't have mailObj.HTMLBody included so it's only sending plain text.

 

[johnsimpson]

<%
user = request("email")

IF user <> "" Then
SQL = "Select * From membership where username='" & user & "'"
Set GETData = ODBConnect.Execute(SQL)
IF NOT GETData.EOF Then
Set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 1
mailObj.MailFormat = 1
mailObj.From = "contact@domainname.co.uk"
mailObj.To = GETData("email")
mailObj.Subject = "COMPANY Password Reminder"
mailObj.Body = "<font face=""Verdana"" size=""2"">You requested a password reminder. Your username is:- " & GETData("email") & "Your password is:- " & GETData("password") & "</font>"
mailObj.Send
Set mailObj = Nothing
Response.write "<span style=""font-family: arial; font-size: 11px; color: #000; font-weight: normal;"">Thank you, an email has been sent to " & GETData("email") & "</span>"
Else
msg = "<span style=""font-family: arial; font-size: 11px; color: red; font-weight: normal;"">You do not appear to have a login, you must register first.</span>"
Response.write msg & "<p class=""MainContentheader""><strong>Signup</strong></p><p><span class=""MainContent""><strong>To become a member please click the appropriate link below:</strong></span></p>"
End If
Else
%>

 

[TheCandyman]

Yep, you have need the BodyFormat=0, 1 is plain text(no color, no html) if you don't list it at all, it will default to 1(plain text)

MailFormat should also be 0, let me see if i can find a good explination..

Yep, search(Crtl F) for BodyFormat:

http://www.devguru.com/features/tutorials/CDONTS/cdonts.html

 

[johnsimpson]

Your a star, thanks a lot, much appreciated.

I can't try it till i get back into work tomorrow but I will implement the code now.

thanks again
J