ASPUpload Help

General Web Coding Microsoft Development
1

Trying to get ASPUpload working on win13 just can’t get it to do anything. Here is my code

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 5242880	' Limit files to 5MB
Upload.Save("D:\hshome\<username>\<domain.com>\<directory>")
Set File = Upload.Files("txtEventSignUp")
If Not File Is Nothing Then
	strFile = File.Filename
	Response.Write("<font color=red>Uploading " & strFile & ".</font><br>")
End If
Set Upload = Nothing
%>



<table>
<form method="post" name="frmUpload" ENCTYPE="multipart/form-data" action="browse_new.asp?mode=upload"> 
<tr><Td>Upload Sign Up Form:</td><td><input type="file" name="txtEventSignUp"></td></tr> 
<tr><td><input type="submit" value="Upload"></td></tr> 
</form></table>

Any ideas are apprecaited.
Thanks

2

Try Upload.SaveAs :slight_smile:

The ASPUpload shared hosting settings are in place in the registry on the servers some it will report and error or otherwise not function if you just using .Save

3

That didn’t work either, hmmm

4

err?
Doh, it is actually wrong, my mistake.
SaveVirtual is the command

AspUpload.com -- Chapter 10: Using AspUpload in a Shared Environment

5

Hmm same result.

6

and no I don’t see any type of error. Just proceses but doesn’t actually do anything.

7

Please send me an email of PM with the url and where I can test I will see if any errors showing in logs :slight_smile:

8

PM sent. Thanks for helping.

9

Got it

	Set Upload = Server.CreateObject("Persits.Upload")
	Upload.OverwriteFiles = False
	Upload.SetMaxSize 5242880	' Limit files to 5MB
	Upload.SaveVirtual("/signupforms")
	Set File = Upload.Files("txtEventSignUp")
	If Not File Is Nothing Then
		strFile = File.Filename
		Response.Write("<font color=red>Uploading " & strFile & ".</font><br>")
	End If
	Set Upload = Nothing