Dim tp1 As String = ""
Dim aa1() As String
If Trim(File1.PostedFile.FileName) <> "" Then
aa1 = Split(Trim(File1.PostedFile.FileName), ".")
aa1.Reverse(aa1)
tp1 = aa1(0)
tp1 = name1 & "." & tp1
End If
Dim fj1 As String = ""
Dim aa2() As String
If Trim(File2.PostedFile.FileName) <> "" Then
aa2 = Split(Trim(File2.PostedFile.FileName), ".")
aa2.Reverse(aa2)
fj1 = aa2(0)
fj1 = name1 & "." & fj1
File1.PostedFile.SaveAs(Server.MapPath(".") & "\images\" & tp1)
End If