-
Notifications
You must be signed in to change notification settings - Fork 0
/
settings.aspx.vb
108 lines (88 loc) · 4.58 KB
/
settings.aspx.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Imports Telerik.Web.UI
Imports System.IO
Imports System.Data.SqlClient
Imports Encore.PayPal.Nvp
Partial Class settings
Inherits MyBaseClass
Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
If RadUpload1.UploadedFiles.Count > 0 Then
' check for filename and update the user profile with the new logo
Dim filename As String = RadUpload1.UploadedFiles.Item(0).GetName()
If Not filename Is Nothing And Len(filename) > 0 Then
' grab name of previous logo
Dim origFileName As String = CType(fvCompanyLogo.Row.FindControl("origImage"), HiddenField).Value
' update
updateImageDataSource.UpdateParameters("image").DefaultValue = filename
updateImageDataSource.Update()
' rebind the image
fvCompanyLogo.DataBind()
' delete image if possible
Dim filepath As String = Session("filepath") & "images\logos\" & origFileName
Try
If File.Exists(filepath) Then
If File.OpenRead(filepath).CanRead Then
File.Delete(filepath)
End If
End If
Catch ex As Exception
Trace.Write(ex.Message)
End Try
End If
showNotification("Logo Uploaded", "Your logo was uploaded successfully")
Else
showNotification("Error Uploading Logo", "Please ensure your file is in .jpg or .gif formats and the file size is under 500kb", True)
End If
' send response to page
'uploadResponse.Visible = True
End Sub
Protected Sub RadUpload1_FileExists(ByVal sender As Object, ByVal e As Telerik.Web.UI.Upload.UploadedFileEventArgs) Handles RadUpload1.FileExists
Dim counter As Integer = 1
Dim file As UploadedFile = e.UploadedFile
Dim targetFolder As String = Server.MapPath(RadUpload1.TargetFolder)
Dim targetFileName As String = Path.Combine(targetFolder, file.GetNameWithoutExtension() + counter.ToString() + file.GetExtension())
While System.IO.File.Exists(targetFileName)
System.Math.Max(System.Threading.Interlocked.Increment(counter), counter - 1)
targetFileName = Path.Combine(targetFolder, file.GetNameWithoutExtension() + counter.ToString() + file.GetExtension())
End While
file.SaveAs(targetFileName)
End Sub
Protected Sub Validate_Change()
Page.Validate("ChangePassword1")
End Sub
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
showSubscriptionDate()
updateHelpSettings()
End Sub
Private Sub showSubscriptionDate()
lSubscriptionDate.Text = Session("SubscriptionDate")
End Sub
Protected Sub fvContactDetails_ItemUpdated(sender As Object, e As FormViewUpdatedEventArgs) Handles fvContactDetails.ItemUpdated
showNotification("Contact Details Updated", "Your changes have been saved successfully")
End Sub
Protected Sub fvCompanyDetails_ItemUpdated(sender As Object, e As FormViewUpdatedEventArgs) Handles fvCompanyDetails.ItemUpdated
showNotification("Company Details Updated", "Your changes have been saved successfully")
End Sub
Protected Sub fvNotifications_ItemUpdated(sender As Object, e As FormViewUpdatedEventArgs) Handles fvNotifications.ItemUpdated
showNotification("Notifications & Help Center", "Your settings have been saved successfully")
End Sub
Protected Sub updateHelpSettings()
Dim help As String = Request.QueryString("help")
If Not IsNothing(help) Then
If help.Length > 0 Then
' update user profile to record the fact we don't want to see the help any more
Dim connString As String = System.Configuration.ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString
Dim myConn As New SqlConnection(connString)
Dim cmd As SqlCommand = New SqlCommand("UPDATE UserProfile SET help=@help WHERE userId = @userId", myConn)
cmd.Parameters.AddWithValue("@userId", Session("userid"))
cmd.Parameters.AddWithValue("@help", help)
Try
myConn.Open()
cmd.ExecuteScalar()
Catch ex As Exception
Trace.Write(ex.ToString)
myConn.Close()
End Try
End If
End If
End Sub
End Class