|
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMessage as String
Dim TheMailMessage as New MailMessage
Dim TheAttachment as MailAttachment
TheMessage = txtName.Text _
& ": Attached to this email is the " _
& "file you requested."
TheMailMessage.From = "us@a.com"
TheMailMessage.To = txtEmailAddress.Text
TheMailMessage.Subject = "File Request"
TheMailMessage.Body = TheMessage
TheAttachment = New MailAttachment( _
Server.MapPath(ddlFile.SelectedItem.Value))
TheMailMessage.Attachments.Add(TheAttachment)
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(TheMailMessage)
lblMessage1.Text = "The file requested has been sent " _
& "to the email address you entered.<BR>Enter Your Name"
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>File Request Sample Site</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Font Face="Tahoma" Size="+1">
<asp:Label
id="lblMessage1"
runat="Server"
Text="Enter Your Name"
/>
<BR>
<asp:TextBox
id="txtName"
runat="server"
MaxLength=50
/>
<BR><BR>
<asp:Label
id="lblMessage2"
runat="Server"
Text="And Your Email Address"
/>
<BR>
<asp:TextBox
id="txtEmailAddress"
runat="server"
MaxLength=50
/>
<BR><BR>
<asp:Label
id="lblMessage3"
runat="Server"
Text="Select the file you wish to download"
/>
<BR>
<asp:DropDownList
id="ddlFile"
runat="server"
>
<asp:ListItem
Value="Catalog.txt"
Text="Catalog"
/>
<asp:ListItem
Value="StoreLocations.txt"
Text="Store Locations"
/>
</asp:DropDownList>
<BR><BR>
<asp:button
id="butOK"
text="Send File"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
<BR>
</Font>
</Form>
</BODY>
</HTML>
|
