S
SU_Oran
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
Response.Write("File successfully written to disk.")
Else
Response.Write("There was an error saving the file to disk.")
End If
End If
%>
<html><head><title>ASP Simple Upload Example #1</title></head></title>
<body>
<form method="POST" action="test.Asp" enctype="multipart/form-data">
Select a file to upload: <input type="file" name="File1" size="30">
<input type="submit" name="submit" value="Upload Now">
</form>
</body>
</html>
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
Response.Write("File successfully written to disk.")
Else
Response.Write("There was an error saving the file to disk.")
End If
End If
%>
<html><head><title>ASP Simple Upload Example #1</title></head></title>
<body>
<form method="POST" action="test.Asp" enctype="multipart/form-data">
Select a file to upload: <input type="file" name="File1" size="30">
<input type="submit" name="submit" value="Upload Now">
</form>
</body>
</html>