or
<telerik:RadComboBox ID="RadComboBoxStringInLookupValue" Runat="server" Width="325px" EnableTextSelection="False" DropDownWidth="325px" HighlightTemplatedItems="True" Visible="true" CloseDropDownOnBlur="False" > <ItemTemplate> <ul> <li class="col1"> <telerik:RadListBox ID="RadListBoxSource" runat="server" Height="125px" DataSourceID="ObjectDataSourceLookUpValues" DataTextField="Descr" DataValueField="Code" AllowTransfer="true" TransferToID="RadListBoxDestination" AllowTransferOnDoubleClick="True" SelectionMode="Multiple" Enabled="True" OnClientSelectedIndexChanging="SetDropDownToOpen" OnClientSelectedIndexChanged="SetCanvasChanged" ondatabound="OnDataBound" onitemdatabound="OnItemsDataBound" > <ButtonSettings ReorderButtons="Common"></ButtonSettings> </telerik:RadListBox> </li> <li class="col2"> <telerik:RadListBox ID="RadListBoxDestination" runat="server" Height="125px" SelectionMode="Multiple"> <ButtonSettings ReorderButtons="Common"></ButtonSettings> </telerik:RadListBox> </li> </ul> </ItemTemplate> <Items> <telerik:RadComboBoxItem Text="" /> </Items> </telerik:RadComboBox> <telerik:RadAsyncUpload ID="RadAsyncUpload1" runat="server" AllowedFileExtensions=".pdf" OnFileUploaded="RadAsyncUpload1_FileUploaded" MaxFileInputsCount="1" AllowedMimeTypes="application/pdf" Width="300px" InputSize="48" MaxFileSize="20600" EnableFileInputSkinning="False" Skin="Vista" ChunkSize="0" TargetFolder="c:/TESTUPLOADS"> </telerik:RadAsyncUpload> </td></tr><tr> <td><asp:CheckBox ID="chkLibrary" runat="server" Text="Add To Library"/> </td></tr> <tr> <td> <table cellpadding="2" cellspacing="2" width="100%" border="0"> <tr> <td style="width:100%;"> <asp:CustomValidator ID="Customvalidator1" runat="server" Display="Dynamic" ClientValidationFunction="validateRadAsyncUpload1"> <span style="FONT-SIZE: 11px;">Invalid file type.</span> </asp:CustomValidator> </td> <td> <asp:Button ID="buttonSubmit" runat="server" CssClass="RadUploadButton" Text="Import" style="width:95px"/> </td> <td> <asp:Button ID="ctlCancelButton" runat="server" OnClientClick="Cancel_Clicked();return false;" Text="Cancel" style="width:95px"/> </td> </tr>
Protected Sub RadAsyncUpload1_FileUploaded(sender As Object, e As Telerik.Web.UI.FileUploadedEventArgs) Handles RadAsyncUpload1.FileUploaded
Dim targetFolder As String = RadAsyncUpload1.TargetFolder
Response.Write(Server.MapPath(targetFolder & "/" & e.File.FileName))
End Sub
Protected Sub myRadGridList_ItemDataBound(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles myRadGridList.ItemDataBound If TypeOf e.Item Is GridDataItem Then Dim Item As GridDataItem = CType(e.Item, GridDataItem) Dim DOB As DateTime = DateTime.Parse(Item.Cells(2).Text.ToString) If DatePart(DateInterval.Month, DOB) = DatePart(DateInterval.Month, Date.Now) Then Item.Cells(2).ForeColor = Drawing.Color.Firebrick End If End If End Sub