File Manager
Back to List
| Current Directory: ~/
Editing: testsendmail.asp.bak
Full path: C:\ict\ICT\testsendmail.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<% 'Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP CDONTS.NewMail Send Mail</title> </head> <body> <% Dim myMail,HTML,strMsg,mymail1 Set myMail = Server.CreateObject("CDONTS.NewMail") 'set mymail1=server.createobject("cdonts.message") 'set mymail1=server.createobject("cdonts.message") strMsg = "" strMsg = strMsg &"<h1>My Message</h1><br>" strMsg = strMsg &"<table width='285' border='1'>" strMsg = strMsg &" <tr>" strMsg = strMsg &" <td><div align='center'><strong>My Message </strong></div></td>" strMsg = strMsg &" <td><div align='center'><font color='red'>My Message</font></div></td>" strMsg = strMsg &" <td><div align='center'><font size='2'>My Message</font></div></td>" strMsg = strMsg &" </tr>" strMsg = strMsg &" <tr>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" </tr>" strMsg = strMsg &" <tr>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" </tr>" strMsg = strMsg &"</table>" myMail.From = "Webmaster <wassanaw@swu.ac.th>" myMail.Value("Reply-To") = "wassanaw@swu.ac.th" myMail.To = "prateep@swu.ac.th" 'myMail.To = "wassana_80@hotmail.com" myMail.Subject = "please reply me when you receive message" myMail.MailFormat = 0 myMail.BodyFormat = 0 myMail.Body = strMsg myMail.Send if isobject(myMail) then response.write ("cdo connected") else response.write ("cdo not connect") end if Response.write ("Mail Sending.") Set myMail = Nothing %> </body> </html>