<% Private Function ValidFileExtension(strFileName ,strFileExtensions) Dim arrExtension Dim strFileExtension Dim i strFileExtension = UCase(GetFileExtension(strFileName)) arrExtension = Split(UCase(strFileExtensions), ";") For i = 0 To UBound(arrExtension) 'Check to see if a "dot" exists If Left(arrExtension(i), 1) = "." Then arrExtension(i) = Replace(arrExtension(i), ".", vbNullString) End If 'Check to see if FileExtension is allowed If arrExtension(i) = strFileExtension Then ValidFileExtension = True Exit Function End If Next ValidFileExtension = False End Function Public Function GetFileExtension(strFileName) GetFileExtension = Mid(strFileName, InStrRev(strFileName, ".") + 1) End Function %>