Software that allows members to upload video

<%@ Language=VBScript %>
<!-- #include file="upload.asp" -->
<%
' Create the FileUploader
Dim Uploader, File, strdev,textline
dim fso, logfile, textStreamObject
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
dim strfilepath, projectname, strfrom
strfilepath = Uploader.Form("fullname")
projectname = Uploader.Form("project")
response.write(strfilepath &"<BR>")


if Uploader.Form("library")<>"" then
strfilepath="C:\INETPUB\WWWROOT\library\Library\"
else
strfilepath="C:\inetpub\wwwroot\jobcards\"
end if

response.write "<I>" & strfilepath & "</I>"

'******************************************
' Use [FileUploader object].Form to access 
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************



' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
 Response.Write "File(s) not uploaded."
Else
 ' Loop through the uploaded files
 For Each File In Uploader.Files.Items
  
  ' Check where the user wants to save the file
  If Uploader.Form("saveto") = "disk" Then
 
   ' Save the file
   if Uploader.Form("library")<>"" then
   file.filename = file.filename
   textline= Uploader.Form("project") & "-" & file.filename
   else
   file.filename = Uploader.Form("project") & "-" & file.filename
   end if
   File.SaveToDisk strfilepath
   
   '***********************************
  logfile="c:\inetpub\wwwroot\library\library.txt"
  Set fso = CreateObject("Scripting.FileSystemObject") 
  Set textStreamObject = fso.OpenTextFile(logfile,8,true,0)
  textStreamObject.WriteLine(textline)
  'textStreamObject.WriteLine("Log Created-" & now() & "-")
  'textstreamobject.writeline("Insertion Completed-" & now())
  '***********************************************
  textStreamObject.Close ' make sure you call the close method or the file will not be written 
  Set textStreamObject = Nothing
   
   
   
   
   
   '************************************
   
   
 
  ElseIf Uploader.Form("saveto") = "proposals" Then
                        response.write("<BR>saving to proposals<br>")
  
   strfilepath="C:\Zdrive_root\BackOffice\Proposals\Proposals\"
                        file.filename = file.filename
                        response.write(strfilepath & "-" & file.filename & "<BR>")
  
   file.filename = Uploader.Form("project") & "-" & file.filename
  
   File.SaveToDisk strfilepath
   
  
  End If
 Next
End If
%><meta http-equiv="refresh" content="2;URL=library.asp"><!--#include file="header.txt"-->

<%
Class FileUploader
 Public  Files
 Private mcolFormElem

 Private Sub Class_Initialize()
  Set Files = Server.CreateObject("Scripting.Dictionary")
  Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
 End Sub
 
 Private Sub Class_Terminate()
  If IsObject(Files) Then
   Files.RemoveAll()
   Set Files = Nothing
  End If
  If IsObject(mcolFormElem) Then
   mcolFormElem.RemoveAll()
   Set mcolFormElem = Nothing
  End If
 End Sub

 Public Property Get Form(sIndex)
  Form = ""
  If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
 End Property

 Public Default Sub Upload()
  Dim biData, sInputName
  Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
  Dim nPosFile, nPosBound

  biData = Request.BinaryRead(Request.TotalBytes)
  nPosBegin = 1
  nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
  
  If (nPosEnd-nPosBegin) <= 0 Then Exit Sub
   
  vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
  nDataBoundPos = InstrB(1, biData, vDataBounds)
  
  Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))
   
   nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
   nPos = InstrB(nPos, biData, CByteString("name="))
   nPosBegin = nPos + 6
   nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
   sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
   nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
   nPosBound = InstrB(nPosEnd, biData, vDataBounds)
   
   If nPosFile <> 0 And  nPosFile < nPosBound Then
    Dim oUploadFile, sFileName
    Set oUploadFile = New UploadedFile
    
    nPosBegin = nPosFile + 10
    nPosEnd =  InstrB(nPosBegin, biData, CByteString(Chr(34)))
    sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
    oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))

    nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
    nPosBegin = nPos + 14
    nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
    
    oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
    
    nPosBegin = nPosEnd+4
    nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
    oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
    
    If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
   Else
    nPos = InstrB(nPos, biData, CByteString(Chr(13)))
    nPosBegin = nPos + 4
    nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
    If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
   End If

   nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
  Loop
 End Sub

 'String to byte string conversion
 Private Function CByteString(sString)
  Dim nIndex
  For nIndex = 1 to Len(sString)
     CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
  Next
 End Function

 'Byte string to string conversion
 Private Function CWideString(bsString)
  Dim nIndex
  CWideString =""
  For nIndex = 1 to LenB(bsString)
     CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) 
  Next
 End Function
End Class

Class UploadedFile
 Public ContentType
 Public FileName
 Public FileData
 
 Public Property Get FileSize()
  FileSize = LenB(FileData)
 End Property

 Public Sub SaveToDisk(sPath)
  Dim oFS, oFile
  Dim nIndex
 
  If sPath = "" Or FileName = "" Then Exit Sub
  If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"
 
  Set oFS = Server.CreateObject("Scripting.FileSystemObject")
  If Not oFS.FolderExists(sPath) Then Exit Sub
  
  Set oFile = oFS.CreateTextFile(sPath & FileName, True)
  
  For nIndex = 1 to LenB(FileData)
      oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
  Next

  oFile.Close
 End Sub
 
 Public Sub SaveToDatabase(ByRef oField)
  If LenB(FileData) = 0 Then Exit Sub
  
  If IsObject(oField) Then
   oField.AppendChunk FileData
  End If
 End Sub

End Class
%>