<%
' change to address of your own SMTP server
strHost = "smtp.broadviewnet.net"
' Body in HTML format
strHTML = "![]()
" & chr(13) &chr(10)
strHTML = strHTML & "" & chr(13) & chr(10)
strHTML = strHTML & "Persits Software Price List" & chr(13) & chr(10)
strHTML = strHTML & "| Product | Price |
|---|
" & chr(13) & chr(10)
strHTML = strHTML & "| AspEmail | Free |
" & chr(13) & chr(10)
strHTML = strHTML & "| AspUpload | $149.00 |
" & chr(13) & chr(10)
strHTML = strHTML & "| AspUser | $120.00 |
" & chr(13) & chr(10)
strHTML = strHTML & "| AspEncrypt | $249.00 |
" & chr(13) & chr(10)
strHTML = strHTML & "| AspGrid | $199.00 |
" & chr(13) & chr(10)
strHTML = strHTML & "| AspJpeg | $150.00 |
" & chr(13) & chr(10)
strHTML = strHTML & "
"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "sales@persits.com"
Mail.FromName = "Persits Software Sales"
Mail.AddAddress Request("To")
' message subject
Mail.Subject = "Price List"
' message body
Mail.IsHTML = True
Mail.Body = "" & strHTML & ""
Mail.Send ' send message
Response.Write "Success!"
End If
%>
AspEmail: HtmlFormat.asp
AspEmail: HtmlFormat.asp
Host: <% = strHost %> (change it to your own SMTP host in script)