If IsPostBack Then
Dim found As Boolean
Dim ex() As String = {".bmp", ".gif", ".jpg", ".JPG", ".GIF", ".BMP", ".Gif", ".Jpg", ".JPg", ".GIf", ".GiF", ".BmP"}
If File1.PostedFile.ContentLength <> 0 Then
Dim s, d As String
s = File1.PostedFile.FileName
d = System.IO.Path.GetExtension(s)
Dim x As Integer
For x = 0 To 11
If d = ex(x) Then
found = True
Exit For
End If
Next
If found Then
s = System.IO.Path.GetFileName(s)
File1.PostedFile.SaveAs(Request.MapPath(".") & "\images\" & s)
SqlConnection1.Open()
SqlCommand1.Parameters(0).Value = "./images/" & s
SqlCommand1.Parameters(1).Value = TextBox1.Text
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
Label1.Text = "File Uploaded"
Else
Label1.Text = "You Should Use only '.bmp' and '.gif' and '.jpg'"
End If
End If
End If
