Hello Friend,

I am handling a module using ASP3.0 which has to upload an movie  clipsof
size 1 mb or 2 mb. i have a code which upload only files or images. So I
need your help for this. If you know any code or any free component please
share with me.

Thanks
G.

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=7361&lngWId=4

keep an eye out on the wrapping!


<!-- save everything below as: fileuploader42.asp  -->

<form name="upload" action="fileuploader42.asp"
enctype="multipart/form-data" method="post">
  <input type="text" name="title" size="42" value="ASP File Uploader 42 (c)
2004 by Q42 (www.q42.nl)" /><br/>
  <input type="text" name="description" size="42" value="Multiple files and
fields uploading roundtrip in 1 file: 42 lines of javascript including error
handling, size delimiter and comments" /><br/>
  <input type="file" name="file1" /><br/>
  <input type="submit" value="Send" />
</form>
<%@ language="javascript" %>
<%
  if (Request.TotalBytes == 0) Response.End;
  // set maximum filesize to 1 Mb
  var maxFileSize = 1024 * 1000;
  // use recordset to cast binary to string, and split result on seperator
  var recordSet = Server.CreateObject("ADODB.Recordset");
  recordSet.fields.append(0, 201, Request.TotalBytes);
  recordSet.open();
  recordSet.addNew();
  recordSet.fields(0).appendChunk(Request.binaryRead(Request.TotalBytes));
  var data = new String(recordSet.Fields(0)).split((recordSet.Fields(0) +
"").substring(0, (recordSet.Fields(0) + "").indexOf("\r\n")));
  recordSet.close();
  // store values and files in different objects, so we can scan through
them later
  var values = {};
  var files = {};
  for (var i = 1; i < data.length - 1; i++) {
    var curdata = data[i].split("\r\n");
    if ((curdata[2].length == 0) && (curdata[4].length == 0))
values[curdata[1].substring(38, curdata[1].length-1)] = curdata[3];
    if ((curdata[2].length != 0) && (curdata[4].length != 0) &&
(data[i].length < maxFileSize))
files[curdata[1].replace(/.*filename=[\'\"](.*)[\'\"]/,
"$1").replace(/([^\\]+\\)+/,"")] = { contentType:curdata[2].substr(14),
fileData:curdata.slice(4, curdata.length - 1).join("\r\n")};
  }
  // scan through the names in the values object and show each corresponding
value
  for (var fieldName in values) Response.Write(fieldName + " = " +
values[fieldName] + "<br/>");
  // scan through the files object, store each file to disk, and show the
result (images show directly, other data show the contenttype as a hyperlink
to a popupwindow)
  for (var fileName in files) {
    try {
      var fso = new ActiveXObject("Scripting.FileSystemObject");
      var file = fso.OpenTextFile(Server.MapPath(fileName), 2, true);
      file.write(files[fileName].fileData);
      file.close();
      Response.Write(fileName + " : <a href='"+fileName+"'
target='_new'><img align='top' src='"+fileName+"'
title='"+files[fileName].contentType+"' border=''
onerror='this.parentNode.innerHTML=this.title'/></a><br/>");
    } catch(e) {
      Response.Write("Error. Could not upload the file: " + fileName +
"<br/>");
    }
  }
%>

VB Function to return array to ASP
error when connecting to sql server
HOWTO Make CStr for JavaScript on ASP w/ Request.Form and QueryStr
PRB JavaScript in ASP with Request.Form
comparing two recordsets?
replacing characture
Error reading xml document in Asp
Transfer Database Output To Another Website
How to store a class in a cookie and retrieve?
ASP input and EXCEL