| <telerik:RadComboBox ID="Title" runat="server" |
| ToolTip="Please enter your title" Skin="WebBlue" Text="Title" |
| > |
| <Items> |
| <telerik:RadComboBoxItem runat="server" Text="Mr" Value="Mr" /> |
| <telerik:RadComboBoxItem runat="server" Text="Mrs" Value="Mrs" /> |
| <telerik:RadComboBoxItem runat="server" Text="Miss" Value="Miss" /> |
| <telerik:RadComboBoxItem runat="server" Text="Ms" Value="Ms" /> |
| <telerik:RadComboBoxItem runat="server" Text="Dr" Value="Dr" ToolTip="Please give your title" /> |
| <telerik:RadComboBoxItem runat="server" Text="Prof" Value="Prof" /> |
| </Items> |
| <CollapseAnimation Duration="200" Type="OutQuint" /> |
| </telerik:RadComboBox> |
| Imports System.Net.Mail |
| Imports System.Net |
| Partial Class fastquote_Default |
| Inherits System.Web.UI.Page |
| Protected Sub SendEmail_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) |
| ' !!! UPDATE THIS VALUE TO YOUR EMAIL ADDRESS |
| Const ToAddress As String = "me@gmail.com" |
| Dim mm As New MailMessage() |
| ' (2) Assign the MailMessage's properties |
| mm.Subject = "GetAQuote" |
| mm.IsBodyHtml = True |
| mm.Body = ("" & (HttpUtility.HtmlEncode(Title.SelectedItem.Value) & "")) |
| Dim smtp As New SmtpClient() |
| ' (4) Send the MailMessage (will use the Web.config settings) |
| smtp.Send(mm) |
| End Sub |
| End Class |
<%
@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %>
<%
@ Register TagPrefix="telerik" Namespace="Telerik.Charting" Assembly="Telerik.Web.UI" %>
This is actually taken from an example as am just starting to work with the Charting stuff, had it
working at home and thought with a few changes to the datasource would be fine.
Any idea's would be helpful, starting to thing about the differences on the physical systems now?
Thanks!
| <telerik:RadEditor ID="CompanyOverviewRadEditor" runat="server" |
| ToolsFile="~/AdminResources/Editor/JobOpenings.xml" |
| ContentAreaCssFile='<%# string.Format("/Resources/{0}/EditorStyles.css", CurrentWebsite.Id) %>' |
| DocumentManager-ViewPaths='<%# new string[] {string.Format("/Resources/{0}/FileRepository/", CurrentWebsite.Id)} %>' |
| DocumentManager-UploadPaths='<%# new string[] {string.Format("/Resources{0}/FileRepository/", CurrentWebsite.Id)} %>' |
| DocumentManager-DeletePaths='<%# new string[] {string.Format("/Resources{0}/FileRepository/", CurrentWebsite.Id)} %>' |
| ImageManager-ViewPaths='<%# new string[] {string.Format("/Resources/{0}/FileRepository/", CurrentWebsite.Id)} %>' |
| ImageManager-UploadPaths='<%# new string[] {string.Format("/Resources/{0}/FileRepository/", CurrentWebsite.Id)} %>' |
| ImageManager-DeletePaths='<%# new string[] {string.Format("/Resources{0}FileRepository/", CurrentWebsite.Id)} %>' |
| Height="250px" |
| Content='<%# Bind("CompanyOverview") %>'> |
| <CssFiles> |
| <telerik:EditorCssFile Value="" /> |
| </CssFiles> |
| </telerik:RadEditor> |
Protected
Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.WebControls.GridItemEventArgs)
If (TypeOf e.Item Is Telerik.WebControls.GridDataItem) Then
Dim dataitem As Telerik.WebControls.GridDataItem = e.Item
If (dataitem("Name").Text) = "Test" Then
dataitem(
"Name").ForeColor = System.Drawing.Color.Red
End If
End If
End Sub
