Bom, meu server tem o DundasUpload instalado. Mas está acusando um erro ao enviar os arquivos.
foto.asp
<HTML> <BODY BGCOLOR="#FFFFFF"> <h3>Tamanho máximo permitido: 100Kb</h3> <FORM METHOD="POST" ENCTYPE="Multipart/Form-Data" ACTION="foto_gravar.asp"> <INPUT TYPE="FILE" SIZE="40" NAME="arquivo1"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="arquivo2"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="arquivo3"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="arquivo4"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="arquivo5"><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> </BODY> </HTML>
foto_garavar.asp
<%
'On Error Resume Next
Set objUpload = Server.CreateObject ("Dundas.Upload.2")
'Modificando o nome do arquivo
objupload.UseUniqueNames = true
'tamanho maximo
objupload.MaxFileSize = 100000
'gravando o arquivo na pasta destino
objupload.UseVirtualDir = false
objUpload.Save "d:\asp\upload\arquivos"
'check to see if method call was successful using VBScript's Err object, if
' an error occurred we will redirect user to a fictitious error page
If Err.Number <> 0 Then
Response.Redirect "Error.asp"
Else
For Each objUploadedFile in objUpload.Files
Response.Write objUploadedFile.TagName & " foi salvo.<br>"
If InStr(1,objUploadedFile.ContentType,"octet-stream") Then
objUploadedFile.Delete
End If
Next
End If
Set objUpload = Nothing
%>Bom... eu tenho o Dundas rodando no meu PC. Se eu rodar esse código no meu PC, dá certo, mas quando eu jogo pra net, dá o seguinte erro:
Server object error 'ASP 0178 : 80070005'
Server.CreateObject Access Error
/upload/foto_gravar.asp, line 4
The call to Server.CreateObject failed while checking permissions. Access is denied to this object.
O que seria esse erro???
Detalhe... Quando eu mando pra net, eu envio da seguinte forma:
objupload.UseVirtualDir = true objUpload.Save "arquivos"
Alguém consegue me explicar o erro???
