Sub btnUpload_Click  (Sender as Object, e as EventArgs)

If Not (ctlFileImage.Posted is Nothing) Then

 

With ctlFileImage.Posted

 

      Dim lngFileSize as Long = .ContentLength ‘//Size in Bytes upload file

      Dim sContentType as String = .ContentType ‘//Returned by MINE type

      Dim sFileName as String =.FileName ‘//Client File Name and Path

 

‘//Size Check if you do not require it then comment the following if

If (lngFileSize / 1024) > 10 Then ‘// If file size is over 10Kb

      lblError.Caption += “File Size Too Much {:-o�

      lblError.Visible = True

      Exit Sub

End If

 

‘//File Type Filteration: add any type and add the code to you specific type

Select Case Trim (sContentType.ToLower)

 

‘// Filter the file types that are sent by the browser

Case "image/gif", "image/pjpg", "image/jpeg", "image/pjpeg", "image/jpg"

Try

 

‘// Save the file to the server if you cannot save it then see the Errors       ‘//Details Section below almost at end of the article

 

‘//Get only filename.ext by using IO Class no path as we use our own path

sFileName = System.IO.Path.GetFileName (.FileName)

 

.SaveAs (Server.MapPath (“/project/users_imgs/�) & sFilename)

 

‘// you can also code here to store this picture in SQL server rather   ‘// than saving on the server

‘// That will be my next version of this article :-)

 

‘// Now file is uploaded but what about the description of the picture.

‘// in ASP.NET all the controls persist their values in the server round

‘// cycles so you donot worry about the value of txtDesc it will be

‘// there as normal. So you can now use the txtDesc.Text and image

‘// path to store in the databse

 

Dim conn as New System.Data.SqlClient.SqlConnection (Your Connection String)

Dim cmd as New System.Data.SqlClient.SqlCommand

 

With cmd

      .CommandText = “your update or insert query that use txtDesc.Text and other controls�

      .Connection = conn

      .CommandType = CommandType.Text

      If Conn.State = ConnectionState.Closed Then Conn.Open ()

      .ExecuteNonQuery ()

End With

 

Catch ex As Exception

            lblError.Caption += ex.ToString

            lblError.Visible = True

            Exit Sub

End Try

 

Case Else

      lblError.Caption += “Invalid File Type Only Pictured are required.�

      lblError.Visible = True

      Exit Sub

    

      End Select

 

End With

 

End Sub