Partial Class login_CreateUser
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs)
        If Not User.Identity.IsAuthenticated Then
            FormsAuthentication.RedirectToLoginPage()
        End If
    End Sub

    Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)
        Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg"}
        Dim ext As String = System.IO.Path.GetExtension(FileUpload_Mobile.PostedFile.FileName)
        Dim isValidFile As Boolean = False
        For i As Integer = 0 To validFileTypes.Length - 1
            If ext = "." & validFileTypes(i) Then
                isValidFile = True
                Exit For
            End If
        Next
        If Not isValidFile Then
            lblMessage_mob.ForeColor = System.Drawing.Color.Red
            lblMessage_mob.Text = "Invalid File. Please upload a File with extension " &
                            String.Join(",", validFileTypes)
        Else
            lblMessage_mob.ForeColor = System.Drawing.Color.Green
            lblMessage_mob.Text = "File uploaded successfully."
        End If
    End Sub

    Protected Sub btn_Save_Changes_Click(sender As Object, e As EventArgs)
        Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg"}
        Dim ext As String = System.IO.Path.GetExtension(FileUpload_Desktop.PostedFile.FileName)
        Dim isValidFile As Boolean = False
        Dim pathtosave As String = String.Empty
        For i As Integer = 0 To validFileTypes.Length - 1
            If ext = "." & validFileTypes(i) Then
                pathtosave = "../images/users/" + Me.Page.User.Identity.Name + "/ImageProf"
                isValidFile = True
                Exit For
            End If
        Next
        If Not isValidFile Then
            lbl_message_desktop.ForeColor = System.Drawing.Color.Red
            lbl_message_desktop.Text = "Invalid File. Please upload a File with extension " &
                            String.Join(",", validFileTypes)
        Else
            FileUpload_Desktop.PostedFile.SaveAs(pathtosave + "/" + Date.Now.ToShortDateString + "." + System.IO.Path.GetExtension(FileUpload_Desktop.PostedFile.FileName))
            lbl_message_desktop.ForeColor = System.Drawing.Color.Green
            lbl_message_desktop.Text = "File uploaded successfully."
        End If
    End Sub

End Class