or
<%@ Control Language="C#" AutoEventWireup="true" CodeBehind="StayDay.ascx.cs" Inherits="WebTickets.SubModules.StayDay" %><div id="dayStay"style="width:100px;padding:3px;"> <asp:Panel runat="server" ID="container" meta:resourcekey="containerResource1"> <asp:Label ID="day" runat="server" height="10px" Font-Size="Smaller" meta:resourcekey="dayResource1"></asp:Label> <br /> <br /><span class="description">Disponibilità </span> <telerik:RadGrid ID="rgDays" runat="server" GridLines="None" AutoGenerateColumns="False" OnItemDataBound="rgDataBound" OnItemCreated="rgItemCreated" CellPadding="0" Width="68px" BorderStyle="None" BorderColor="Transparent" meta:resourcekey="rgDaysResource1" BackColor="#FFFFFF"> <AlternatingItemStyle Width="67px" CssClass="RadGrid_Default" BorderStyle="None" BorderColor="Transparent" /> <MasterTableView DataKeyNames="Id" ShowHeader="False" BorderWidth="0px" BorderStyle="None" BorderColor="Transparent" style="padding:2px" CellPadding="0" CellSpacing="0" Width="68px" CssClass="RadGrid_Default"> <NoRecordsTemplate> <asp:Label ID="lblQuantity" runat="server" meta:resourcekey="lblQuantityResource1" ></asp:Label> ingressi <asp:HiddenField Id="hfmax" runat="server"/> <table width="60px" border="0"> <tr> <td style="height:14px;width:14px""> <telerik:RadComboBox ID="rTB" runat="server" OnClientSelectedIndexChanging="setTotal" EnableScreenBoundaryDetection="false" DropDownWidth="48px" AllowCustomText="false" MaxHeight="180px" EnableVirtualScrolling="True" Width="48px" AutoPostBack="false" meta:resourcekey="rTBResource1" ChangeTextOnKeyBoardNavigation="false"> <%-- OnClientItemsRequested="ClientLoadItem"OnItemsRequested="LoadItem"OnClientLoad="LoadFirst10"--%> <Items> <telerik:RadComboBoxItem Text="0" Value="0" /> </Items> </telerik:RadComboBox> </td> </table> </NoRecordsTemplate> <Columns> <telerik:GridTemplateColumn meta:resourcekey="GridTemplateColumnResource1" UniqueName="TemplateColumn"> <ItemTemplate> <table cellspacing="1px" cellpadding="1px"> <tr> <td style="height:12px;width:12px;padding:0px"><asp:Label ID="fromHour" runat="server" Text='<%# Eval("fromHour") %>' meta:resourcekey="fromHourResource1"></asp:Label>-<asp:Label ID="toHouor" runat="server" Text='<%# Eval("toHour") %>' meta:resourcekey="toHouorResource1"></asp:Label></td> <td style="height:10px;padding:2px;padding:0px"> <telerik:RadComboBox ID="rTB" Width="40px" runat="server" ChangeTextOnKeyBoardNavigation="false" EnableScreenBoundaryDetection="false" OnClientSelectedIndexChanged="setTotal2" DropDownWidth="20" MaxHeight="180px" EnableVirtualScrolling="True" AllowCustomText="false" AutoPostBack="false" meta:resourcekey="rTBResource2"><%-- OnItemsRequested="LoadItem"OnClientLoad="LoadFirst10"OnClientItemsRequested="ClientLoadItem"--%> <Items> <telerik:RadComboBoxItem Text="0" Value="0"/> </Items> </telerik:RadComboBox> </td></tr> </table> </ItemTemplate> </telerik:GridTemplateColumn> </Columns> <ItemStyle Height="12px" Width="95px" /> <AlternatingItemStyle BackColor="White" BorderWidth="0px" /> </MasterTableView> </telerik:RadGrid> </asp:Panel></div>
<telerik:RadChart ID="mmpaChart" runat="server" Width="360px" > <PlotArea EmptySeriesMessage-Visible="True"> <EmptySeriesMessage TextBlock-Text="No data, may need to refresh page" /> </PlotArea></telerik:RadChart> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <ajaxsettings> <telerik:AjaxSetting AjaxControlID="Button1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="Button1" LoadingPanelID="RadAjaxLoadingPanel1" /> <telerik:AjaxUpdatedControl ControlID="txtEmail" /> <telerik:AjaxUpdatedControl ControlID="litStatus" /> </UpdatedControls> </telerik:AjaxSetting> </ajaxsettings> </telerik:RadAjaxManager> <br /> <br /> <asp:Button ID="Button1" runat="server" Text="Button" /> Email: <asp:TextBox ID="txtEmail" runat="server" Width="266px"></asp:TextBox> <br /> <asp:Literal ID="litStatus" runat="server">dddddddd</asp:Literal><br /><telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server" MinDisplayTime="3000" Skin="Default"></telerik:RadAjaxLoadingPanel>Function AddEmail(ByVal strEmail As String) As Boolean Me.txtEmail.Text = "" Dim inputEmail As String = strEmail.Trim.ToLower Dim bSuccess As Boolean = False Dim strRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & "\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & ".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$" 'Validate email Dim re As New Regex(strRegex) If re.IsMatch(inputEmail) Then Else litStatus.Text = "Please enter a valid email to join our mailing list." ' litStatus.Text = "yeah are already a member. If you are not receiving our communications, please check your spam folder." Return (False) End If 'Open file and add email Dim xmldoc As New XmlDocument xmldoc.Load(Server.MapPath("xmlfile.xml")) 'Check to make sure the email doesn't already exist Dim m_nodelist As XmlNodeList = xmldoc.SelectNodes("emails/email") For Each m_node In m_nodelist Dim strEmailNode = m_node.ChildNodes.Item(0).InnerText.ToString.ToLower 'Get the lastName Element Value If strEmailNode = inputEmail Then litStatus.Text = "You are already a member. If you are not receiving our communications, please check your spam folder." Return (False) End If Next 'Append new node and save xml Dim newNode As XmlElement = xmldoc.CreateElement("email") newNode.InnerText = inputEmail xmldoc.DocumentElement.AppendChild(newNode) xmldoc.Save(Server.MapPath("xmlfile.xml")) litStatus.Text = "Thank you for joining our mailing list." AddEmail = TrueEnd Function