FTP files of a certain type!!

	
	Public Sub Save(path)
		Dim streamFile,originName,fileItem, fileType, sSplit


		if Right(path, 1) <> "\" then path = path & "\"

			if not uploadedYet then Upload

			For Each fileItem In UploadedFiles.Items
			if fileItem.Length > 30000 then
			else
				originName = fileItem.FileName
				'filter off the path to get the actual file name ("\")
				If Len(originName) > 0 Then
					sSplit = split(originName, "\")
					fileType = sSplit(ubound(sSplit))
					Set sSplit = Nothing
					If Instr(fileType, ".") = 0 Then 'If there is no file extension
			     		fileType = ".doc"
					Else
					    'filter off the file name to get the file type (".")
					     sSplit = split(fileType, ".")
					     fileType = sSplit(ubound(sSplit))
					     fileType = "." & LCase(fileType)
					     Set sSplit = Nothing
					End If

					If filetype = ".doc" Or filetype = ".xls" Or filetype = ".pdf" Or filetype = ".rtf" Or filetype = ".htm" Or filetype = ".html" Or filetype = ".txt" Or filetype = ".gif" Or filetype = ".jpg" Then
                     'Response.Write filetype
						Set streamFile = Server.CreateObject("ADODB.Stream")

						streamFile.Type = 1
						streamFile.Open

						StreamRequest.Position=fileItem.Start
						StreamRequest.CopyTo streamFile, fileItem.Length
						streamFile.SaveToFile path & fileItem.FileName, 2
						streamFile.close
						Set streamFile = Nothing
						fileItem.Path = path & fileItem.FileName

					 end if

				end if
			end if
		Next
	End Sub