Alguem sabe resolver esse erro??

[cabral51 0]

Microsoft VBScript runtime error '800a01a8'Object required: ''/manutencao/processo.asp, line 364 Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(Server.MapPath("imagens/"&codigox&"/")) then Set arquivos=arquivo.files For each item in arquivos 'response.Write item.name & "<br>" if (Right(item,3) ="jpg") or (Right(item,4) ="jpeg") then%> <img src="imagens/<%=codigox%>/<%=item.name%>"> <%end if Next else Set arquivos=nothing Set arquivo=nothing Set fso=nothing 'response.Redirect("index.asp") end if Set arquivos=nothing Set arquivo=nothing Set fso=nothing%>alguem sabe resolver esse erro??

[Robex 171 0]

Onde é a linha 364? no if?

[Roney 0]

Qual é a linha 364?

[cabral51 0]

Essa akiSet arquivos=arquivo.filesah tava faltanado uma linha ali, essa aki oh:Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/"))axo q eh isso

[Roney 0]

Parece que você não está inicializando o objeto.Você deveria ter algo parecido comset arquivo = fso.getFolder(Server.MapPath("imagens/"&codigox&"/")) Tenta isso.Abs,

[jrcardozo 4]

exatamente....é só isso que falta

[cabral51 0]

Aproveitando o tópico para naum abrir outro e causar flood alguem sabe passar esse pseudocodigo para asp??

eh q eu naums ei fazer funcoes com parametros e retornar valor...

eu passaria como parametro a variavel vetor com 2 conteudos [9,8]

Funcao calculacodigo 'essa funcao recebe o vetor a cima como parametrotabEncode=['NNWWN','WNNWWN']   'isso tb eh um vetor que recebe esses dois valores ao ladofor(i=0; i<tabEncode.tamanho; i+=2){d1=vetor[i];d2=vetor[i+1];strd1=tabEncode[d1];strd2=tabencode[d2];for (j=0; j<5; j++){strd3-strd1[j]&strd2[j];

e apos pasar isso rpa asp como eu chamaria essa funcao?ou o valor ??

[dark0 0]

o que essa funçaum faz?

[cabral51 0]

darko na verdade com ela eu quero começar a montar o código de barras entendeu??ela recebe um vetor como parametro...ses]is conseguem parssar para asp por favor?