Created
September 28, 2023 14:22
-
-
Save evagoras/92ab73d4eb17c8c666c562c6c83e08de to your computer and use it in GitHub Desktop.
Formatting complex ASP output using HTML templates
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ... | |
| Set objEmail = Server.CreateObject("CDONTS.NewMail") | |
| objEmail.BodyFormat = 0 'CdoBodyFormatHTML objEmail.MailFormat = 0 'CdoMailFormatMime | |
| objEmail.From = strEmail | |
| objEmail.To = "[email protected]" | |
| objEmail.Subject = strSubject | |
| objEmail.Body = ReadFile("template.htm") | |
| objEmail.Send | |
| Set objEmail = Nothing |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Function ReadFile(filename) | |
| Dim objFSO | |
| Dim objTStream | |
| Dim strText | |
| Const ForReading = 1 | |
| Set objFSO = Server.CreateObject("Scripting.FileSystemObject") | |
| Set objTStream = objFSO.OpenTextFile(Server.MapPath(filename), ForReading) | |
| strText = objTStream.ReadAll | |
| Set objTStream = Nothing | |
| Set objFSO = Nothing | |
| strText = Replace(strText, "REPLACE_Name", strName) | |
| strText = Replace(strText, "REPLACE_Email", strEmail) | |
| strText = Replace(strText, "REPLACE_Phone", strPhone) | |
| strText = Replace(strText, "REPLACE_Fax", strFax) | |
| '-- Notice that below I am replacing all line breaks with the HTML <br>. | |
| ' This applies to all form textboxes, where the user can enter line breaks | |
| ' and it achieves proper display of the contents in HTML. | |
| strText = Replace(strText, "REPLACE_Address", Replace(strAddress, vbcrlf, "<br>")) | |
| strText = Replace(strText, "REPLACE_Profession", strProfession) | |
| strText = Replace(strText, "REPLACE_Subject", strSubject) | |
| strText = Replace(strText, "REPLACE_Message", Replace(strMessage, vbcrlf, "<br>")) | |
| ReadFile = strText | |
| End Function |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html> | |
| <head> | |
| <title>Untitled</title> | |
| </head> | |
| <body> | |
| <em><!--template start; erase all above--></em> | |
| ... | |
| <em><!--template end; erase all below--></em> | |
| </body> | |
| </html> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Dim strName | |
| Dim strEmail | |
| Dim strSubject | |
| Dim strMessage | |
| Dim strAddress | |
| Dim strPhone | |
| Dim strFax | |
| Dim strProfession | |
| Dim objEmail | |
| strName = Request.Form("Name") | |
| strEmail = Request.Form("Email") | |
| strSubject = Request.Form("Subject") | |
| strMessage = Request.Form("Message") | |
| strAddress = Request.Form("Address") | |
| strPhone = Request.Form("Phone") | |
| strFax = Request.Form("Fax") | |
| strProfession = Request.Form("Profession") | |
| Set objEmail = Server.CreateObject("CDONTS.NewMail") | |
| objEmail.From = strEmail | |
| objEmail.To = "[email protected]" | |
| objEmail.Subject = strSubject | |
| objEmail.Body = "Email sent at " & Now() & vbcrlf _ | |
| & "by " & strName & vbcrlf _ | |
| & "---------------------------------------" & vbcrlf & vbcrlf _ | |
| & "Address: " & strAddress & vbcrlf _ | |
| & "Phone: " & strPhone & vbcrlf _ | |
| & "Fax: " & strFax & vbcrlf _ | |
| & "Profession: " & strProfession & vbcrlf _ | |
| & "Message: " & strMessage & vbcrlf | |
| objEmail.Send | |
| Set objEmail = Nothing |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
https://evagoras.com/2011/02/07/formatting-complex-asp-output-using-html-templates/