or
<
script
language
=
"javascript"
type
=
"text/javascript"
>
var filesSelected = 0;
var filesUploaded = 0;
function onClientFileSelected(sender, event) {
++filesSelected;
}
function onClientFileUploaded(sender, event) {
++filesUploaded;
if (filesUploaded == filesSelected) {
__doPostBack('', '');
}
}
</
script
>
...
<
telerik:RadAsyncUpload
ID
=
"RadAsyncUpload1"
runat
=
"server"
onclientfileselected
=
"onClientFileSelected"
onclientfileuploaded
=
"onClientFileUploaded"
MultipleFileSelection
=
"Automatic"
Skin
=
"Custom"
style
=
"margin-bottom: 1px"
Visible
=
"True"
Width
=
"80px"
EnableInlineProgress
=
"False"
EnableEmbeddedSkins
=
"False"
>
<
Localization
Select
=
""
/>
</
telerik:RadAsyncUpload
>
.RadUpload_Custom .ruFakeInput
{
display: none;
}
.RadUpload_Custom .ruBrowse
{
width: 70;
height: 24;
background-image: url('Upload/ruUpload.png');
color: #000;
}
Me
.editor.EditModes.Html = User.IsInRole(
"Administrator"
)
Me
.editor.Links.Clear()
Dim
dtPages
As
DataTable = DAL.list_pages_enabled()
For
Each
page
As
DataRow
In
dtPages.Rows
Dim
pageLink
As
New
RadEditorUtils.Link(page(
"title"
).ToString(),
String
.Format(
"/Public/Default.aspx?pid={0}"
, page(
"pid"
).ToString),
"_self"
, page(
"title"
).ToString())
Dim
dt
As
New
DataTable
dt = DAL.list_sub_pages(page(
"pid"
).ToString)
For
Each
subPage
As
DataRow
In
dt.Rows
Dim
subPageLink
As
New
RadEditorUtils.Link(subPage(
"title"
).ToString(),
String
.Format(
"/Public/Default.aspx?pid={0}"
, subPage(
"pid"
).ToString),
"_self"
, subPage(
"title"
).ToString())
pageLink.Add(subPageLink)
Next
Me
.editor.Links.Add(pageLink)
Next
Also how to handle editor.CancelClicked and editor.SubmitClicked? Is there something different involving these?
<
table
id
=
"tblVehicle"
cellspacing
=
"2"
cellpadding
=
"1"
width
=
"100%"
rules
=
"none"
border
=
"0"
>
<
tr
>
<
td
colspan
=
"4"
>
<
b
><
asp:Label
ID
=
"lblHeading"
runat
=
"server"
/></
b
><
br
/>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"4"
>
<
asp:CheckBox
ID
=
"cbActive"
runat
=
"server"
Font-Size
=
"X-Small"
Checked='<%# If(Eval("active") Is DBNull.Value, 0, Eval("active")) %>' Text="Active: "/>
</
td
>
</
tr
>
<
tr
>
<
td
>Salutation:</
td
>
<
td
>
<
telerik:RadComboBox
ID
=
"cboContactSalutation"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"40px"
SelectedValue='<%# Bind("contact_salutation") %>'>
<
Items
>
<
telerik:RadComboBoxItem
Text
=
""
value
=
""
/>
<
telerik:RadComboBoxItem
Text
=
"Mr."
value
=
"Mr."
/>
<
telerik:RadComboBoxItem
Text
=
"Ms."
value
=
"Ms."
/>
<
telerik:RadComboBoxItem
Text
=
"Dr."
value
=
"Dr."
/>
</
Items
>
</
telerik:RadComboBox
>
</
td
>
</
tr
>
<
tr
>
<
td
>First Name:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbContactFirstNm"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("contact_first_nm") %>'/>
<
asp:RequiredFieldValidator
ID
=
"rfvFirstName"
runat
=
"server"
ControlToValidate
=
"tbContactFirstNm"
ErrorMessage
=
"* required"
/>
</
td
>
</
tr
>
<
tr
>
<
td
>Last Name:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbContactLastNm"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("contact_last_nm") %>'/>
<
asp:RequiredFieldValidator
ID
=
"rfvLastName"
runat
=
"server"
ControlToValidate
=
"tbContactLastNm"
ErrorMessage
=
"* required"
/>
</
td
>
</
tr
>
<
tr
>
<
td
>Job Title:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbContactTitle"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("contact_title") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>Department:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbContactDept"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("contact_dept") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>Work Phone:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbPhoneWork"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("phone_work") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>Mobile Phone:<
td
>
<
telerik:RadTextBox
ID
=
"tbPhoneMobile"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("phone_mobile") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>Fax:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbPhoneFax"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("phone_fax") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>Email:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressEmail"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"150px"
Text='<%# Bind("address_email") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>Alternate E-mail:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressEmail2"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"150px"
Text='<%# Bind("address_email2") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Panel
runat
=
"server"
ID
=
"pnlMailingInfo"
>
<
h2
>Mailing Info</
h2
>
<
table
style
=
"width:100%;"
>
<
tr
>
<
td
>Street Address:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressMailingStreet1"
runat
=
"server"
Width
=
"150px"
Font-Size
=
"X-Small"
Text='<%# Bind("address_mailing_street1") %>'/>
<
asp:RequiredFieldValidator
ID
=
"rfvMailingSt1"
runat
=
"server"
ControlToValidate
=
"tbAddressMailingStreet1"
ErrorMessage
=
"* required"
/>
</
td
>
</
tr
>
<
tr
>
<
td
></
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressMailingStreet2"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"150px"
Text='<%# Bind("address_mailing_street2") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>City:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressMailingCity"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("address_mailing_city") %>'/>
<
asp:RequiredFieldValidator
ID
=
"rfvMailingCity"
runat
=
"server"
ErrorMessage
=
"* required"
ControlToValidate
=
"tbAddressMailingCity"
/>
</
td
>
</
tr
>
<
tr
>
<
td
>
State:
<
telerik:RadTextBox
ID
=
"tbAddressMailingState"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"30px"
Text='<%# Bind("address_mailing_state") %>'/>
</
td
>
<
td
>
Zip:
<
telerik:RadTextBox
ID
=
"tbAddressMailingZip"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"70px"
Text='<%# Bind("address_mailing_zip") %>'/>
<
asp:RequiredFieldValidator
ID
=
"rfvMailingState"
runat
=
"server"
Display
=
"Dynamic"
ErrorMessage
=
"* must enter state"
ControlToValidate
=
"tbAddressMailingState"
/>
<
asp:RegularExpressionValidator
ID
=
"revMailingZip"
runat
=
"server"
ControlToValidate
=
"tbAddressMailingZip"
ValidationExpression
=
"^(\d{5}-\d{4}|\d{5}|\d{9})$|^([a-zA-Z]\d[a-zA-Z] \d[a-zA-Z]\d)$"
Display
=
"Dynamic"
EnableClientScript
=
"false"
ErrorMessage
=
"* invalid zip code"
/>
</
td
>
</
tr
>
<
tr
>
<
td
>Country:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressMailingCountry"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("address_mailing_country") %>'/>
<
asp:RequiredFieldValidator
ID
=
"rfvMailingCountry"
runat
=
"server"
ErrorMessage
=
"* required"
ControlToValidate
=
"tbAddressMailingCountry"
/>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:CheckBox
ID
=
"cbShippingIsSame"
runat
=
"server"
Font-Size
=
"X-Small"
OnCheckedChanged
=
"Checkbox_Changed"
AutoPostBack
=
"true"
/>
Check if shipping info is different from mailing info
</
td
>
</
tr
>
</
table
>
</
asp:Panel
>
<
asp:Panel
runat
=
"server"
ID
=
"pnlShippingInfo"
Visible
=
"false"
>
<
h2
>Shipping Info</
h2
>
<
table
style
=
"width:100%;"
>
<
tr
>
<
td
>Street Address:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressShippingStreet1"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"150px"
Text='<%# Bind("address_shipping_street1") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
></
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressShippingStreet2"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"150px"
Text='<%# Bind("address_shipping_street2") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>City:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressShippingCity"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("address_shipping_city") %>'/>
</
td
>
</
tr
>
<
tr
>
<
td
>
State:
<
telerik:RadTextBox
ID
=
"tbAddressShippingState"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"30px"
Text='<%# Bind("address_shipping_state") %>'/>
</
td
>
<
td
>
Zip:
<
telerik:RadTextBox
ID
=
"tbAddressShippingZip"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"70px"
Text='<%# Bind("address_shipping_zip") %>'/>
<
asp:RegularExpressionValidator
ID
=
"revShippingZip"
runat
=
"server"
ControlToValidate
=
"tbAddressShippingZip"
ValidationExpression
=
"^(\d{5}-\d{4}|\d{5}|\d{9})$|^([a-zA-Z]\d[a-zA-Z] \d[a-zA-Z]\d)$"
Display
=
"Dynamic"
EnableClientScript
=
"false"
ErrorMessage
=
"* invalid zip code"
/>
</
td
>
</
tr
>
<
tr
>
<
td
>Country:</
td
>
<
td
>
<
telerik:RadTextBox
ID
=
"tbAddressShippingCountry"
runat
=
"server"
Font-Size
=
"X-Small"
Width
=
"120px"
Text='<%# Bind("address_shipping_country") %>'/>
</
td
>
</
tr
>
</
table
>
</
asp:Panel
>
</
td
>
</
tr
>
<
tr
>
<
td
align
=
"right"
colspan
=
"4"
>
<
asp:button
id
=
"btnUpdate"
text
=
"Update"
runat
=
"server"
CommandName
=
"Update"
Visible='<%# Not (TypeOf DataItem Is Telerik.Web.UI.GridInsertionObject) %>'></
asp:button
>
<
asp:button
id
=
"btnInsert"
text
=
"Insert"
runat
=
"server"
CommandName
=
"PerformInsert"
Visible='<%# (TypeOf DataItem Is Telerik.Web.UI.GridInsertionObject) %>'></
asp:button
>
<
asp:button
id
=
"btnCancel"
text
=
"Cancel"
runat
=
"server"
causesvalidation
=
"False"
commandname
=
"Cancel"
></
asp:button
>
</
td
>
</
tr
>
</
table
>
<
telerik:RadWindow
ID
=
"RadWindowAnteprimaProfile"
runat
=
"server"
ShowContentDuringLoad
=
"false"
Title
=
"Anteprima immagine"
Behaviors
=
"None"
Modal
=
"True"
Behavior
=
"None"
Font-Names
=
"Verdana"
Font-Size
=
"Small"
IconUrl
=
"/image/iconlogo.png"
Width
=
"350px"
Height
=
"280px"
MaxHeight
=
"300px"
MaxWidth
=
"400px"
ToolTip
=
"Anteprima immagine"
VisibleStatusbar
=
"False"
Skin
=
"Simple"
ReloadOnShow
=
"True"
>
<
ContentTemplate
>
<
div
class
=
"Divviewimgprifile"
>
<
div
class
=
"Divviewimgprifile1"
>
<
table
style
=
"width:100%; margin:0px; padding:0px; border:0px"
>
<
tr
>
<
td
style
=
"text-align:center"
>
<
div
runat
=
"server"
id
=
"imgprofile"
class
=
"AnteprimaImgProfile"
>
</
div
>
</
td
>
</
tr
>
<
tr
>
<
td
>
</
td
>
</
tr
>
<
tr
>
<
td
style
=
"text-align:center; padding-top:10px"
>
<
asp:ImageButton
ID
=
"Imgbtnesci_1"
runat
=
"server"
ImageUrl
=
"~/Image/esci1.png"
/>
</
td
>
</
tr
>
</
table
>
</
div
>
</
div
>
</
ContentTemplate
>
</
telerik:RadWindow
>
Try
Dim
conString = ConfigurationManager.ConnectionStrings(
"TrycontactString"
)
Dim
strConnString
As
String
= conString.ConnectionString
Using db
As
New
SqlConnection(strConnString)
db.Open()
Using sqlcmd
As
New
SqlCommand(
"Sp_get_imageprofile"
, db)
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Parameters.AddWithValue(
"@id"
, SqlDbType.Int).Value = Session.Item(
"Idutente"
)
Dim
_img
As
String
= Replace(sqlcmd.ExecuteScalar,
"~"
,
""
)
imgprofile.Attributes(
"style"
) =
"background-image: url('"
+ _img +
"');"
End
Using
End
Using
Catch
ex
As
SqlException
Exit
Sub
Catch
ex
As
Exception
Exit
Sub
End
Try
End
If