File Upload and Update Contents - Please Help

Hi Master CroCrew,

I found a good PURE ASP that will allow you to upload 10MB file to the server and the file contents such as Network, Author, Title, etc... will insert to MS Access at the same time.

Below is a working script that I used. Let's say after the file is uploaded to the server and a record created with the file contents above to the MS Access (using the script below). If I want to UPDATE that record let's say, change the Author from Mr. A to Mr. B, the new file will overwrite the existing one on the server OK however, how can I modify the RS.AddNew code to make it to UPDATE the MS Access contents such as Author as well? Thank you very much for your OUTSTANDING SUPPORT so far. FYI that the website where the original script located is

http://www.planet-source-code.com/vb...=8225&lngWId=4

Expand|Select|Wrap|Line Numbers

 <%

Server.ScriptTimeout = 5000
 
Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><%
 
Server.ScriptTimeout = 1000

Form.SizeLimit = &HA00000'10MB
 
If len(Request.QueryString("UploadID"))>0 then

  Form.UploadID = Request.QueryString("UploadID")'{/b}

End if
 
Const fsCompleted  = 0
 
Dim UploadID, PostURL

UploadID = Form.NewUploadID
 
'Send this ID as a UploadID QueryString parameter to this script.

PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
 
%>
 
<HTML>

<HEAD>

<TITLE>Testing</TITLE>

</HEAD>
 
<BODY BGCOLOR="#FFFFFF">
 
<TABLE>

<BR>

<DIV ALIGN="LEFT">

<FORM NAME="file_upload" METHOD="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">
 
  &nbsp;&nbsp;&nbsp;&nbsp;<FONT FACE="HELVETICA,HELV,ARIAL" SIZE="2" COLOR="FF0000">** Denotes REQUIRED FIELD.  Please DO NOT press the "Upload File" button twice.</FONT>

     <P></P>
 
    <TR>

        <TD ALIGN="LEFT"><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="2">&nbsp;&nbsp; Network</FONT></FONT><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="1" COLOR="FF0000">&nbsp;&nbsp; ** </FONT></TD>

            <TD>

                                        <SELECT NAME="Network" ID="Network">

                                                    <OPTION VALUE>                                                                                        </OPTION>

                                                    <OPTION VALUE="TEST1"> TEST1                                                                </OPTION>

                             <OPTION VALUE="TEST2"> TEST2                                                                    </OPTION>      

                             </SELECT>
 
                             <FONT FACE="HELVETICA,HELV,ARIAL" SIZE="2">&nbsp;&nbsp; Author</FONT><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="1" COLOR="FF0000">&nbsp;&nbsp; ** </FONT>

                                <INPUT TYPE="TEXT" NAME="Author" SIZE="40" VALUE="" ID="Author">
 
                                <FONT FACE="HELVETICA,HELV,ARIAL" SIZE="2">&nbsp;&nbsp; Revision</FONT><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="1" COLOR="FF0000">&nbsp;&nbsp; ** </FONT>

                                <INPUT TYPE="TEXT" NAME="Revision" SIZE="8" VALUE="" ID="Revision">

             </TD>

    </TR>
 
    <TR>

            <TD ALIGN="LEFT"><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="2">&nbsp;&nbsp; Title</FONT><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="1" COLOR="FF0000">&nbsp; ** </FONT></TD>

            <TD><INPUT TYPE="TEXT" NAME="Title" SIZE="99" VALUE="" ID="Title"></TD>

    </TR>
 
    <TR>

            <TD ALIGN="LEFT"><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="2">&nbsp;&nbsp; File Name</FONT><FONT FACE="HELVETICA,HELV,ARIAL" SIZE="1" COLOR="FF0000">&nbsp;&nbsp; ** </FONT></TD>

            <TD><INPUT TYPE="FILE" NAME="SourceFile" SIZE="86" VALUE="" ID="SourceFile"></TD>

    </TR>
 
</TABLE>

    <CENTER>

    <BR>

    <INPUT CLASS="Table_Blue" TYPE="SUBMIT" VALUE="UPLOAD FILE"> &nbsp;&nbsp;&nbsp;&nbsp;<INPUT CLASS="Table_Blue" TYPE="RESET" VALUE="CLEAR FORM">

    </CENTER>

    <BR>

<CENTER>

<%
 
If Form.State = fsCompleted Then 'Completed
 
  'Create destination path+filename for the source file.

  Dim DestinationPath, DestinationFileName

  DestinationPath = Server.mapPath("MOPsUpload")

  DestinationFileName = DestinationPath & "\" & Form("SourceFile").FileName
 
  'Open recordset to store uploaded data

  Dim RS: Set RS = OpenUploadRS
 
  'Store extra info about upload to database

  RS.AddNew

   RS("UploadDT") = Date()

   RS("Network") = Form.Texts.Item("Network")

   RS("Title") = Form.Texts.Item("Title")

   RS("Revision") = Form.Texts.Item("Revision")

   RS("Author") = Form.Texts.Item("Author")

   RS("SourceFileName") = Form("SourceFile").FilePath

   RS("DestFileName") = DestinationFileName

   RS("DataSize") = Form("SourceFile").Length

   '...

  RS.Update
 
  Dim Field: For Each Field in Form.Files.Items

  Next

  'Save file to the destination

  Form("SourceFile").SaveAs DestinationFileName
 
        Response.Write("<FONT FACE=""HELVETICA,HELV,ARIAL"" COLOR=""#FF0000"" SIZE=""2"">Uploaded successfuly.")

    Response.Write("</FONT>")
 
ElseIf Form.State > 10 then

  Const fsSizeLimit = &HD

  Select case Form.State

        case fsSizeLimit: response.write  "<br><Font Color=red>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font><br>"

        case else response.write "<br><Font Color=red>Some form error.</Font><br>"

  end Select

End If'Form.State = 0 then
 
Function OpenUploadRS()

  Dim RS  : Set RS = CreateObject("ADODB.Recordset")
 
  'Open dynamic recordset, table Upload

  RS.Open "MOPs", GetConnection, 2, 2
 
  Set OpenUploadRS = RS

End Function
 
Function GetConnection()

    Set Conn = Server.CreateObject("ADODB.Connection")

    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("YourDatabase.mdb") & "; Jet OLEDB:Database Password=happy"

    set GetConnection = Conn

End function
 
%>
 
</CENTER>

<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>

</FORM>

<SCRIPT language=javascript>

//Open window with progress bar.

<!--

function ProgressBar(){

  var ProgressURL;

  ProgressURL = 'progress.asp?UploadID=<%=UploadID%>';

  var Network;

  var Revision;

  var Author;

  var Title;

  var SourceFile;
 
Network = file_upload.Network.value;

Revision = file_upload.Revision.value;

Author = file_upload.Author.value;

Title = file_upload.Title.value;

SourceFile = file_upload.SourceFile.value;
 
if (Network.length==0)

{

    alert('Reason:  The "Network" may contain invalid characters or is blank.');

    file_upload.Network.focus();

    return false;

}
 
else

{

  var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=355,height=140');

    return true;

}

  //return;

}

// -->

</SCRIPT>
 
</DIV>

</TD>
 
</BODY>

</HTML>

Feb 2 '08 #1

Subscribe Post Reply

2877

jhardman

3,406

Expert 2GB

Hey hotflash,

Just a reminder, please put your code inside code tags (notice the button marked - #) This makes it much easier to read.

In order to update rather than add new, you need to do two things:

1- open the recordset and make sure you are on the record you want to update. This is the hard part, you will need to either modify the SQL query so that you only return the one record you want (the preferred way), or open all the records and scroll through until you find the record you want to update (takes longer to run, but may be easier for a newbie to code).

2- remove the "RS.addNew" line. This is the easy part, as long as the recordset doesn't add a new record, you will overwrite the previous data.

Let me know if this helps.

Jared

Feb 4 '08 #2

hotflash

Hi Jared,

Thanks for your replying. I have tried both methods you recommended but still have no luck. There are about 30 records on the database. We only need to update the record that is needed. Honestly, this thing is way over my head.

Any other recommendation? There is a link to the code above, wonder if you can try yourself to see if you have any luck or not. The file that I used is
db-file-to-disk. Let's say, once the file is uploaded to the server, and there is an entry in the database. Try to update the Description to see how is it going to work. Thanks once again for your outstanding support.

Feb 7 '08 #3

by: matt | last post by:

I have compiled some code, some written by me, some compiled from various sources online, and basically i've got a very simple flat file photo gallery. An upload form, to upload the photos and give...

PHP

aspSmartUpload.SmartUpload doesnt save my file?

by: Jake | last post by:

Hi group, I am trying to build a page that allows uploading My ISP only supports Smartupload I am testing on a small hubbed local network, with PWS Any help is appreciated....

ASP / Active Server Pages

Upload file contents to database using C API

by: bballr | last post by:

What I am trying to do is to take the contents of a very large text file and place it into a LONGTEXT field in a database. I am looking for a solution using the C API to help me handle this. The...

MySQL Database

file upload not working right

by: Jim Michaels | last post by:

after a file upload, $_FILES is not populated but $_POST is. what's going on here? $_POST=C $_POST=C $_POST=C $_POST=C:\\www\\jimm\\images\\bg1.jpg $_FILES= $_FILES= $_FILES=

PHP

PHP File Upload Fails

by: Vic Spainhower | last post by:

Hello, I am trying to do a FTP file upload which works fine on my localhost but on my ISP server it fails. I can't seem to find where I can go to find the specific cause of the failure. In both...

PHP

Help : How to upload image file in update page

by: aris1234 | last post by:

hello.. How to upload image file in page update ..?? i have logic like this : if user upload new image then old image must delete and update DB used new name if user not upload new image then...

PHP

Warning: fopen() [function.fopen]: failed to open stream: No such file or directory

by: siyaverma | last post by:

i am trying to upload csv file from user's computer to main server the code i am using is if(((isset($_GET)) && ($_GET=="yes")) ) { $typefield = $_GET; echo...

PHP

How to retrive image file from MS access database and display this in another JSPpage

by: amritranjan | last post by:

This is my Jsp code for image upload in database: -----------Upload.jsp---------------- <html> <head> <title>Account Details </title> </head> <body bgproperties="fixed" bgcolor="#CCFFFF">...

Java

The BEST "FREE" Pure ASP 10MB File Upload

by: hotflash | last post by:

Hi All, I found the best pure ASP code to upload a file to either server and/or MS Access Database. It works fine for me however, there is one thing that I don't like and have tried to fix but...

ASP / Active Server Pages

Wordpress or something else?

by: Faith0G | last post by:

I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

Content Management Systems

Access Europe: Command bars, the Access Shortcut Tool and a simple Audit Log - Wed 3 April

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

General

One-click Importing Excel Data into a*Database

by: ryjfgjl | last post by:

In our work, we often need to import Excel data into databases (such as MySQL, SQL Server, Oracle) for data analysis and processing. Usually, we use database tools like Navicat or the Excel import...

Microsoft Excel

Batch import of multiple excel files into the database

by: ryjfgjl | last post by:

If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...

Data Management

Merging data from multiple Excel files

by: ryjfgjl | last post by:

In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...

Data Management

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

File Upload and Update Contents - Please Help

Similar topics