Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Switch

Erros

Por , em ASP Clássico

Recommended Posts

Switch    0

Switch
Postado

Pessoal, preciso saber como tratar os seguintes erros

 

Microsoft VBScript runtime error '800a0034'

 

Bad file name or number

 

/admin/produtos_imagens_upload.asp, line 67

 

65. Set objFS = Server.CreateObject6665("Scripting.FileSystemObject")66.  If Not objFS.FolderExists(strFolder) Then67.  objFS.CreateFolder(strFolder)68. End if

 

Microsoft VBScript runtime error '800a004c'

 

Path not found

 

/admin/produtos_imagens.asp, line 41

 

41. Set objFolder = ObjFS.GetFolder( strFolder )

 

Preciso de uma luz aí pessoal, porque não entendo nada de ASP.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Switch    0

Switch
Postado

Lucas, o valor é:

 

strFolder = endereco_fisico & "imagens/produtos/" & Request("id") & "/"

Eu acho que ta cmo problema nessa função endereço fisico aí.

 

Segue a função:

 

Function endereco_fisico()  arquivo = Replace(Request.ServerVariables("SCRIPT_NAME"),"\","/")  For i = 1 to Len(arquivo)	If i = 1 Then nome = ""	caracter = Mid(StrReverse(arquivo),i,1)	If caracter = "/" Then Exit For	nome = nome & caracter  Next  nome = StrReverse(nome)  endereco_fisico = Replace(Replace(Replace(Request.ServerVariables("PATH_TRANSLATED"),nome,""),"/","\"),"admin\","")  Set caracter = Nothing  Set nome = NothingEnd Function

Compartilhar este post

Link para o post
Compartilhar em outros sites

Switch    0

Switch
Postado

Mudei a linha para a que você postou, deu o seguinte erro:Microsoft VBScript compilation error '800a0401'Expected end of statement/admin/produtos_imagens.asp, line 30strFolder = endereco_fisico & "imagens\produtos\" & Request("id") & "\"--------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Switch    0

Switch
Postado

Opa, veio com um erro na hora que copiei !

 

coloquei da forma q você falou, com as barras ao contrario !

 

strFolder = endereco_fisico & "imagens\produtos\" & Request("id") & "\"

 

agora o erro mudou, foi pra linha 42.

 

42. Set objFolder = ObjFS.GetFolder( strFolder )

 

Vou postar o código inteiro !

 

<!--#include virtual="funcoes.asp"--><html><script language="JavaScript1.2">function high(which2){theobject=which2highlighting=setInterval("highlightit(theobject)",50)}function low(which2){clearInterval(highlighting)which2.filters.alpha.opacity=20}function highlightit(cur2){if (cur2.filters.alpha.opacity<100)cur2.filters.alpha.opacity+=5else if (window.highlighting)clearInterval(highlighting)}function confirm_delete(form) {if (confirm("Tem certeza que deseja excluir esta imagem?")) {document[form].submit();}}</script><link href="estilos/produtos_incluir_alterar.css" rel="stylesheet" type="text/css"><body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0"><%strFolder = endereco_fisico & "imagens\produtos\" & Request("id") & "\"If Request("imagem") <> "" Then  Set objFS = Server.CreateObject("Scripting.FileSystemObject")  If objFS.FileExists( strFolder & Request("imagem") ) Then	objFS.DeleteFile( strFolder & Request("imagem") )	Set objFS = Nothing  End IfEnd IfDim Folder, FileDim ObjFS, objRootFolderSet ObjFS = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = ObjFS.GetFolder( strFolder )x = 0For Each File in objFolder.files  If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Then	x = x + 1	Response.Write "<table width='1%' border='0' cellspacing='0' cellpadding='0' class='texto' style='border-bottom: 1px solid white'>"	Response.Write "<tr><form name='form_" & x & "' method=post action='produtos_imagens.asp?id=" & Request("id") & "'>"	If InStr(Session("te_admin_acesso"),"2A") Then	  Response.Write "<td valign=top bgcolor=whitesmoke> <img src='imagens/excluir_especificacao.gif' style='cursor:hand;' onclick=""confirm_delete('form_" & x & "')""><input type=hidden name=imagem value='" & File.Name & "'></td>"	Else	  Response.Write "<td valign=top bgcolor=whitesmoke> <img src='imagens/excluir_especificacao.gif'></td>"	End If	Response.Write "<td valign=top bgcolor=white style='border-left: 1px solid white'><img src='../imagens/produtos/" & Request("id") & "/" & File.Name & "' border=0></td>" & vbcrlf	Response.Write "</form></tr>"	Response.Write "</table>"  End IfNextSet objFolder = NothingSet Folder = Nothing%></body></html>

ta ai.. o arquivo .asp inteiro, até com as partes de html Lucas !

Compartilhar este post

Link para o post
Compartilhar em outros sites

Switch    0

Switch
Postado

Lucas, seguinte... eu tirei o include e funcionou 100% tbm !O problema está no funcoes.asp , só que é um arquivo mto grande, tem como eu entrar em contato com voce por msn ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Switch    0

Switch
Postado

Eu quero resolver o erro descrito no inicio do tópico.Preciso urgente resolver isso !Estou fazendo uns testes aqui, se nao conseguir resolver, volto a postar o codigo.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito