or


Imports SystemImports System.Collections.GenericImports System.WebImports System.Web.UIImports System.Web.UI.WebControlsImports Telerik.Web.UIImports System.DataImports System.Data.SqlClientPartial Public Class _2014 Inherits System.Web.UI.Page Protected Sub RadRating_Rate(sender As Object, e As EventArgs) Dim rating As RadRating = DirectCast(sender, RadRating) If rating.ID = "RadRating1" Then Label1.Text = "Your Rating is: " + "<span style='color:Red'>" + RadRating1.Value.ToString + "</span>" AddRating(RadRating1.Value, "Amanda", 20141) End If If rating.ID = "RadRating2" Then End If If rating.ID = "RadRating3" Then End If If rating.ID = "RadRating4" Then End If End Sub Public Sub AddRating(ByVal rateVal As Object, ByVal picName As String, ByVal picId As Integer) Dim cnstr2 = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString()) Dim cmd2 = New System.Data.SqlClient.SqlCommand("INSERT INTO Ratings(Rating,CreateDate,name,PicID) VALUES (@rating, @date , @name, @picID)", cnstr2) cmd2.CommandType = System.Data.CommandType.Text cmd2.Parameters.AddWithValue("@rating", rateVal) cmd2.Parameters.AddWithValue("@date", Date.Now) cmd2.Parameters.AddWithValue("@name", picName) cmd2.Parameters.AddWithValue("@picID", picId) 'cmd2.Parameters.AddWithValue("@ip", ip) cnstr2.Open() cmd2.ExecuteNonQuery() cnstr2.Close() End Sub Public Function GetCount(ByVal picID As Integer) As Decimal Dim theCount As Decimal = 0.0 'Dim currentAverageRating As Object = Vehicles.Rows(dataItem.ItemIndex + RadGrid1.CurrentPageIndex * RadGrid1.PageSize)(2) Dim cnstr2 = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString()) Dim rdr As SqlDataReader Dim cmd2 = New System.Data.SqlClient.SqlCommand("SELECT AVG(Rating) AS Total FROM Ratings WHERE PicID = @picID ", cnstr2) cmd2.CommandType = System.Data.CommandType.Text cmd2.Parameters.AddWithValue("@picID", picID) cnstr2.Open() rdr = cmd2.ExecuteReader If rdr.HasRows Then rdr.Read() If Not IsDBNull(rdr.GetValue(rdr.GetOrdinal("Total"))) Then theCount = rdr.GetValue(rdr.GetOrdinal("Total")) End If End If rdr.Close() cnstr2.Close() Return theCount End Function Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load RadRating1.DbValue = GetCount(20141) 'Label1.Text = "Your Rating is: " + "<span style='color:Red'>" + RadRating1.Value.ToString + "</span>" Label2.Text = "Average Rating is: " + "<span style='color:Red'>" + Convert.ToString(Format(GetCount(20141), "#.#")) + "</span>" End SubEnd Class<telerik:RadRating ID="RadRating1" Precision="Item" Value="0" ItemCount="5" runat="server" AutoPostBack="true" OnRate="RadRating_Rate"> </telerik:RadRating> <asp:Label ID="Label1" runat="server" ForeColor="Green"></asp:Label> <asp:Label ID="Label2" runat="server" ForeColor="Green"></asp:Label>


<telerik:GridTemplateColumn HeaderText="Expires On" DataType="System.DateTime" Visible="true" ShowFilterIcon="true" ShowSortIcon="true" UniqueName="dpExpDate" DataField="EXPIRATION_DATE" AllowFiltering="true" SortExpression="EXPIRATION_DATE" AllowSorting="true" FilterListOptions="VaryByDataType" > <HeaderStyle Width="240px" /> <ItemStyle Width="240px" /> <ItemTemplate> <asp:Label runat="server" ID="lblExpDate" /> </ItemTemplate> <EditItemTemplate> <telerik:RadDateTimePicker runat="server" ID="dpExpDate" Skin="Office2010Blue" Width="220px"> <DateInput Display="true" DisplayDateFormat="G" DateFormat="G" runat="server" Font-Size="13px" Font-Name="Arial" /> <TimePopupButton Visible="false" /> </telerik:RadDateTimePicker><asp:Label runat="server" ID="lblInsertIn" Text="In" /> <telerik:RadDropDownList runat="server" ID="ddlInsertHours" Font-Names="Arial" Font-Size="13px" Width="80px" Skin="Office2010Blue" /> <asp:Label runat="server" ID="lblInsertHours" Text="Hours" /> </EditItemTemplate></telerik:GridTemplateColumn>if (e.Item is GridFilteringItem){ GridFilteringItem item = e.Item as GridFilteringItem; if (item["dpExpDate"].Controls[0] is TextBox) { DateTime value = DateTime.MinValue; DateTime.TryParse(gridBatches.MasterTableView.GetColumn("dpExpDate").CurrentFilterValue, out value); RadDateTimePicker pick = new RadDateTimePicker(); pick.Width = Unit.Pixel(200); pick.DateInput.DateFormat = "G"; pick.DateInput.DisplayDateFormat = "G"; pick.TimePopupButton.Visible = false; pick.DateInput.Width = Unit.Pixel(180); pick.Skin = "Office2010Blue"; pick.DateInput.Font.Size = FontUnit.Parse("13px"); pick.DateInput.Font.Name = "Arial"; if (!value.Equals(DateTime.MinValue)) pick.DbSelectedDate = value; item["dpExpDate"].Controls.RemoveAt(0); item["dpExpDate"].Controls.AddAt(0, pick); }}