namespace Telerik.Web.Examples.Upload.UsingTargetFolder
{

    public partial class CriarConteudo : System.Web.UI.Page
    {
        string targetFolder = string.Empty;
        protected void Page_Load(object sender, EventArgs e)
        {
           
        }

        protected void RadUploadImagem_FileExists(object sender, Telerik.Web.UI.Upload.UploadedFileEventArgs e)
        {
            UploadedFile imagem = e.UploadedFile;
            string targetFolder = Server.MapPath(RadUploadImagem.TargetFolder);
            string targetFileName = Path.Combine(targetFolder, imagem.GetNameWithoutExtension() + imagem.GetExtension());
            imagem.SaveAs(targetFileName);
        }

        protected void Button1_Click(object sender, EventArgs e)
        {
            SqlConnection conn1 = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["lms_bibliotecaConnectionString1"].ConnectionString);
            SqlCommand cmd1 = new SqlCommand("SELECT IDTipo FROM NL_LMS_BIB_tipos WHERE NL_LMS_BIB_tipos.Tipo = @Param1", conn1);
            cmd1.CommandType = CommandType.Text;
            cmd1.Parameters.Add(new SqlParameter("@Param1", RadioBtnListTipo.SelectedValue));
            Guid idtipo;

                conn1.Open();
                cmd1.ExecuteNonQuery();
                SqlDataReader objDR;
                objDR = cmd1.ExecuteReader();
                objDR.Read();
                idtipo = (Guid)objDR.GetValue(0);

                conn1.Close();
                cmd1.Dispose();
                conn1.Dispose();

            SqlConnection conn2 = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["lms_bibliotecaConnectionString1"].ConnectionString);
            SqlCommand cmd2 = new SqlCommand("SELECT IDTema FROM NL_LMS_BIB_temas WHERE NL_LMS_BIB_temas.Tema = @Param1", conn2);
            cmd2.CommandType = CommandType.Text;
            cmd2.Parameters.Add(new SqlParameter("@Param1", RadComboTemas.SelectedValue));
            Guid idtema;

                conn2.Open();
                cmd2.ExecuteNonQuery();
                SqlDataReader objDR2;
                objDR2 = cmd2.ExecuteReader();
                objDR2.Read();
                idtema = (Guid)objDR2.GetValue(0);

                conn1.Close();
                cmd1.Dispose();
                conn1.Dispose();

            SqlConnection conn = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["lms_bibliotecaConnectionString1"].ConnectionString);
            string insertcmd = "INSERT INTO NL_LMS_BIB_conteudos (IDConteudo, Titulo, Resumo, Notas, IDTipo, IDTema, DataPublicacao, Imagem) VALUES (NEWID(), @titulo, @resumo, @notas, @idtipo, @idtema, @datahora, @imagem)";
            SqlCommand cmd = new SqlCommand(insertcmd, conn);
            cmd.Parameters.Add(new SqlParameter("@titulo", RadTxtBoxTitulo.Text));
            cmd.Parameters.Add(new SqlParameter("@resumo", RadTxtBoxResumo.Text));
            cmd.Parameters.Add(new SqlParameter("@idtipo", idtipo));
            cmd.Parameters.Add(new SqlParameter("@idtema", idtema));
            cmd.Parameters.Add(new SqlParameter("@datahora", RadDateTimePicker.SelectedDate));
            cmd.Parameters.Add(new SqlParameter("@notas", RadTxtBoxNotas.Text));
            cmd.Parameters.Add(new SqlParameter("@imagem", targetFolder));

                conn.Open();
                cmd.ExecuteNonQuery();

                conn.Close();
                cmd.Dispose();
                conn.Dispose();

        }
    }
}

System

System.Collections.Generic

System.Data.SqlClient

System.Web.Script.Serialization

System.Collections

Telerik.Web.UI

Class portal

Inherits System.Web.UI.Page

Private _state As String

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

Dim RoleID As Integer

Dim drContacts As SqlDataReader

Dim control As New Web.UI.Control()

Dim count As Integer = 0

RadDockZone1.Controls.Clear()

RadDockZone0.Controls.Clear()

RoleID = Int32.Parse(Utilities.GetSession(

"PortalRoleID"))

drContacts = PortalDataAccess.GetPortalControlsByRoleID(RoleID)

If (drContacts.HasRows) Then

While (drContacts.Read())

Dim soRadDock As New RadDock()

soRadDock.ID = drContacts(

"ControlID").ToString()

soRadDock.Title = drContacts(

"ControlTitle").ToString()

control = LoadControl(

"UserControls/" & drContacts("ControlName").ToString() & ".ascx")

soRadDock.ContentContainer.Controls.Add(control)

If drContacts("Zone") = 1 Then

End If

If drContacts("Zone") = 0 Then

End If

End While

End If

End Sub

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

RadDockLayout1.Skin = Application(

"TelerikTheme")

RadDockZone1.Skin = Application(

"TelerikTheme")

RadDockZone1.Skin = Application(

"TelerikTheme")

End Sub

Private Property CurrentDockStates() As List(Of DockState)

Get

Dim _currentDockStates As New List(Of DockState)()

Dim ContactID As Integer = Int32.Parse(Utilities.GetSession("ContactNumber").ToString())

If PortalDataAccess.LoadState(ContactID) IsNot Nothing Then

End If

If _state Is Nothing Then

Else

Dim dockStates As String() = _state.Split("|"c)

For i As Integer = 0 To dockStates.Length - 1

Dim serializedState As String = dockStates(i)

If Not String.IsNullOrEmpty(serializedState) Then

Dim state As DockState = DockState.Deserialize(serializedState)

_currentDockStates.Add(state)

End If

Next

End If

Return _currentDockStates

End Get

Set(ByVal value As List(Of DockState))

Dim builder As New StringBuilder()

For i As Integer = 0 To value.Count - 1

Dim serializedState As String = value(i).ToString() & "|"

Next

Dim ContactID As Integer = Int32.Parse(Utilities.GetSession("ContactNumber").ToString())

PortalDataAccess.SaveState(ContactID, builder.ToString())

End Set

End Property

Protected Sub RadDockLayout1_SaveDockLayout(ByVal sender As Object, ByVal e As Telerik.Web.UI.DockLayoutEventArgs)

'Save the dock state in the session. This will enable us to recreate the dock in the next Page_Init.

End Sub

Protected Sub RadDockLayout1_LoadDockLayout(ByVal sender As Object, ByVal e As Telerik.Web.UI.DockLayoutEventArgs)

For Each state As DockState In CurrentDockStates

e.Positions(state.UniqueName) = state.DockZoneID

e.Indices(state.UniqueName) = state.Index

Next

Private Sub CreateSaveStateTriggers(ByVal dock As RadDock)

'Ensure that the RadDock control will initiate postback

' when its position changes on the client. Using the

' trigger we will "ajaxify" that postback.

True

True

Dim saveStateTrigger As New AsyncPostBackTrigger()

saveStateTrigger.ControlID = dock.ID

saveStateTrigger.EventName =

"DockPositionChanged"

New AsyncPostBackTrigger()

saveStateTrigger.ControlID = dock.ID

saveStateTrigger.EventName =

"Command"

End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Response.Cookies(

"DockLayout").Value = ""

"default.aspx")

End Sub

Protected Sub ButtonAddDock_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonAddDock.Click

End Sub

End

Class