%@ Language=VBScript %> <% Option Explicit Response.Buffer = True 'enable html buffering '****************************************************************************** 'Copyright Dundas Software Ltd. 2000. All Rights Reserved. ' 'PURPOSE: The user can send a text-based email with an optional file ' attachment to the specified recipient. ' 'POST DESTINATION: SendMail_Process.asp. ' 'INPUT: TO address, From address, SMTP relay server (optional), ' CC and BCC recipients, Subject, message body and ' optional file attachment, and SMTP relay server (optional). ' 'COMMENTS: Maximum amount of posted data is 1 Meg. ' A success message is displayed if the email was successfully ' sent, otherwise the user is redirected to an error page. ' 'Dundas Software Contact Information: ' Email: sales@dundas.com ' Phone: (800) 463-1492 ' (416) 467-5100 ' Fax: (416) 422-4801 '****************************************************************************** %>
<%
'check to see if an email was successfully sent previously, if it
' was then display a short success message to the user.
'we also retrieve QueryString values (set by SendMail_Process.asp) so that
' we can populate the form's input elements
Dim temp(5) 'this array is used to set Value attribute of form elements
If Request.QueryString("Success") = "TRUE" Then
Response.Write "
This demo sends a text-based email to a specified destination address. This main page retrieves email data and then posts to SendMail_Process.asp which uses the Upload and Mailer controls to handle the file attachment and send the email. If the operation is successful you will be redirected back to this main page. If it is not successful you will be redirected to an error page.
Note: you can specify multiple addresses for the To, BCC and CC fields by separating the addresses with commas.