diff --git a/login/CreateUser.aspx.vb b/login/CreateUser.aspx.vb
index 52c1565..6d892ed 100644
--- a/login/CreateUser.aspx.vb
+++ b/login/CreateUser.aspx.vb
@@ -2,4 +2,56 @@
Partial Class login_CreateUser
Inherits System.Web.UI.Page
+
+ Protected Sub FileUpload_Mobile_Init(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub FileUpload_Desktop_Init(sender As Object, e As EventArgs)
+
+ End Sub
+
+
+
+
+ Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)
+ Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg", "doc", "xls"}
+ 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", "doc", "xls"}
+ Dim ext As String = System.IO.Path.GetExtension(FileUpload_Desktop.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
+ lbl_message_desktop.ForeColor = System.Drawing.Color.Red
+ lbl_message_desktop.Text = "Invalid File. Please upload a File with extension " &
+ String.Join(",", validFileTypes)
+ Else
+ lbl_message_desktop.ForeColor = System.Drawing.Color.Green
+ lbl_message_desktop.Text = "File uploaded successfully."
+ End If
+ End Sub
+
End Class