Home > dll download > aspsimpleupload error

Aspsimpleupload Error

Contents

your question and get tips & solutions from a community of 418,430 IT Pros & Developers. It's

Persits.upload In Classic Asp

quick & easy. Simple File Upload Script P: n/a SU_Oran I persits.upload.1 error '800a003d' found this when searching. I need to have a simple script that will upload a single file. It aspupload.dll download is giving me an error on Set upl = Server.CreateObject("ASPSimpleUpload.Upload") It is saying : Server object, ASP 0177 (0x800401F3) Invalid class string Am I missing something? A DLL perhaps?

Persits Upload Dll Download

---------------------------------------------------------------------------- Option Explicit Dim upl, NewFileName Set upl = Server.CreateObject("ASPSimpleUpload.Upload") If Len(upl.Form("File1")) > 0 Then NewFileName = "/Upload/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then Response.Write("File successfully written to disk.") Else Response.Write("There was an error saving the file to disk.") End If End If %> ASP Simple Upload Example #1

Select a file to upload:

Classic Asp Upload File To Server

Jul 22 '05 #1 Post Reply Share this Question 2 Replies P: n/a Ray Costanzo [MVP] Yes, you are missing the ASP Simple UPload component. You must get that (purchase it? Maybe it's free? Not sure) and install it on the server before you can use it. Okay, as it turns out, this is the component from a company that's gone. You'll have to go with a different component that still exists. You can find some upload options here: http://www.aspfaq.com/show.asp?id=2189 Ray at work "SU_Oran" wrote in message news:e8**************@TK2MSFTNGP15.phx.gbl... I found this when searching. I need to have a simple script that will upload a single file. It is giving me an error on Set upl = Server.CreateObject("ASPSimpleUpload.Upload") It is saying : Server object, ASP 0177 (0x800401F3) Invalid class string Am I missing something? A DLL perhaps? -------------------------------------------------------------------------- -- Option Explicit Dim upl, NewFileName Set upl = Server.CreateObject("ASPSimpleUpload.Upload") If Len(upl.Form("File1")) > 0 Then NewFileName = "/Upload/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then

New? Today's Posts FAQ Rules Guidelines Search Advanced Search Forum :: Server side development ASP problem: upload form inserting data from 1 table & persits upload 1 dll download form If this is your first visit, be sure to check out

Set Upload = Server.createobject( Persits.upload ) Error

the FAQ by clicking the link above. You may have to register before you can post: click the aspupload registration key register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. Enjoy an ad free experience by logging in. Not https://bytes.com/topic/asp-classic/answers/126132-simple-file-upload-script a member yet? Register. Results 1 to 2 of 2 Thread: problem: upload form inserting data from 1 table & form Thread Tools Show Printable Version Email this Page… Subscribe to this Thread… Rate This Thread Current Rating Excellent Good Average Bad Terrible 01-17-2008,04:56 PM #1 cwfontan View Profile View Forum Posts New to the CF scene Join Date Jan 2008 http://www.codingforums.com/asp/131454-problem-upload-form-inserting-data-1-table-form.html Posts 4 Thanks 0 Thanked 0 Times in 0 Posts problem: upload form inserting data from 1 table & form error: ASPSimpleUpload.Upload error 'ASP 0206 : 80004005' Cannot call BinaryRead /formsManagement/formPost2.asp, line 53 Cannot call BinaryRead after using Request.Form collection /error the upload was working I added the "rs_departments" & form element select list "department".. I am trying to inert the select field data to the DB as well as the data that is already being inserted. (sorry for long code) Code: <%@LANGUAGE="VBSCRIPT"%> <% Dim rs_departments__MMColParam rs_departments__MMColParam = "1" If (Request.Form("department") <> "") Then rs_departments__MMColParam = Request.Form("department") End If %> <% Dim rs_departments Dim rs_departments_numRows Set rs_departments = Server.CreateObject("ADODB.Recordset") rs_departments.ActiveConnection = MM_hrnews_conn_STRING rs_departments.Source = "SELECT * FROM dbo.department_subs" rs_departments.CursorType = 0 rs_departments.CursorLocation = 2 rs_departments.LockType = 1 rs_departments.Open() rs_departments_numRows = 0 %> <% response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "SELH - Forms Management" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf %>