Ir para conteúdo

POWERED BY:

Arquivado

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

dududoidera

Upload sem componentes

Recommended Posts

Boa noite , estou com um problema no meu envio de fotos.

 

é o seguinte, as fotos chegam ao meu banco de dados , mais chegam corrompida

 

grato

Eduardo

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0005)

Chamada de procedimento ou argumento inválido: 'Chr'

/upload_form3.asp, line 34

(LINE 34) - MyFile.Write chr(AscB(MidB(foto,i,1)))

 

CODIGO COMPLETO ABAIXO

 

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin


' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "adm/imagens/" + nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
 MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../base.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into imgs (cfoto,codproduto) values ('"& cfoto &"', '"& cod &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos
response.write "<br><brAguarde 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='5; url=principal_produtos.asp'/>"
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

você deu todas as permissões,como esta vindo o

UploadRequest.Item("foto").Item("Value")

dá uma olhada neste código

alem de fazer UPLOAD ele tem a opção de

renomear o arquivo.

 

 

este é o form:

 

 

<html><body>

<form action="upload.asp" enctype="multipart/form-data" method="post">

Arquivo:

<input type="file" name="test">

<br>

<input type="radio" name="filename" value="original" checked> Usar o nome original

<br>

<input type="radio" name="filename" value="userSpecified"> Usar o nome:

<input type="text" name="userSpecifiedName" value="">

<br>

<input type="submit" value="Enviar">

</form>

</body>

</html>

 

 

este o código, muito bom

 

 

<%

' Ajuste o timeout conforme o tamanho 

' dos arquivos que você irá aceitar

server.scripttimeout = 5400



'Caminho virtual onde os arquivos devem ser salvos no servidor

filePathDefault = "./"



const ForWriting = 2

const TristateTrue = -1

crlf = chr(13) & chr(10)



' Esta função recupera o nome do campo do formulário

function getFieldName( infoStr)

sPos = inStr( infoStr, "name=")

endPos = inStr( sPos + 6, infoStr, chr(34) & ";")

if endPos = 0 then

 endPos = inStr( sPos + 6, infoStr, chr(34))

end if

getFieldName = mid( infoStr, sPos + 6, endPos - (sPos + 6))

end function



' Esta função recupera o nome do arquivo

function getFileName( infoStr)

sPos = inStr( infoStr, "filename=")

endPos = inStr( infoStr, chr(34) & crlf)

getFileName = mid( infoStr, sPos + 10, endPos - (sPos + 10))

end function



' Esta função recupera o tipo mime do arquivo

function getFileType( infoStr)

sPos = inStr( infoStr, "Content-Type: ")

getFileType = mid( infoStr, sPos + 14)

end function



' Lê o arquivo o arquivo e tudo mais que foi enviado

postData = ""

Dim biData

biData = Request.BinaryRead(Request.TotalBytes)

' Como o arquivo é binário, iremos armazená-lo

' numa variável mais controlável

for nIndex = 1 to LenB( biData)

postData = postData & Chr(AscB(MidB( biData, nIndex, 1)))

next



' Como os dados foram lidos de uma forma binária (BinaryRead), a instrução Request.Form 

' não está mais disponível. Portanto, será necessário processar as variáveis manualmente.

' Primeiro, será verificado o tipo de codificação.

contentType = Request.ServerVariables( "HTTP_CONTENT_TYPE")

ctArray = split( contentType, ";")

' O envio de arquivos somente funciona com a codificação

' "multipart/form-data", por isso vamos checar se esse foi a codificação usada.

if trim(ctArray(0)) = "multipart/form-data" then

errMsg = ""

' Armazene o conteúdo do formulário ...

bArray = split( trim( ctArray(1)), "=")

boundry = trim( bArray(1))

' ... divida as variáveis

formData = split( postData, boundry)

' agora, nós precisamos extrair a informação de cada variável.

dim myRequest, myRequestFiles(9, 3) 

Set myRequest = CreateObject("Scripting.Dictionary")

fileCount = 0

for x = 0 to ubound( formData)

 ' duas marcas "crlf" indicam o final da informação sobre campo

 ' tudo depois dele é o valor

 infoEnd = instr( formData(x), crlf & crlf)

 if infoEnd > 0 then

  ' lê as informações do campo...

  varInfo = mid( formData(x), 3, infoEnd - 3)

  ' lê o valor do campo

  varValue = mid( formData(x), infoEnd + 4, len(formData(x)) - infoEnd - 7)

  ' verifica se ele é um arquivo

  if (instr( varInfo, "filename=") > 0) then

   myRequestFiles( fileCount, 0) = getFieldName( varInfo)

   myRequestFiles( fileCount, 1) = varValue

   myRequestFiles( fileCount, 2) = getFileName( varInfo)

   myRequestFiles( fileCount, 3) = getFileType( varInfo)

   fileCount = fileCount + 1

  else

   ' outro tipo de campo

   myRequest.add getFieldName( varInfo), varValue

  end if

 end if

next

else

errMsg = "Tipo de codificação inválido!"

end if 



' Salva o arquivo enviado

set lf = server.createObject( "Scripting.FileSystemObject")

if myRequest("filename") = "original" then

' Usa o nome do arquivo original

browserType = UCase( Request.ServerVariables( "HTTP_USER_AGENT"))

if (inStr(browserType, "WIN") > 0) then

 ' Sistema Windows

 sPos = inStrRev( myRequestFiles( 0, 2), "\")

 fName = mid( myRequestFiles( 0, 2), sPos + 1)

end if

 ' Sistema Mac

if (inStr(browserType, "MAC") > 0) then

 fName = myRequestFiles(0, 2)

end if

' Caminho onde os arquivos devem ser salvos

filePath = filePathDefault & fName

else

' use o nome especificado pelo usuário

' Caminho do arquivo

filePath = filePathDefault & myRequest("userSpecifiedName")

end if

savePath = server.mapPath( filePath)

set saveFile = lf.createtextfile(savePath, true)

saveFile.write( myRequestFiles(0, 1))

saveFile.close

%>

<html>

<body>

<% if errMsg = "" then %>

Arquivo enviado com sucesso!

<%else %>

Erro no envio do arquivo!<br>

<%= errMsg %>

<% end if %>

</body>

</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse codigo he muito bom ate funcionou algumas vezes mas agora comecou a dar erro nessa linha ai

 

Chamada de procedimento ou argumento inválido

/brunosites/vatel/vatelsite/adm/upload.asp, line 225

 

 

 

 

saveFile.write( myRequestFiles(0, 1))

Compartilhar este post


Link para o post
Compartilhar em outros sites

roda esta funcaun para checar erros

 

 

 

<%

Sub checaerro

Select Case Err.Number

 Case 3

  Response.Write " Return sem GoSub"

 Case 5

  Response.Write "Chamada de Procedimento Inválida"

 Case 6

  Response.Write "Sobrecarga"

 Case 7

  Response.Write "Sem Memória"

 Case 9

  Response.Write "SubScript fora de área"

 Case 10

  Response.Write "Este Array está fixo ou temporariamente travado"

 Case 11

  Response.Write "Divisão Por Zero"

 Case 13

  Response.Write "Tipos Incompatíveis"

 Case 14

  Response.Write "Fora de Espaço de String"

 Case 16

  Response.Write "Expressão muito Complexa"

 Case 17

  Response.Write "Não pode recuperar a operação"

 Case 18

  Response.Write "Interrupção do usuário ocorrida"

 Case 20

  Response.Write "Resume Without Error"

 Case 28

  Response.Write "Fora de Espaço de Pilha"

 Case 35

  Response.Write "Sub ou Function não Definida"

 Case 47

  Response.Write "Muitas DLL na aplicação cliente"

 Case 48

  Response.Write "Erro carregando DLL"

 Case 49

  Response.Write "DLL com problemas de chamada"

 Case 51

  Response.Write "Erro Interno"

 Case 52

  Response.Write "Nome ou número do arquivo errado"

 Case 53

  Response.Write "Arquivo não Encontrado"

 Case 54

  Response.Write "Modo de arquivo errado"

 Case 55

  Response.Write "Arquivo já está Aberto"

 Case 57

  Response.Write "Device I/O Error"

 Case 58

  Response.Write "Arquivo jé existente"

 Case 59

  Response.Write "Tamanho do registro errado"

 Case 61

  Response.Write "Disco Cheio"

 Case 62

  Response.Write "Entrada passa do final do arquivo"

 Case 63

  Response.Write "Número de registros errados"

 Case 67

  Response.Write "Muitos arquivos"

 Case 68

  Response.Write "Ferramenta não disponível"

 Case 70

  Response.Write "Permissão Negada"

 Case 71

  Response.Write "Disco não Preparado"

 Case 74

  Response.Write "Não posso renomear com discos diferentes"

 Case 75

  Response.Write "Caminho/Arquivos Erro de acesso"

 Case 76

  Response.Write "Caminho não encontrado"

 Case 91

  Response.Write "Variável de objeto não definida"

 Case 92

  Response.Write "Loop For não foi inicializado"

 Case 94

  Response.Write "Uso inválido de Null"

 Case 322

  Response.Write "Não posso criar Arquivos temporários nescessários"

 Case 325

  Response.Write "Formato inválido no arquivo"

 Case 380

  Response.Write "Valor da propriedade inválida"

 Case 400

  Response.Write "ERRO HTTP 1.1 --- pedido ruim"

 Case 401.1

  Response.Write "ERRO HTTP 1.1 --- não autorizado: falha no logon"

 Case 401.2

  Response.Write "ERRO HTTP 1.1 --- não autorizado: falha no logon devido a configuração do servidor"

 Case 401.3

  Response.Write "ERRO HTTP 1.1 --- não autorizado: não autorizado devido a ACL no recurso"

 Case 401.4

  Response.Write "ERRO HTTP 1.1 --- não autorizado: falha na autorização pelo filtro"

 Case 401.5

  Response.Write "ERRO HTTP 1.1 --- não autorizado: falha na autorização por ISAPI/CGI App"

 Case 403.1

  Response.Write "ERRO HTTP 1.1 --- proibido: acesso a execução proibido"

 Case 403.2

  Response.Write "ERRO HTTP 1.1 --- proibido: acesso de leitura proibido"

 Case 403.3

  Response.Write "ERRO HTTP 1.1 --- proibido: acesso de escrever proibido"

 Case 403.4

  Response.Write "ERRO HTTP 1.1 --- proibido: requer SSL"

 Case 403.5

  Response.Write "ERRO HTTP 1.1 --- proibido: requer SSL 128"

 Case 403.6

  Response.Write "ERRO HTTP 1.1 --- proibido: endereço de IP rejeitado"

 Case 403.7

  Response.Write "ERRO HTTP 1.1 --- proibido: requer certificação do cliente"

 Case 403.8

  Response.Write "ERRO HTTP 1.1 --- proibido: acesso ao site negado"

 Case 403.9

  Response.Write "ERRO HTTP 1.1 --- acesso proibido: Muitos usuários estão conectados"

 Case 403.10

  Response.Write "ERRO HTTP 1.1 --- acesso proibido: configuração inválida"

 Case 403.11

  Response.Write "ERRO HTTP 1.1 --- acesso proibido: senha alterada"

 Case 403.12

  Response.Write "ERRO HTTP 1.1 --- acesso proibido: negado acesso ao mapa"

 Case 404

  Response.Write "ERRO HTTP 1.1 --- não encontrado"

 Case 405

  Response.Write "ERRO HTTP 1.1 --- método não permitido"

 Case 406

  Response.Write "ERRO HTTP 1.1 --- não aceitável"

 Case 407

  Response.Write "ERRO HTTP 1.1 --- requer autenticação do Proxy"

 Case 412

  Response.Write "ERRO HTTP 1.1 --- falha em pré condições"

 Case 414

  Response.Write "ERRO HTTP 1.1 --- pedido - URI muito grande"

 Case 423

  Response.Write "Propriedade ou metodo não encontrado"

 Case 424

  Response.Write "Objeto Requerido"

 Case 429

  Response.Write "OLE Automation não pode ser criado no servidor"

 Case 430

  Response.Write "Classe não suportada pelo OLE Automation"

 Case 432

  Response.Write "Nome do arquivo ou de classe nõ encontrado durante a operação OLE Automation"

 Case 438

  Response.Write "Objeto não suporta esta propriedade ou método"

 Case 440

  Response.Write "Erro na OLE Automation"

 Case 442

  Response.Write "Connection to type library or object library for remote process has been lost. Press OK for dialog to remove reference"

 Case 443

  Response.Write "Objeto OLE Automation não contém um valor padrão"

 Case 445

  Response.Write "Objeto não suporta esta ação"

 Case 446

  Response.Write "Objeto não suporta o nome do argumento"

 Case 447

  Response.Write "Objeto não suporta a definição do local atual"

 Case 448

  Response.Write "Nome de argumentos não encontrados"

 Case 449

  Response.Write "Este argumento não é opcional"

 Case 450

  Response.Write "Número de argumentos errado ou definição de propriedade inválida"

 Case 451

  Response.Write "Objeto não é uma coleção"

 Case 452

  Response.Write "Número ordinal inválido"

 Case 453

  Response.Write "Função DLL especificada não foi encontrada"

 Case 454

  Response.Write "código de origem não encontrado"

 Case 455

  Response.Write "Erro de trava no código"

 Case 457

  Response.Write "Esta chave já está associada a um elemento desta coleção"

 Case 458

  Response.Write "Tipos de variáveis usadas na OLE Automation não são suportadas pelo Visual Basic"

 Case 462

  Response.Write "A máquina do servidor remoto não existe ou não está disponível"

 Case 481

  Response.Write "Figura Inválida"

 Case 500

  Response.Write "Variável não definida"

 Case 501

  Response.Write "Variável não pode ser atribuída"

 Case 502

  Response.Write "Objeto não é seguro para script"

 Case 503

  Response.Write "Objeto não é seguro para inicialização"

 Case 504

  Response.Write "Objeto não é seguro para criação"

 Case 505

  Response.Write "Referência inválida ou não qualificada"

 Case 506

  Response.Write "Classe não definida"

 Case 1001

  Response.Write "Sem memória"

 Case 1002

  Response.Write "Erro de Sintaxe"

 Case 1003

  Response.Write "Esperado ':'"

 Case 1004

  Response.Write "Esperado ';'"

 Case 1005

  Response.Write "Esperado '('"

 Case 1006

  Response.Write "Esperado ')'"

 Case 1007

  Response.Write "Esperado ']'"

 Case 1008

  Response.Write "Esperado '{'"

 Case 1009

  Response.Write "Esperado '}'"

 Case 1010

  Response.Write "Esperado Identificador"

 Case 1011

  Response.Write "Esperado '='"

 Case 1012

  Response.Write "Esperado 'If'"

 Case 1013

  Response.Write "Esperado 'To'"

 Case 1014

  Response.Write "Esperado 'End'"

 Case 1015

  Response.Write "Esperado 'Function'"

 Case 1016

  Response.Write "Esperado 'Sub'"

 Case 1017

  Response.Write "Esperado 'Then'"

 Case 1018

  Response.Write "Esperado 'Wend'"

 Case 1019

  Response.Write "Esperado 'Loop'"

 Case 1020

  Response.Write "Esperado 'Next'"

 Case 1021

  Response.Write "Esperado 'Case'"

 Case 1022

  Response.Write "Esperado 'Select'"

 Case 1023

  Response.Write "Esperado expressão"

 Case 1024

  Response.Write "Esperado declaração"

 Case 1025

  Response.Write "Esperado final da declaração"

 Case 1026

  Response.Write "Esperado inteiro constante"

 Case 1027

  Response.Write "Esperado 'While' , 'Until'"

 Case 1028

  Response.Write "Esperado 'While' , 'Until' ou final de declaração"

 Case 1029

  Response.Write "Esperado 'With'"

 Case 1030

  Response.Write "Identificador Muito Longo"

 Case 1031

  Response.Write "Número Inválido"

 Case 1032

  Response.Write "Caracter Inválido"

 Case 1033

  Response.Write "Constante de String não Terminada"

 Case 1034

  Response.Write "Comentário não Terminado"

 Case 1035

  Response.Write "Nested Comment"

 Case 1036

  Response.Write "'Me' não pode ser usado como saída de rotina"

 Case 1037

  Response.Write "Uso Inválido da Palavra Chave 'Me'"

 Case 1038

  Response.Write "'Loop' sem 'Do'"

 Case 1039

  Response.Write "Declaração 'Exit' Inválida"

 Case 1040

  Response.Write "Variável de Controle de Loop 'for' Inválida"

 Case 1041

  Response.Write "Variável Redefinida"

 Case 1042

  Response.Write "Tem que ser a primeira declaração da linha"

 Case 1043

  Response.Write "Não pode atribuir non-By Val para um argumento"

 Case 1044

  Response.Write "Não pode usar parêntesis para chamar uma sub"

 Case 1045

  Response.Write "Esperada Constante Literal"

 Case 1046

  Response.Write "Esperado 'In'"

 Case 1047

  Response.Write "Esperado 'Class'"

 Case 1048

  Response.Write "Tem que ser definido dentro de uma Classe"

 Case 1049

  Response.Write "Esperado Let ou Set ou Get na declaração de propriedade"

 Case 1050

  Response.Write "Esperado 'Property'"

 Case 1051

  Response.Write "Número de argumentos tem que ser consistente em especificações de propriedades"

 Case 1052

  Response.Write "Não pode haver método/ propriedade padrão múltiplo em uma Classe"

 Case 1053

  Response.Write "Class initialize ou terminate não tem argumentos"

 Case 1054

  Response.Write "Propriedade Set ou Let tem que ter pelo menos um argumento"

 Case 1055

  Response.Write "'Next' inesperado"

 Case 1056

  Response.Write "'Default' pode ser especificado somente em 'Property' ou 'Function' ou 'Sub'"

 Case 1057

  Response.Write "Especificação 'Default' precisa especificar também 'Public'"

 Case 1058

  Response.Write "Especificação 'Default' só pode estar em Property Get"



 Case 3000

  Response.Write "O provedor não concluiu a ação pedida"

 Case 3001

  Response.Write "A aplicação está usando argumentos do tipo errado, estão fora do âmbito aceitável ou em conflito com alguma outra aplicação"

 Case 3002

  Response.Write "Ocorreu um erro durante a abertura do arquivo pedido"

 Case 3003

  Response.Write "Erro na leitura do arquivo especificado"

 Case 3004

  Response.Write "Erro ao escrever no arquivo"

 Case 3021

  Response.Write "BOF ou EOF é True ou o registro atual foi deletado. A operação pedido pela aplicação requer um registro atual"

 Case 3219

  Response.Write "A operação pedida pela aplicação não é permitida neste contexto"

 Case 3246

  Response.Write "A aplicação não pode fechar explicitamente um objeto connection no meio de uma transação"

 Case 3251

  Response.Write "O provedor não oferece suporte a operação pedida pela aplicação"

 Case 3265

  Response.Write "ADO não pode achar o objeto na coleção"

 Case 3367

  Response.Write "Não é anexar, objeto já está na coleção"

 Case 3420

  Response.Write "O objeto referenciado pela aplicação não aponta mais para um objeto válido"

 Case 3421

  Response.Write "A aplicação está usando um valor do tipo errado para a aplicação atual"

 Case 3704

  Response.Write "A operação pedida pela aplicação não é permitida se o objeto estiver fechado"

 Case 3705

  Response.Write "A operação pedida pela aplicação não é permitida se o objeto estiver aberto"

 Case 3706

  Response.Write "ADO não pode achar o provedor especificado"

 Case 3707

  Response.Write "A aplicação não pode alterar a propriedade ActiveConnect de um objeto Recordset com um objeto Command como fonte"

 Case 3708

  Response.Write "A aplicação definiu de modo impróprio um objeto Parameter"

 Case 3709

  Response.Write "A aplicação pediu uma operação em um objeto com uma referência a um objeto Connection inválido ou fechado"

 Case 3710

  Response.Write "A operação não é reentrante"

 Case 3711

  Response.Write "A operação ainda está executando"

 Case 3712

  Response.Write "Operação cancelada"

 Case 3713

  Response.Write "A operação ainda está conectando"

 Case 3714

  Response.Write "A transação é inválida"

 Case 3715

  Response.Write "A operação não está sendo executada"

 Case 3716

  Response.Write "A operação não é segura sob estas circunstâncias"

 Case 3717

  Response.Write "A operação fez com que aparecesse uma caixa de diálogo"

 Case 3718

  Response.Write "A operação fez com que aparecesse um cabeçalho de caixa de diálogo"

 Case 3719

  Response.Write "A ação falhou devido a uma violação na integridade dos dados"

 Case 3720

  Response.Write "O provedor não pode ser modificado"

 Case 3721

  Response.Write "Dados longos demais para o tipo de dados apresentados"

 Case 3722

  Response.Write "Ação causou uma violação do esquema"

 Case 3723

  Response.Write "A expressão continha sinais não coincidentes"

 Case 3724

  Response.Write "O valor não pode ser convertido"

 Case 3725

  Response.Write "O recurso não pode ser criado"

 Case 3726

  Response.Write "A coluna especificada não existe nesta fileira"

 Case 3727

  Response.Write "O URL não existe"

 Case 3728

  Response.Write "Você não tem permissão para ver a árvore do diretório"

 Case 3729

  Response.Write "O URL apresentado é inválido"

 Case 3730

  Response.Write "Recurso travado"

 Case 3731

  Response.Write "Recurso já existente"

 Case 3732

  Response.Write "A ação não pode ser concluída"

 Case 3733

  Response.Write "O volume de arquivo não foi encontrado"

 Case 3734

  Response.Write "Falha na operação porque o servidor não pode obter espaço suficiente para completar a operação"

 Case 3735

  Response.Write "Recurso fora de âmbito"

 Case 3736

  Response.Write "Comando não está disponível"

 Case 3737

  Response.Write "O URL na fileira identificada não existe"

 Case 3738

  Response.Write "O recurso não pode ser deletado porque está fora do escopo permitido"

 Case 3739

  Response.Write "Esta propriedade é inválida para a coluna selecionada"

 Case 3740

  Response.Write "Você apresentou uma opção inválida para esta propriedade"

 Case 3741

  Response.Write "Você apresentou um valor inválido para esta propriedade"

 Case 3742

  Response.Write "A definição desta propriedade causou um conflito com outras propriedades"

 Case 3743

  Response.Write "Nem todas as propriedades podem ser definidas"

 Case 3744

  Response.Write "A propriedade não foi definida"

 Case 3745

  Response.Write "A propriedade não pode ser definida"

 Case 3746

  Response.Write "A propriedade não tem suporte"

 Case 3747

  Response.Write "A ação não pode ser concluída porque o catálogo não está definido"

 Case 3748

  Response.Write "A conexão não pode ser alterada"

 Case 3749

  Response.Write "O método Update da coleção Fields falhou"

 Case 3750

  Response.Write "Não é possível definir permissão Deny porque o provedor não oferece suporte para tanto"

 Case 3751

  Response.Write "o provedor não oferece suporte ao tipo de pedido Deny"

End Select

End Sub

%>

 

 

e para chamar a funcaun

 

 

<!--#include file = "banco_erro.asp"-->

<%

On Error Resume Next

a=1/0

IF Err > 0 Then Call checaerro

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites
roda esta funcaun para checar erros
Xan, (Tõ com preguiça)

 

O próprio IIS não fornece uma descrição do erro? Outra coisa, o próprio usuário já informou a mensagem de erro que o código que você passou para ele gerou.

Compartilhar este post


Link para o post
Compartilhar em outros sites

O erro esta acontecendo com todos os códigos de Upload ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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