This is a migrated thread and some comments may be shown as answers.

RadGrid on virtual domain not working

5 Answers 114 Views

Grid

This is a migrated thread and some comments may be shown as answers.

5 Answers, 1 is accepted

answered on 14 Jun 2011, 12:19 AM

I have already done one of these actions. When I try to edit the grid, the progress window displays, then goes away with no action. I have added the tag to one, two, and all of the rad objects. If somebody could take a look, I would appreciate the help. I can't get it to work. I have other grids that work fine.

<%@ Page Language="VB" MasterPageFile="~/ClientAdmin/MasterPage.master"  AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_test_Default" Title="Untitled Page"%>

<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>

<asp:Content ID="Content2" ContentPlaceHolderID="cphHead" Runat="Server">

<style type="text/css">

.MyImageButton

{

cursor: hand;

}

.EditFormHeader td

{

font-size: 14px;

padding: 4px !important;

color: #0066cc;

}

</style>

</asp:Content>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

<div>

<telerik:RadAjaxManager RestoreOriginalRenderDelegate="false" ID="RadAjaxManager1" runat="server">

<AjaxSettings>

<telerik:AjaxSetting AjaxControlID="button1">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1"/>

</UpdatedControls>

</telerik:AjaxSetting>

</AjaxSettings>

<AjaxSettings>

<telerik:AjaxSetting AjaxControlID="RadGrid1">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1"/>

</UpdatedControls>

</telerik:AjaxSetting>

</AjaxSettings>

</telerik:RadAjaxManager>

<telerik:RadAjaxLoadingPanel RestoreOriginalRenderDelegate="false" ID="RadAjaxLoadingPanel1" runat="server" Height="75px" Width="75px" Transparency="15" Style="width: 320px;padding-top: 100px;"

>

<img alt="Loading..."

src='<%= RadAjaxLoadingPanel.GetWebResourceUrl(Page, "Telerik.Web.UI.Skins.Default.Ajax.loading.gif") %>' style="border:0;" />

</telerik:RadAjaxLoadingPanel>

<telerik:RadScriptBlock ID="RadScriptBlock1" runat="server">

<script type="text/javascript">

//On insert and update buttons click temporarily disables ajax to perform upload actions

function conditionalPostback(e, sender)

{

var theRegexp = new RegExp("\.UpdateButton$|\.PerformInsertButton$", "ig");

if (sender.EventTarget.match(theRegexp))

{

var upload = $find(window['UploadId']);

//AJAX is disabled only if file is selected for upload

if(upload.getFileInputs()[0].value != "")

{

sender.EnableAjax = false;

}

</script>

</telerik:RadScriptBlock>

<telerik:RadAjaxPanel RestoreOriginalRenderDelegate="false" ID="RadAjaxPanel1" runat="server" ClientEvents-OnRequestStart="conditionalPostback">

<telerik:RadGrid ID="RadGrid1" RestoreOriginalRenderDelegate="false" runat="server" DataSourceID="AccessDataSource1" AllowMultiRowSelection="true" Skin="Hay"

AllowAutomaticDeletes="True"

AllowAutomaticInserts="True"

AllowAutomaticUpdates="True"

OnItemUpdated="RadGrid1_ItemUpdated"

OnItemDeleted="RadGrid1_ItemDeleted"

OnItemInserted="RadGrid1_ItemInserted"

OnItemCreated="RadGrid1_ItemCreated"

AutoGenerateColumns="False"

ShowStatusBar="True"

Height="800"

>

<MasterTableView DataKeyNames="Id" Width="100%" TableLayout="Auto"

CommandItemDisplay="TopAndBottom" AutoGenerateColumns="false"

CommandItemSettings-AddNewRecordText=" Add a new Album">

<Columns>

<telerik:GridEditCommandColumn ButtonType="ImageButton" UniqueName="EditCommandColumn">

<ItemStyle CssClass="MyImageButton" />

</telerik:GridEditCommandColumn>

<telerik:GridCheckBoxColumn DataField="ActiveGroup" HeaderText="Active Group" SortExpression="ActiveGroup"

UniqueName="ActiveGroupColumn" EditFormColumnIndex="1">

<HeaderStyle Width="50px" />

</telerik:GridCheckBoxColumn>

<telerik:GridTemplateColumn HeaderText="Album Name" SortExpression="GroupName" UniqueName="GroupNameColumn"

EditFormColumnIndex="1">

<ItemTemplate>

<asp:Label runat="server" ID="lblGroupName" Text='<%# Eval("GroupName") %>'></asp:Label>

</ItemTemplate>

<EditItemTemplate>

<asp:TextBox Rows="1" Width="300" TextMode="SingleLine" MaxLength="200" runat="server" ID="tbGroupName" Text='<%# Bind("GroupName") %>'></asp:TextBox>

<span style="color: Red">*<asp:RequiredFieldValidator ID="RequiredFieldValidator1" ControlToValidate="tbGroupName" ErrorMessage="Required" runat="server"></asp:RequiredFieldValidator>

<asp:TextBox Rows="1" Width="300" TextMode="SingleLine" Visible="false" MaxLength="200" runat="server" ID="txtExistingImage" Text='<%# Bind("Image") %>'></asp:TextBox>

</EditItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderText="Album Description" SortExpression="GroupDescription" UniqueName="GroupDescriptionColumn"

EditFormColumnIndex="1">

<ItemTemplate>

<asp:Label runat="server" ID="lblGroupDescription" Text='<%# Eval("GroupDescription") %>'></asp:Label>

</ItemTemplate>

<EditItemTemplate>

<asp:TextBox Rows="3" Width="300px" TextMode="multiline" runat="server" ID="tbGroupDescription" Text='<%# Bind("GroupDescription") %>'></asp:TextBox>

</EditItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderText="Image" UniqueName="Upload" EditFormColumnIndex="1">

<ItemTemplate>

<asp:Image runat="server" ID="ImageThumbnail" AlternateText="No Image"

ImageUrl='<%# DisplayImage(System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("AlbumImagePath") &  Eval("image"))%>' Style="border-width: 0px;" />

</ItemTemplate>

<EditItemTemplate>

<telerik:RadUpload ID="RadUpload1" runat="server" InitialFileInputsCount="1" MaxFileInputsCount="1"

ControlObjectsVisibility="None" MaxFileSize="8000000" AllowedFileExtensions=".jpg"

TargetFolder="" />

</EditItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderText="" SortExpression="ImageCount" UniqueName="ImageCountColumn">

<ItemTemplate>

<asp:Hyperlink ID="lnkAddImages" runat="server"><%#"Add Images"%></asp:Hyperlink>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderText="" SortExpression="ImageCount" UniqueName="ImageCountColumn">

<ItemTemplate>

<asp:Hyperlink ID="lnkEditImages" runat="server"><%#"Edit Images"%></asp:Hyperlink>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridButtonColumn ConfirmText="Do you want to delete this album?" ConfirmDialogType="RadWindow" ConfirmTitle="Delete" ButtonType="ImageButton"

CommandName="Delete" Text="Delete" UniqueName="DeleteColumn">

<ItemStyle HorizontalAlign="Center" CssClass="MyImageButton" />

</telerik:GridButtonColumn>

</Columns>

<EditFormSettings ColumnNumber="2" CaptionDataField="GroupName" CaptionFormatString="Edit properties of Group {0}">

<FormTableItemStyle HorizontalAlign="Left" Wrap="True"></FormTableItemStyle>

<FormCaptionStyle CssClass="EditFormHeader"></FormCaptionStyle>

<FormMainTableStyle GridLines="None" CellSpacing="0" CellPadding="3" BackColor="LightGoldenrodYellow"

Width="100%" />

<FormTableStyle CellSpacing="0" CellPadding="2" BackColor="LightGoldenrodYellow" />

<FormTableAlternatingItemStyle Wrap="True"></FormTableAlternatingItemStyle>

<EditColumn ButtonType="PushButton"

InsertText="Insert Order" UpdateText="Update record" UniqueName="EditCommandColumn1" CancelText="Cancel edit">

</EditColumn>

<FormTableButtonRowStyle HorizontalAlign="left" CssClass=""></FormTableButtonRowStyle>

</EditFormSettings>

</MasterTableView>

<ClientSettings AllowRowsDragDrop="true">

<Selecting EnableDragToSelectRows="true" AllowRowSelect="true" />

<Scrolling AllowScroll="true" />

</ClientSettings>

</telerik:RadGrid>

</telerik:RadAjaxPanel>

<asp:Label ID="lblInfo" runat="server" Text=""></asp:Label>

</div>

<asp:Button ID="Button1" runat="server" Text="Refresh Online Photo Gallery" style="margin-top:10px;" />

<asp:AccessDataSource ID="AccessDataSource1" runat="server"

DataFile="~/App_Data/ImageGallery.mdb"

SelectCommand=

"SELECT tbGroups.ID, tbGroups.GroupName, tbGroups.GroupDescription,tbGroups.ActiveGroup, tbGroups.Image, Count(tbImages.ID) AS ImageCount FROM tbGroups LEFT JOIN tbImages ON tbGroups.ID = tbImages.Group GROUP BY tbGroups.ID, tbGroups.ActiveGroup, tbGroups.GroupName, tbGroups.GroupDescription, tbGroups.Image, tbGroups.SortId ORDER BY tbGroups.SortId;"

DeleteCommand="DELETE FROM [tbGroups] WHERE [Id] = ?"

UpdateCommand="UPDATE [tbGroups] SET [GroupName] = ?, [GroupDescription] = ?,[ActiveGroup] = ?, [Image] = ? WHERE [Id] = ?"

InsertCommand=

"INSERT INTO [tbGroups] ([GroupName],[GroupDescription],[Image],[SortId]) VALUES (@GroupName,@GroupDescription,@Image,@SortId)"

>

<DeleteParameters>

<asp:Parameter Name="Id" Type="Int32" />

</DeleteParameters>

<UpdateParameters>

<asp:Parameter Name="GroupName" Type="String" />

<asp:Parameter Name="GroupDescription" Type="String" />

<asp:Parameter Name="ActiveGroup" Type="Boolean" />

<asp:SessionParameter SessionField="ImageInsert" Name="Image" Type="String" />

</UpdateParameters>

<InsertParameters>

<asp:Parameter Name="GroupName" Type="String" />

<asp:Parameter Name="GroupDescription" Type="String" />

<asp:SessionParameter SessionField="ImageInsert" Name="Image" Type="String" />

<asp:SessionParameter SessionField="SortInsert" Name="SortId" Type="String" />

</InsertParameters>

</asp:AccessDataSource>

<telerik:RadWindowManager RestoreOriginalRenderDelegate="false" ID="RadWindowManager1" runat="server" Skin="Vista">

<Windows>

<telerik:RadWindow Behaviors="None"

Skin="Hay"

ID="UserListDialog" runat="server" Title="Group/Image Editor" Height="600px"

Width="900px" Left="150px" ReloadOnShow="True" ShowContentDuringLoad="false" Modal="true" />

</Windows>

</telerik:RadWindowManager>

</asp:Content>

VB file

Imports System

Imports System.Collections.Generic

Imports System.Configuration

Imports System.Data

Imports System.Data.Common

Imports System.Data.SqlClient

Imports System.Data.OleDb

Imports System.Web.UI

Imports Telerik.Web.UI

Imports System.IO

Imports System.Drawing.Imaging

Imports System.Drawing

Imports System.Xml

Imports System.Text

Partial Class _test_Default

Inherits System.Web.UI.Page

Protected Sub RadGrid1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.DataBound

If Not String.IsNullOrEmpty(gridMessage) Then

DisplayMessage(gridMessage)

End If

End Sub

Protected Sub RadGrid1_EditCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.EditCommand

'System.Configuration.ConfigurationManager.AppSettings("RootImagePath")

End Sub

Protected Sub RadGrid1_InsertCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand

If validFilesUploaded(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)) = False Then

e.Canceled = True

Exit Sub

End If

Session("SortInsert") = Me.RadGrid1.Items.Count + 1

InitializeUpdateParameter(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload))

End Sub

Protected Sub RadGrid1_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand

End Sub

Protected Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemCreated

If TypeOf e.Item Is GridDataItem Then

Dim editLink As HyperLink = DirectCast(e.Item.FindControl("lnkEditImages"), HyperLink)

editLink.Attributes("href") = "#"

'editLink.Attributes("onclick") = [String].Format("return ShowEditForm('{0}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("ID"))

'editLink.Attributes("onclick") = [String].Format("alert('{0}{1}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex)

editLink.Attributes("onclick") = [String].Format("window.radopen('EditImages.aspx?Group={0}&GroupName={2}', 'UserListDialog')", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex, e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("GroupName"), e.Item.ItemIndex)

Dim addLink As HyperLink = DirectCast(e.Item.FindControl("lnkAddImages"), HyperLink)

addLink.Attributes("href") = "#"

'editLink.Attributes("onclick") = [String].Format("return ShowEditForm('{0}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("ID"))

'editLink.Attributes("onclick") = [String].Format("alert('{0}{1}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex)

addLink.Attributes("onclick") = [String].Format("window.radopen('UploadImage.aspx?GroupID={0}', 'UserListDialog')", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex)

End If

End Sub

Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound

If TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode Then

Dim upload As RadUpload = DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)

RadAjaxPanel1.ResponseScripts.Add(String.Format("window['UploadId'] = '{0}';", upload.ClientID))

End If

End Sub

Protected Sub RadGrid1_ItemDeleted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles RadGrid1.ItemDeleted

' Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)

' Dim id As String = item.GetDataKeyValue("ProductID").ToString()

End Sub

Protected Sub RadGrid1_ItemInserted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid1.ItemInserted

If Not e.Exception Is Nothing Then

e.ExceptionHandled = True

e.KeepInInsertMode = True

SetMessage("The album cannot be inserted. Reason: " + e.Exception.Message)

Else

SetMessage("The album was added!")

End If

'MsgBox(e.Exception.ToString)

End Sub

Protected Sub RadGrid1_ItemUpdated(ByVal source As Object, ByVal e As Telerik.Web.UI.GridUpdatedEventArgs) Handles RadGrid1.ItemUpdated

Dim item As GridEditableItem = DirectCast(e.Item, GridEditableItem)

If Not e.Exception Is Nothing Then

e.KeepInEditMode = True

e.ExceptionHandled = True

SetMessage("The album cannot be updated. Reason: " + e.Exception.Message)

MsgBox(e.Exception.ToString)

Else

SetMessage("The album was updated!")

End If

End Sub

Private Sub DisplayMessage(ByVal text As String)

RadGrid1.Controls.Add(New LiteralControl(String.Format("<span style='color:red'>{0}", text)))

End Sub

Private Sub SetMessage(ByVal message As String)

gridMessage = message

End Sub

Private gridMessage As String = Nothing

Protected Sub RadGrid1_RowDrop(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridDragDropEventArgs) Handles RadGrid1.RowDrop

'lblInfo.Text = lblInfo.Text & ": " & draggedItem.GetDataKeyValue("ID")

'Dim ordersToMove As New List(Of Order)()

Dim dblCt As Double = 0.01

'If e.DraggedItems.Count > 1 Then dblCt += 1

Dim iDestination As Integer = e.DestDataItem.ItemIndex

For Each draggedItem As GridDataItem In e.DraggedItems

lblInfo.Text = lblInfo.Text & DirectCast(draggedItem.GetDataKeyValue("Id"), Integer) & _

" moved to " & DirectCast(e.DestDataItem.GetDataKeyValue("Id"), Integer) & _

"-"

If draggedItem.ItemIndex < iDestination Then

Me.AccessDataSource1.UpdateCommandType = SqlDataSourceCommandType.Text

Me.AccessDataSource1.UpdateCommand = "Update tbGroups SET [SortId] = " & iDestination + dblCt + 1 & " WHERE ID = " & DirectCast(draggedItem.GetDataKeyValue("Id"), Integer) & ";"

Me.AccessDataSource1.Update()

lblInfo.Text = lblInfo.Text & iDestination + dblCt + 1 & " "

Else

Me.AccessDataSource1.UpdateCommandType = SqlDataSourceCommandType.Text

Me.AccessDataSource1.UpdateCommand = "Update tbGroups SET [SortId] = " & iDestination + dblCt & " WHERE ID = " & DirectCast(draggedItem.GetDataKeyValue("Id"), Integer) & ";"

Me.AccessDataSource1.Update()

lblInfo.Text = lblInfo.Text & iDestination + dblCt & " "

End If

dblCt += 0.01

'

'use if moving up

'do until index number

'then add one to every sort number there after

' change sort order of ID of dropped item to index+1

'use if moving down

'do until index number-1

'then subtract one to every sort number there after

' change sort order of ID of dropped item to index+1

Next

Dim connString As String

connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _

Server.MapPath("/app_data/imagegallery.mdb")

Dim objConnection As OleDbConnection

objConnection = New OleDbConnection(connString)

objConnection.Open() 'open the connection

'Specify our SQL statement

Dim strSQL As String = "SELECT * FROM [tbGroups] ORDER BY SortId"

'Create the Command object

Dim objCommand As OleDbCommand

objCommand = New OleDbCommand(strSQL, objConnection)

' Set an OleDbDataReader to the command's results

Dim objDataReader As OleDbDataReader

objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

Dim iCt As Integer = 1

While objDataReader.Read()

Me.AccessDataSource1.UpdateCommandType = SqlDataSourceCommandType.Text

Me.AccessDataSource1.UpdateCommand = "Update tbGroups SET [SortId] = " & iCt & " WHERE ID = " & objDataReader("ID") & ";"

Me.AccessDataSource1.Update()

iCt += 1

' e.g.: str = objDataReader("DepartmentName")

End While

objDataReader.Close()

objConnection.Close()

objDataReader = Nothing

objConnection = Nothing

objCommand = Nothing

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.RadAjaxManager1.Alert(UpdateXML())

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub RadGrid1_UpdateCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand

' Session("SortInsert") = e.Item.DataItem("image").ToString

If validFilesUploaded(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)) = False Then

e.Canceled = True

Exit Sub

End If

Session("ImageInsert") = DirectCast(e.Item.FindControl("txtExistingImage"), TextBox).Text.ToString

'

InitializeUpdateParameter(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload))

End Sub

Function validFilesUploaded(ByVal currentUpload As RadUpload) As Boolean

If currentUpload.InvalidFiles.Count > 0 Then

Me.RadAjaxManager1.Alert("The file you selected is invalid. Please select a JPG file that is under 8 gig in size.")

validFilesUploaded = False

Else

validFilesUploaded = True

End If

End Function

Private Sub InitializeUpdateParameter(ByVal currentUpload As RadUpload)

' Session("ImageInsert") = ""

'resize and save image

' Set image quality

If currentUpload.UploadedFiles.Count > 0 Then

Dim intQuality As Integer = System.Configuration.ConfigurationManager.AppSettings("ImageQuality")

'set path

currentUpload.TargetFolder = System.Configuration.ConfigurationManager.AppSettings("RootImagePath")

Dim abpath As String

Dim validFile As UploadedFile

'set time for file name

Dim idTime As String = DateTime.Now.ToString("yy_MM_dd") & "_" & DateTime.Now.Hour() & DateTime.Now.Minute() & DateTime.Now.Second

abpath = Path.Combine(Server.MapPath(currentUpload.TargetFolder), currentUpload.UploadedFiles(0).GetNameWithoutExtension() + currentUpload.UploadedFiles(0).GetExtension())

'save file as temp file before altering

currentUpload.UploadedFiles(0).SaveAs(abpath, True)

Dim maxHeight As Int16

Dim maxWidth As Int16

Dim originalimg, originalimg1, thumb As System.Drawing.Image

Dim strFileName, strFileName1 As String

Dim width, height, oheight, owidth As Integer

Dim width1, height1 As Integer

Dim rootpath As String

Dim strFilePath As String

Dim strFilePath1 As String

Dim strFolder As String

originalimg = originalimg.FromFile(abpath) ' Fetch User Filename

'get original dimensions so ratio will remain when resizing

oheight = originalimg.Height

owidth = originalimg.Width

Dim iHeight As Int16

Dim iWidth As Int16

Dim imageType As String

'set max hieght

iHeight = System.Configuration.ConfigurationManager.AppSettings("AlbumMaxHeight")

iWidth = iHeight * owidth / oheight ' Assign default height.

If oheight > System.Configuration.ConfigurationManager.AppSettings("AlbumMaxHeight") Then

iWidth = System.Configuration.ConfigurationManager.AppSettings("AlbumMaxWidth")

iHeight = iWidth * oheight / owidth

End If

imageType = System.Configuration.ConfigurationManager.AppSettings("AlbumImagePath")

maxHeight = iHeight

maxWidth = iWidth

originalimg.Dispose()

'This method draws a new blank image first

Dim bm As Bitmap = CType(System.Drawing.Image.FromFile(Path.Combine(Server.MapPath(currentUpload.TargetFolder), currentUpload.UploadedFiles(0).GetNameWithoutExtension() + currentUpload.UploadedFiles(0).GetExtension())), Bitmap)

Dim resized As New Bitmap(iWidth, iHeight)

Dim g As Graphics = Graphics.FromImage(resized)

g.DrawImage(bm, New Rectangle(0, 0, resized.Width, resized.Height), 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)

g.Dispose()

'Get the list of available encoders

Dim codecs() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()

'find the encoder with the image/jpeg mime-type

Dim iciInfo As ImageCodecInfo

Dim item As ImageCodecInfo

For Each item In codecs

If (item.MimeType = "image/jpeg") Then iciInfo = item

Next

Dim ep As EncoderParameters = New EncoderParameters

ep.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, intQuality)

'strFilePath = Server.MapPath("/images/photogallery/test/" & Me.ListBox1.SelectedItem.Text.ToString & "/clip") & "\" & strFileName ' Root Folder + FileName

Try

resized.Save(Path.Combine(Server.MapPath(currentUpload.TargetFolder) + imageType, idTime & currentUpload.UploadedFiles(0).GetExtension()), iciInfo, ep)

'set parameter for image name

Session("ImageInsert") = idTime & currentUpload.UploadedFiles(0).GetExtension()

Me.AccessDataSource1.UpdateCommand = "UPDATE [tbGroups] SET [GroupName] = ?, [GroupDescription] = ?,[ActiveGroup] = ?,  [Image] = ? WHERE [Id] = ?"

Catch ex As Exception

Response.Write(ex.Message)

End Try

bm.Dispose()

resized.Dispose()

File.Delete(Path.Combine(Server.MapPath(currentUpload.TargetFolder), currentUpload.UploadedFiles(0).GetNameWithoutExtension() + currentUpload.UploadedFiles(0).GetExtension()))

Else

'Me.AccessDataSource1.UpdateParameters(

'Me.RadAjaxManager1.Alert(Session("ImageInsert"))

'           Me.AccessDataSource1.UpdateCommand = "UPDATE [tbGroups] SET [GroupName] = @GroupName, [GroupDescription] = @GroupDescription, [ActiveGroup] = @ActiveGroup,  [Image] = @original_Image WHERE [Id] = @Id"

' Me.RadAjaxManager1.Alert(Me.AccessDataSource1.UpdateCommand)

'Session("ImageInsert") = Me.AccessDataSource1.UpdateParameters("original_Image")

End If

End Sub

Function DisplayImage(ByVal sImage As String) As String

If File.Exists(Server.MapPath(sImage)) Then

DisplayImage = sImage

Else

DisplayImage = "/images/noimage.gif"

End If

End Function

Function UpdateXML() As String

Dim settings As New XmlWriterSettings

settings.Indent = True

settings.Encoding = Encoding.UTF8

settings.ConformanceLevel = ConformanceLevel.Auto

settings.Indent = True

settings.IndentChars = ControlChars.Tab

settings.NewLineHandling = NewLineHandling.Entitize

settings.NewLineChars = vbCrLf

settings.NewLineHandling = NewLineHandling.Entitize

settings.NewLineOnAttributes = True

settings.OmitXmlDeclaration = True

Dim iCounter As Integer = 1

Dim xmlDoc As String = Server.MapPath(System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("ImagesXMLLocation") & "/Images.xml")

Dim writer As XmlWriter

writer = XmlWriter.Create(xmlDoc, settings)

writer.WriteStartDocument()

Try

Dim connString As String

connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _

Server.MapPath("/app_data/imagegallery.mdb")

Dim objConnection As OleDbConnection

objConnection = New OleDbConnection(connString)

objConnection.Open() 'open the connection

'Specify our SQL statement

Dim strSQL As String = "SELECT * FROM [tbGroups] WHERE ActiveGroup = True ORDER BY SortId "

'Create the Command object

Dim objCommand As OleDbCommand

Dim objCommandDetail As OleDbCommand

objCommand = New OleDbCommand(strSQL, objConnection)

objCommandDetail = New OleDbCommand(strSQL, objConnection)

' Set an OleDbDataReader to the command's results

Dim objDataReader As OleDbDataReader

objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

' Set an OleDbDataReader to the command's results

Dim objDataReaderDetail As OleDbDataReader

'Dim iCt As Integer = 1

writer.WriteStartElement("gallery")

While objDataReader.Read()

writer.WriteStartElement("album")

writer.WriteAttributeString("id", iCounter.ToString)

writer.WriteAttributeString("title", objDataReader("groupname").ToString)

writer.WriteAttributeString("description", objDataReader("groupdescription").ToString)

writer.WriteAttributeString("lgPath", System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("LargeImagePath"))

writer.WriteAttributeString("tnPath", System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("ThumbImagePath"))

writer.WriteAttributeString("tn", Path.Combine(System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("AlbumImagePath"), objDataReader("image").ToString))

objCommandDetail = New OleDbCommand(strSQL, objConnection)

objCommandDetail.CommandText = "SELECT * FROM tbImages WHERE [Group] = " & objDataReader("Id")

objDataReaderDetail = objCommandDetail.ExecuteReader(CommandBehavior.CloseConnection)

While objDataReaderDetail.Read

writer.WriteStartElement("img")

writer.WriteAttributeString("src", objDataReaderDetail("image").ToString)

writer.WriteAttributeString("title", objDataReaderDetail("title").ToString)

writer.WriteAttributeString("caption", objDataReaderDetail("caption").ToString)

writer.WriteAttributeString("link", objDataReaderDetail("link").ToString)

writer.WriteEndElement()

End While

'objDataReaderDetail.Close()

writer.WriteEndElement()

iCounter += 1

End While

writer.WriteEndDocument()

writer.Close()

objDataReader.Close()

objConnection.Close()

objDataReader = Nothing

objConnection = Nothing

objCommand = Nothing

'If System.IO.File.Exists(Server.MapPath("/Images.xml")) Then

'System.IO.File.Delete(Server.MapPath("/Images.xml"))

'End If

' System.IO.File.Copy(Server.MapPath("/app_data/Images.xml"), Server.MapPath("/Images.xml"))

UpdateXML = "Your Gallery has been updated.  Most browsers save a website state locally when flash is used.  For you to see the changes immediately, please delete your cached data.  When using Internet Explorer, Go to Tools/Internet Options, and delete your Browser History/Internet Files."

Catch ex As Exception

'writer.WriteEndElement()

UpdateXML = "An error has occurred. Detail:" & ex.Message

writer.Close()

End Try

End Function

End Class

answered on 14 Jun 2011, 12:23 AM

<%@ Page Language="VB" MasterPageFile="~/ClientAdmin/MasterPage.master"  AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_test_Default" Title="Untitled Page"%><

br><%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %> <asp:Content ID="Content2" ContentPlaceHolderID="cphHead" Runat="Server"> <style type="text/css"> .MyImageButton { cursor: hand; } .EditFormHeader td { font-size: 14px; padding: 4px !important; color: #0066cc; } </style> </asp:Content> <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"> <div> <telerik:RadAjaxManager RestoreOriginalRenderDelegate="false" ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="button1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1"/> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadGrid1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1"/> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel RestoreOriginalRenderDelegate="false" ID="RadAjaxLoadingPanel1" runat="server" Height="75px" Width="75px" Transparency="15" Style="width: 320px;padding-top: 100px;" > <img alt="Loading..."

src='<%= RadAjaxLoadingPanel.GetWebResourceUrl(Page, "Telerik.Web.UI.Skins.Default.Ajax.loading.gif") %>' style="border:0;" /><

br> </telerik:RadAjaxLoadingPanel> <telerik:RadScriptBlock ID="RadScriptBlock1" runat="server"> <script type="text/javascript"><br

>                    //On insert and update buttons click temporarily disables ajax to perform upload actions<

br> function conditionalPostback(e, sender) {<br

>                        var theRegexp = new RegExp("\.UpdateButton$|\.PerformInsertButton$", "ig");<

br> if (sender.EventTarget.match(theRegexp)) { var upload = $find(window['UploadId']); //AJAX is disabled only if file is selected for upload if(upload.getFileInputs()[0].value != "") { sender.EnableAjax = false; } } } </script> </telerik:RadScriptBlock> <telerik:RadAjaxPanel RestoreOriginalRenderDelegate="false" ID="RadAjaxPanel1" runat="server" ClientEvents-OnRequestStart="conditionalPostback"> <telerik:RadGrid ID="RadGrid1" RestoreOriginalRenderDelegate="false" runat="server" DataSourceID="AccessDataSource1" AllowMultiRowSelection="true" Skin="Hay" AllowAutomaticDeletes="True" AllowAutomaticInserts="True" AllowAutomaticUpdates="True" OnItemUpdated="RadGrid1_ItemUpdated" OnItemDeleted="RadGrid1_ItemDeleted" OnItemInserted="RadGrid1_ItemInserted" OnItemCreated="RadGrid1_ItemCreated" AutoGenerateColumns="False" ShowStatusBar="True" Height="800" > <MasterTableView DataKeyNames="Id" Width="100%" TableLayout="Auto" CommandItemDisplay="TopAndBottom" AutoGenerateColumns="false" CommandItemSettings-AddNewRecordText=" Add a new Album"> <Columns> <telerik:GridEditCommandColumn ButtonType="ImageButton" UniqueName="EditCommandColumn"> <ItemStyle CssClass="MyImageButton" /> </telerik:GridEditCommandColumn> <telerik:GridCheckBoxColumn DataField="ActiveGroup" HeaderText="Active Group" SortExpression="ActiveGroup" UniqueName="ActiveGroupColumn" EditFormColumnIndex="1"> <HeaderStyle Width="50px" /> </telerik:GridCheckBoxColumn> <telerik:GridTemplateColumn HeaderText="Album Name" SortExpression="GroupName" UniqueName="GroupNameColumn" EditFormColumnIndex="1"> <ItemTemplate> <asp:Label runat="server" ID="lblGroupName" Text='<%# Eval("GroupName") %>'></asp:Label> </ItemTemplate> <EditItemTemplate> <asp:TextBox Rows="1" Width="300" TextMode="SingleLine" MaxLength="200" runat="server" ID="tbGroupName" Text='<%# Bind("GroupName") %>'></asp:TextBox> <span style="color: Red">*<asp:RequiredFieldValidator ID="RequiredFieldValidator1" ControlToValidate="tbGroupName" ErrorMessage="Required" runat="server"></asp:RequiredFieldValidator> <asp:TextBox Rows="1" Width="300" TextMode="SingleLine" Visible="false" MaxLength="200" runat="server" ID="txtExistingImage" Text='<%# Bind("Image") %>'></asp:TextBox> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Album Description" SortExpression="GroupDescription" UniqueName="GroupDescriptionColumn" EditFormColumnIndex="1"> <ItemTemplate> <asp:Label runat="server" ID="lblGroupDescription" Text='<%# Eval("GroupDescription") %>'></asp:Label> </ItemTemplate> <EditItemTemplate> <asp:TextBox Rows="3" Width="300px" TextMode="multiline" runat="server" ID="tbGroupDescription" Text='<%# Bind("GroupDescription") %>'></asp:TextBox> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Image" UniqueName="Upload" EditFormColumnIndex="1"> <ItemTemplate> <asp:Image runat="server" ID="ImageThumbnail" AlternateText="No Image"

<br>ImageUrl='<%# DisplayImage(System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("AlbumImagePath") &  Eval("image"))%>' Style="border-width: 0px;" /><

br> </ItemTemplate> <EditItemTemplate> <telerik:RadUpload ID="RadUpload1" runat="server" InitialFileInputsCount="1" MaxFileInputsCount="1"

<br>                                    ControlObjectsVisibility="None" MaxFileSize="8000000" AllowedFileExtensions=".jpg"<

br> TargetFolder="" /> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="" SortExpression="ImageCount" UniqueName="ImageCountColumn"> <ItemTemplate> <asp:Hyperlink ID="lnkAddImages" runat="server"><%#"Add Images"%></asp:Hyperlink> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="" SortExpression="ImageCount" UniqueName="ImageCountColumn"> <ItemTemplate> <asp:Hyperlink ID="lnkEditImages" runat="server"><%#"Edit Images"%></asp:Hyperlink> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridButtonColumn ConfirmText="Do you want to delete this album?" ConfirmDialogType="RadWindow" ConfirmTitle="Delete" ButtonType="ImageButton" CommandName="Delete" Text="Delete" UniqueName="DeleteColumn"> <ItemStyle HorizontalAlign="Center" CssClass="MyImageButton" /> </telerik:GridButtonColumn> </Columns> <EditFormSettings ColumnNumber="2" CaptionDataField="GroupName" CaptionFormatString="Edit properties of Group {0}"> <FormTableItemStyle HorizontalAlign="Left" Wrap="True"></FormTableItemStyle> <FormCaptionStyle CssClass="EditFormHeader"></FormCaptionStyle> <FormMainTableStyle GridLines="None" CellSpacing="0" CellPadding="3" BackColor="LightGoldenrodYellow" Width="100%" /> <FormTableStyle CellSpacing="0" CellPadding="2" BackColor="LightGoldenrodYellow" /> <FormTableAlternatingItemStyle Wrap="True"></FormTableAlternatingItemStyle> <EditColumn ButtonType="PushButton"

<br>                    InsertText="Insert Order" UpdateText="Update record"  UniqueName="EditCommandColumn1" CancelText="Cancel edit"><

br> </EditColumn> <FormTableButtonRowStyle HorizontalAlign="left" CssClass=""></FormTableButtonRowStyle> </EditFormSettings> </MasterTableView> <ClientSettings AllowRowsDragDrop="true"> <Selecting EnableDragToSelectRows="true" AllowRowSelect="true" /> <Scrolling AllowScroll="true" /> </ClientSettings> </telerik:RadGrid> </telerik:RadAjaxPanel> <asp:Label ID="lblInfo" runat="server" Text=""></asp:Label> </div> <asp:Button ID="Button1" runat="server" Text="Refresh Online Photo Gallery" style="margin-top:10px;" /> <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/App_Data/ImageGallery.mdb"<br

>        SelectCommand="SELECT tbGroups.ID, tbGroups.GroupName, tbGroups.GroupDescription,tbGroups.ActiveGroup, tbGroups.Image, Count(tbImages.ID) AS ImageCount FROM tbGroups LEFT JOIN tbImages ON tbGroups.ID = tbImages.Group GROUP BY tbGroups.ID, tbGroups.ActiveGroup, tbGroups.GroupName, tbGroups.GroupDescription, tbGroups.Image, tbGroups.SortId ORDER BY tbGroups.SortId;"<

br> DeleteCommand="DELETE FROM [tbGroups] WHERE [Id] = ?"<br

>        UpdateCommand="UPDATE [tbGroups] SET [GroupName] = ?, [GroupDescription] = ?,[ActiveGroup] = ?, [Image] = ? WHERE [Id] = ?"  <

br

>        InsertCommand="INSERT INTO [tbGroups] ([GroupName],[GroupDescription],[Image],[SortId]) VALUES (@GroupName,@GroupDescription,@Image,@SortId)"<

br> > <DeleteParameters> <asp:Parameter Name="Id" Type="Int32" /> </DeleteParameters> <UpdateParameters> <asp:Parameter Name="GroupName" Type="String" /> <asp:Parameter Name="GroupDescription" Type="String" /> <asp:Parameter Name="ActiveGroup" Type="Boolean" /> <asp:SessionParameter SessionField="ImageInsert" Name="Image" Type="String" /> </UpdateParameters> <InsertParameters> <asp:Parameter Name="GroupName" Type="String" /> <asp:Parameter Name="GroupDescription" Type="String" /> <asp:SessionParameter SessionField="ImageInsert" Name="Image" Type="String" /> <asp:SessionParameter SessionField="SortInsert" Name="SortId" Type="String" /> </InsertParameters> </asp:AccessDataSource> <telerik:RadWindowManager RestoreOriginalRenderDelegate="false" ID="RadWindowManager1" runat="server" Skin="Vista"> <Windows> <telerik:RadWindow Behaviors="None" Skin="Hay"<br

>                        ID="UserListDialog" runat="server" Title="Group/Image Editor" Height="600px"<

br

>                        Width="900px" Left="150px" ReloadOnShow="True" ShowContentDuringLoad="false" Modal="true" /><

br> </Windows> </telerik:RadWindowManager> </asp:Content>

VB file

Imports System Imports System.Collections.Generic Imports System.Configuration Imports System.Data Imports System.Data.Common Imports System.Data.SqlClient Imports System.Data.OleDb Imports System.Web.UI Imports Telerik.Web.UI Imports System.IO Imports System.Drawing.Imaging Imports System.Drawing Imports System.Xml Imports System.Text Partial Class _test_Default Inherits System.Web.UI.Page <br

>    Protected Sub RadGrid1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.DataBound<

br> If Not String.IsNullOrEmpty(gridMessage) Then DisplayMessage(gridMessage) End If End Sub <br

>    Protected Sub RadGrid1_EditCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.EditCommand<

br> 'System.Configuration.ConfigurationManager.AppSettings("RootImagePath") End Sub <br

>    Protected Sub RadGrid1_InsertCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand<

br> If validFilesUploaded(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)) = False Then e.Canceled = True Exit Sub End If Session("SortInsert") = Me.RadGrid1.Items.Count + 1 InitializeUpdateParameter(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)) End Sub <br

>    Protected Sub RadGrid1_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand<

br> End Sub <br

>    Protected Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemCreated<

br> If TypeOf e.Item Is GridDataItem Then Dim editLink As HyperLink = DirectCast(e.Item.FindControl("lnkEditImages"), HyperLink) editLink.Attributes("href") = "#"<br

>            'editLink.Attributes("onclick") = [String].Format("return ShowEditForm('{0}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("ID"))<

br

>            'editLink.Attributes("onclick") = [String].Format("alert('{0}{1}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex)<

br

>            editLink.Attributes("onclick") = [String].Format("window.radopen('EditImages.aspx?Group={0}&GroupName={2}', 'UserListDialog')", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex, e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("GroupName"), e.Item.ItemIndex)<

br> Dim addLink As HyperLink = DirectCast(e.Item.FindControl("lnkAddImages"), HyperLink) addLink.Attributes("href") = "#"<br

>            'editLink.Attributes("onclick") = [String].Format("return ShowEditForm('{0}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("ID"))<

br

>            'editLink.Attributes("onclick") = [String].Format("alert('{0}{1}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex)<

br

>            addLink.Attributes("onclick") = [String].Format("window.radopen('UploadImage.aspx?GroupID={0}', 'UserListDialog')", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("Id"), e.Item.ItemIndex)<

br> End If End Sub <br

>    Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound<

br> If TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode Then Dim upload As RadUpload = DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)<br

>            RadAjaxPanel1.ResponseScripts.Add(String.Format("window['UploadId'] = '{0}';", upload.ClientID))<

br> End If End Sub <br

>    Protected Sub RadGrid1_ItemDeleted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles RadGrid1.ItemDeleted<

br> ' Dim item As GridDataItem = DirectCast(e.Item, GridDataItem) ' Dim id As String = item.GetDataKeyValue("ProductID").ToString() End Sub <br

>    Protected Sub RadGrid1_ItemInserted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid1.ItemInserted<

br> If Not e.Exception Is Nothing Then e.ExceptionHandled = True e.KeepInInsertMode = True SetMessage("The album cannot be inserted. Reason: " + e.Exception.Message) Else SetMessage("The album was added!") End If 'MsgBox(e.Exception.ToString) End Sub <br

>    Protected Sub RadGrid1_ItemUpdated(ByVal source As Object, ByVal e As Telerik.Web.UI.GridUpdatedEventArgs) Handles RadGrid1.ItemUpdated<

br> Dim item As GridEditableItem = DirectCast(e.Item, GridEditableItem) If Not e.Exception Is Nothing Then e.KeepInEditMode = True e.ExceptionHandled = True SetMessage("The album cannot be updated. Reason: " + e.Exception.Message) MsgBox(e.Exception.ToString) Else SetMessage("The album was updated!") End If End Sub Private Sub DisplayMessage(ByVal text As String) RadGrid1.Controls.Add(New LiteralControl(String.Format("<span style='color:red'>{0}", text))) End Sub Private Sub SetMessage(ByVal message As String) gridMessage = message End Sub Private gridMessage As String = Nothing <br

>    Protected Sub RadGrid1_RowDrop(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridDragDropEventArgs) Handles RadGrid1.RowDrop<

br> 'lblInfo.Text = lblInfo.Text & ": " & draggedItem.GetDataKeyValue("ID") 'Dim ordersToMove As New List(Of Order)() Dim dblCt As Double = 0.01 'If e.DraggedItems.Count > 1 Then dblCt += 1 Dim iDestination As Integer = e.DestDataItem.ItemIndex For Each draggedItem As GridDataItem In e.DraggedItems lblInfo.Text = lblInfo.Text & DirectCast(draggedItem.GetDataKeyValue("Id"), Integer) & _ " moved to " & DirectCast(e.DestDataItem.GetDataKeyValue("Id"), Integer) & _ "-" If draggedItem.ItemIndex < iDestination Then Me.AccessDataSource1.UpdateCommandType = SqlDataSourceCommandType.Text<br

>                Me.AccessDataSource1.UpdateCommand = "Update tbGroups SET [SortId] = " & iDestination + dblCt + 1 & " WHERE ID = " & DirectCast(draggedItem.GetDataKeyValue("Id"), Integer) & ";"<

br> Me.AccessDataSource1.Update() lblInfo.Text = lblInfo.Text & iDestination + dblCt + 1 & " " Else Me.AccessDataSource1.UpdateCommandType = SqlDataSourceCommandType.Text<br

>                Me.AccessDataSource1.UpdateCommand = "Update tbGroups SET [SortId] = " & iDestination + dblCt & " WHERE ID = " & DirectCast(draggedItem.GetDataKeyValue("Id"), Integer) & ";"<

br> Me.AccessDataSource1.Update() lblInfo.Text = lblInfo.Text & iDestination + dblCt & " " End If dblCt += 0.01 ' 'use if moving up 'do until index number 'then add one to every sort number there after ' change sort order of ID of dropped item to index+1 'use if moving down 'do until index number-1 'then subtract one to every sort number there after ' change sort order of ID of dropped item to index+1 Next Dim connString As String connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _ Server.MapPath("/app_data/imagegallery.mdb") Dim objConnection As OleDbConnection objConnection = New OleDbConnection(connString) objConnection.Open() 'open the connection 'Specify our SQL statement Dim strSQL As String = "SELECT * FROM [tbGroups] ORDER BY SortId" 'Create the Command object Dim objCommand As OleDbCommand objCommand = New OleDbCommand(strSQL, objConnection) ' Set an OleDbDataReader to the command's results Dim objDataReader As OleDbDataReader objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection) Dim iCt As Integer = 1 While objDataReader.Read() Me.AccessDataSource1.UpdateCommandType = SqlDataSourceCommandType.Text<br

>            Me.AccessDataSource1.UpdateCommand = "Update tbGroups SET [SortId] = " & iCt & " WHERE ID = " & objDataReader("ID") & ";"<

br> Me.AccessDataSource1.Update() iCt += 1 ' e.g.: str = objDataReader("DepartmentName") End While objDataReader.Close() objConnection.Close() objDataReader = Nothing objConnection = Nothing objCommand = Nothing End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Me.RadAjaxManager1.Alert(UpdateXML()) End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub <br

>    Protected Sub RadGrid1_UpdateCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand<

br> ' Session("SortInsert") = e.Item.DataItem("image").ToString If validFilesUploaded(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)) = False Then e.Canceled = True Exit Sub End If Session("ImageInsert") = DirectCast(e.Item.FindControl("txtExistingImage"), TextBox).Text.ToString ' InitializeUpdateParameter(DirectCast(e.Item.FindControl("RadUpload1"), RadUpload)) End Sub Function validFilesUploaded(ByVal currentUpload As RadUpload) As Boolean If currentUpload.InvalidFiles.Count > 0 Then<br

>            Me.RadAjaxManager1.Alert("The file you selected is invalid.  Please select a JPG file that is under 8 gig in size.")<

br> validFilesUploaded = False Else validFilesUploaded = True End If End Function Private Sub InitializeUpdateParameter(ByVal currentUpload As RadUpload) ' Session("ImageInsert") = "" 'resize and save image ' Set image quality If currentUpload.UploadedFiles.Count > 0 Then <br

>            Dim intQuality As Integer = System.Configuration.ConfigurationManager.AppSettings("ImageQuality")<

br> 'set path<br

>            currentUpload.TargetFolder = System.Configuration.ConfigurationManager.AppSettings("RootImagePath")<

br> Dim abpath As String Dim validFile As UploadedFile 'set time for file name<br

>            Dim idTime As String = DateTime.Now.ToString("yy_MM_dd") & "_" & DateTime.Now.Hour() & DateTime.Now.Minute() & DateTime.Now.Second<

br

>            abpath = Path.Combine(Server.MapPath(currentUpload.TargetFolder), currentUpload.UploadedFiles(0).GetNameWithoutExtension() + currentUpload.UploadedFiles(0).GetExtension())<

br> 'save file as temp file before altering currentUpload.UploadedFiles(0).SaveAs(abpath, True) Dim maxHeight As Int16 Dim maxWidth As Int16 Dim originalimg, originalimg1, thumb As System.Drawing.Image Dim strFileName, strFileName1 As String Dim width, height, oheight, owidth As Integer Dim width1, height1 As Integer Dim rootpath As String Dim strFilePath As String Dim strFilePath1 As String Dim strFolder As String originalimg = originalimg.FromFile(abpath) ' Fetch User Filename 'get original dimensions so ratio will remain when resizing oheight = originalimg.Height owidth = originalimg.Width Dim iHeight As Int16 Dim iWidth As Int16 Dim imageType As String 'set max hieght iHeight = System.Configuration.ConfigurationManager.AppSettings("AlbumMaxHeight") iWidth = iHeight * owidth / oheight ' Assign default height. If oheight > System.Configuration.ConfigurationManager.AppSettings("AlbumMaxHeight") Then iWidth = System.Configuration.ConfigurationManager.AppSettings("AlbumMaxWidth") iHeight = iWidth * oheight / owidth End If imageType = System.Configuration.ConfigurationManager.AppSettings("AlbumImagePath") maxHeight = iHeight maxWidth = iWidth originalimg.Dispose() 'This method draws a new blank image first<br

>            Dim bm As Bitmap = CType(System.Drawing.Image.FromFile(Path.Combine(Server.MapPath(currentUpload.TargetFolder), currentUpload.UploadedFiles(0).GetNameWithoutExtension() + currentUpload.UploadedFiles(0).GetExtension())), Bitmap)<

br> Dim resized As New Bitmap(iWidth, iHeight) Dim g As Graphics = Graphics.FromImage(resized)<br

>            g.DrawImage(bm, New Rectangle(0, 0, resized.Width, resized.Height), 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)<

br> g.Dispose() 'Get the list of available encoders Dim codecs() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders() 'find the encoder with the image/jpeg mime-type Dim iciInfo As ImageCodecInfo Dim item As ImageCodecInfo For Each item In codecs If (item.MimeType = "image/jpeg") Then iciInfo = item Next Dim ep As EncoderParameters = New EncoderParameters<br

>            ep.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, intQuality)<

br

>            'strFilePath = Server.MapPath("/images/photogallery/test/" & Me.ListBox1.SelectedItem.Text.ToString & "/clip") & "\" & strFileName ' Root Folder + FileName<

br> Try<br

>                resized.Save(Path.Combine(Server.MapPath(currentUpload.TargetFolder) + imageType, idTime & currentUpload.UploadedFiles(0).GetExtension()), iciInfo, ep)<

br> 'set parameter for image name Session("ImageInsert") = idTime & currentUpload.UploadedFiles(0).GetExtension()<br

>                Me.AccessDataSource1.UpdateCommand = "UPDATE [tbGroups] SET [GroupName] = ?, [GroupDescription] = ?,[ActiveGroup] = ?,  [Image] = ? WHERE [Id] = ?"<

br> Catch ex As Exception Response.Write(ex.Message) End Try bm.Dispose() resized.Dispose()<br

>            File.Delete(Path.Combine(Server.MapPath(currentUpload.TargetFolder), currentUpload.UploadedFiles(0).GetNameWithoutExtension() + currentUpload.UploadedFiles(0).GetExtension()))<

br> Else 'Me.AccessDataSource1.UpdateParameters( 'Me.RadAjaxManager1.Alert(Session("ImageInsert"))<br

>            '           Me.AccessDataSource1.UpdateCommand = "UPDATE [tbGroups] SET [GroupName] = @GroupName, [GroupDescription] = @GroupDescription, [ActiveGroup] = @ActiveGroup,  [Image] = @original_Image WHERE [Id] = @Id"<

br> ' Me.RadAjaxManager1.Alert(Me.AccessDataSource1.UpdateCommand) 'Session("ImageInsert") = Me.AccessDataSource1.UpdateParameters("original_Image") End If End Sub Function DisplayImage(ByVal sImage As String) As String If File.Exists(Server.MapPath(sImage)) Then DisplayImage = sImage Else DisplayImage = "/images/noimage.gif" End If End Function Function UpdateXML() As String Dim settings As New XmlWriterSettings settings.Indent = True settings.Encoding = Encoding.UTF8 settings.ConformanceLevel = ConformanceLevel.Auto settings.Indent = True settings.IndentChars = ControlChars.Tab settings.NewLineHandling = NewLineHandling.Entitize settings.NewLineChars = vbCrLf settings.NewLineHandling = NewLineHandling.Entitize settings.NewLineOnAttributes = True settings.OmitXmlDeclaration = True Dim iCounter As Integer = 1<br

>        Dim xmlDoc As String = Server.MapPath(System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("ImagesXMLLocation") & "/Images.xml")<

br> Dim writer As XmlWriter writer = XmlWriter.Create(xmlDoc, settings) writer.WriteStartDocument() Try Dim connString As String connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _ Server.MapPath("/app_data/imagegallery.mdb") Dim objConnection As OleDbConnection objConnection = New OleDbConnection(connString) objConnection.Open() 'open the connection 'Specify our SQL statement Dim strSQL As String = "SELECT * FROM [tbGroups] WHERE ActiveGroup = True ORDER BY SortId " 'Create the Command object Dim objCommand As OleDbCommand Dim objCommandDetail As OleDbCommand objCommand = New OleDbCommand(strSQL, objConnection) objCommandDetail = New OleDbCommand(strSQL, objConnection) ' Set an OleDbDataReader to the command's results Dim objDataReader As OleDbDataReader objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection) ' Set an OleDbDataReader to the command's results Dim objDataReaderDetail As OleDbDataReader 'Dim iCt As Integer = 1 writer.WriteStartElement("gallery") While objDataReader.Read() writer.WriteStartElement("album") writer.WriteAttributeString("id", iCounter.ToString) writer.WriteAttributeString("title", objDataReader("groupname").ToString) writer.WriteAttributeString("description", objDataReader("groupdescription").ToString)<br

>                writer.WriteAttributeString("lgPath", System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("LargeImagePath"))<

br

>                writer.WriteAttributeString("tnPath", System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("ThumbImagePath"))<

br

>                writer.WriteAttributeString("tn", Path.Combine(System.Configuration.ConfigurationManager.AppSettings("RootImagePath") & System.Configuration.ConfigurationManager.AppSettings("AlbumImagePath"), objDataReader("image").ToString))<

br> objCommandDetail = New OleDbCommand(strSQL, objConnection)<br

>                objCommandDetail.CommandText = "SELECT * FROM tbImages WHERE [Group] = " & objDataReader("Id")<

br> objDataReaderDetail = objCommandDetail.ExecuteReader(CommandBehavior.CloseConnection) While objDataReaderDetail.Read writer.WriteStartElement("img") writer.WriteAttributeString("src", objDataReaderDetail("image").ToString) writer.WriteAttributeString("title", objDataReaderDetail("title").ToString) writer.WriteAttributeString("caption", objDataReaderDetail("caption").ToString) writer.WriteAttributeString("link", objDataReaderDetail("link").ToString) writer.WriteEndElement() End While 'objDataReaderDetail.Close() writer.WriteEndElement() iCounter += 1 End While writer.WriteEndDocument() writer.Close() objDataReader.Close() objConnection.Close() objDataReader = Nothing objConnection = Nothing objCommand = Nothing 'If System.IO.File.Exists(Server.MapPath("/Images.xml")) Then 'System.IO.File.Delete(Server.MapPath("/Images.xml")) 'End If ' System.IO.File.Copy(Server.MapPath("/app_data/Images.xml"), Server.MapPath("/Images.xml")) <br

>            UpdateXML = "Your Gallery has been updated.  Most browsers save a website state locally when flash is used.  For you to see the changes immediately, please delete your cached data.  When using Internet Explorer, Go to Tools/Internet Options, and delete your Browser History/Internet Files."<

br> Catch ex As Exception 'writer.WriteEndElement() UpdateXML = "An error has occurred. Detail:" & ex.Message writer.Close() End Try End Function End Class 

answered on 14 Jun 2011, 08:26 AM

Hello kyle,

I went though your code and here are my findings:

- You should use only one ajax control to ajaxify the same page content. So you should remove either the RadAjaxManager or the RadAjaxPanel instead of using them both to ajaxify the grid.
- I cannot find any of the solutions provided in the previously sent help article implemented in your code. Can you try implementing the interface as described there and see if it makes any difference?

Additionally, it is possible that server error is thrown upon your action and as a result the page not to work as expected. Try running the web site in debug mode and see if this is the case.

Best wishes,
Iana
the Telerik team

Browse the vast support resources we have to jump start your development with RadControls for ASP.NET AJAX. See how to integrate our AJAX controls seamlessly in SharePoint 2007/2010 visiting our common SharePoint portal.