<% set NewMailObj=CreateObject("CDONTS.NewMail")
NewMailObj.From="harry@concord.com"
NewMailObj.to ="harry@concord.com"
NewMailObj.Subject ="New Document " & dsnno & " version:" & ver & " has been released"
'Response.Write (newmailobj.Subject)
newmailobj.BodyFormat=0'html
newmailobj.MailFormat=0'mime
mailBody ="<html><body>Dear all:"
mailBody=mailBody & "<br><br> New Document: " & dsnno & "<br>" & "Title: " & title
mailBody=mailBody & "<br>Version: " & ver
mailBody=mailBody & "<br><br>Please Click <a href=http://dellsrv/rnd/dsn/dsnlist.asp?ssearch=" & dsnno & "&class=1&released=" & rele & ">here</a> to check the electronic document for reference"
mailBody=mailBody & "<br><br>Have a nice day!<br><br>"
mailBody=mailBody & session("username")
mailbody=mailbody & "</body></html>"
NewMailObj.Body=mailBody
NewMailObj.Send
Response.write ("send")
NewMailObj.From="harry@concord.com"
NewMailObj.to ="harry@concord.com"
NewMailObj.Subject ="New Document " & dsnno & " version:" & ver & " has been released"
'Response.Write (newmailobj.Subject)
newmailobj.BodyFormat=0'html
newmailobj.MailFormat=0'mime
mailBody ="<html><body>Dear all:"
mailBody=mailBody & "<br><br> New Document: " & dsnno & "<br>" & "Title: " & title
mailBody=mailBody & "<br>Version: " & ver
mailBody=mailBody & "<br><br>Please Click <a href=http://dellsrv/rnd/dsn/dsnlist.asp?ssearch=" & dsnno & "&class=1&released=" & rele & ">here</a> to check the electronic document for reference"
mailBody=mailBody & "<br><br>Have a nice day!<br><br>"
mailBody=mailBody & session("username")
mailbody=mailbody & "</body></html>"
NewMailObj.Body=mailBody
NewMailObj.Send
Response.write ("send")