|
<%@ Page Language="VB" %>
<script runat="server">
Sub ImageButton1_Click(sender As Object, e As ImageClickEventArgs)
Dim Message As String
Message = "Hello " & txtName.Text & "."
If chkTour.Checked Then
Message &= cboCountry.SelectedItem.Text
End If
If radMail.SelectedItem.Value = "HTML" Then
Label1.Text = "Using HTML format for mail. Sending:<p />" & Message
Else
Label1.Text = "Using plain format for mail. Sending:<p />" & Message
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
Subscribe to our mailing list:
</p>
<p>
<table style="WIDTH: 300px; HEIGHT: 150px">
<tbody>
<tr>
<td>
Name:</td>
<td>
<asp:TextBox id="txtName" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
E-mail Address:</td>
<td>
<asp:TextBox id="txtEmail" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Country:</td>
<td>
<asp:DropDownList id="cboCountry" runat="server">
<asp:ListItem Value="US" Selected="True">United States</asp:ListItem>
<asp:ListItem Value="UK">United Kingdom</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr>
<td>
Mail me tour details:</td>
<td>
<asp:CheckBox id="chkTour" runat="server"></asp:CheckBox>
</td>
</tr>
<tr>
<td>
Mail format:</td>
<td>
<asp:RadioButtonList id="radMail" runat="server">
<asp:ListItem Value="HTML">HTML</asp:ListItem>
<asp:ListItem Value="Text">Text</asp:ListItem>
</asp:RadioButtonList>
</td>
</tr>
<tr>
<td>
</td>
<td>
<asp:ImageButton id="ImageButton1" onclick="ImageButton1_Click" runat="server" ImageUrl="http://www.java2s.com/style/logo.png"></asp:ImageButton>
</td>
</tr>
</tbody>
</table>
</p>
</form>
<p>
<asp:Label id="Label1" runat="server"></asp:Label>
</p>
</body>
</html>
|
