Oi pessoal, beleza... estou com o seguinte erro...
Request object error 'ASP 0104 : 80004005'
Operation not Allowed
/tvonline/video_enviar.asp, line 28
Não faz o upload do arquivo desejado. O que pode estar ocorrendo... e como resolver este problema de upload. Veja o que eu tenho na linha 28 em vermelho.
Fields("File1").Value.SaveAs FilePath
O código da página completa>>
Obrigado.
<script language="JavaScript">
function video(URL)
{
opener.document.video.selurl.value=URL;
self.close();
}
</script>
<link rel=stylesheet href="images/styles.css" type="text/css">
<form method="POST" enctype="multipart/form-data" name="enviarfoto">
<p><input type="file" name="File1" size="20"><br>
<input type="submit" value="Enviar" name="action"></p>
</form>
<!---#INCLUDE FILE="upload.inc" --->
<%
Dim Obj,objpasta, num, pasta
pasta = Request.querystring("pasta")
Local = server.mappath("videos/")
Set Obj = Server.CreateObject("Scripting.FileSystemObject")
Set objpasta = Obj.GetFolder(Local)
num = objpasta.files.count
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set Fields = GetUpload()
FilePath = server.mappath("videos/video_" &num& Right(Fields("File1").FileName,4))
arquivo="video_"&num&Right(Fields("File1").FileName,4)
Fields("File1").Value.SaveAs FilePath
If Right(arquivo,3)="avi" OR Right(arquivo,3)="mpeg" OR Right(arquivo,3)="mpg" OR Right(arquivo,3)="wmv" then
%>
<META HTTP-EQUIV="refresh" CONTENT="0; URL=java script:%20video('videos/<%=arquivo%>');">
<%
else
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
objFS.DeleteFile(Server.MapPath("videos/"&arquivo))
Set objFS = Nothing
%>
<script language="JavaScript">
{
opener.document.video.selurl.value='Este formato não é válido';
self.close();
}
</script>
<%
end if
Set objFS = Nothing
%><%
end if
%>
Pergunta
ibreak
Oi pessoal, beleza... estou com o seguinte erro...
Request object error 'ASP 0104 : 80004005'
Operation not Allowed
/tvonline/video_enviar.asp, line 28
Não faz o upload do arquivo desejado. O que pode estar ocorrendo... e como resolver este problema de upload. Veja o que eu tenho na linha 28 em vermelho.
Fields("File1").Value.SaveAs FilePath
O código da página completa>>
Obrigado.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.