Jump to content


Photo

Problemas No Upload + Db


  • Faça o login para participar
8 replies to this topic

#1 LFPS

LFPS

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro
  • Interesses:ASP

Posted 23/04/2004, 06:51

Fala ai galera estou aqui tentando fazer um cadastro de produto simples com 2 imagens, o cadastro é feito normalmente, mas para facilitar o cadastro coloquei o upload das 2 imagens do produto no mesmo form.

ele faz o upload normalmente mas da erro no request.

pagina com cadastro e upload:

como faço para capturar estas variáveis do formulário?

<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' INICIO DE ENVIAR ARQUIVO
' By MACSYM
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Dim Contador, Tamanho
    Dim ConteudoBinario, ConteudoTexto
    Dim Delimitador, Posicao1, Posicao2, cont
    Dim ArquivoNome, ArquivoConteudo, PastaDestino
    Dim objFSO, objArquivo
  cont =0
    PastaDestino = "e:\home\tigraoderamos\web\v2\arquivos\"
           
    '***** Determina o Tamanho do Conteúdo *****
    Tamanho = Request.TotalBytes
    '***** Obtém o Conteúdo no Formato Binário *****
    ConteudoBinario = Request.BinaryRead(Tamanho)

    '***** Transforma o Conteúdo Binário em String *****
    For Contador = 1 To Tamanho
  ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
    Next
    '***** Determina o Delimitador de Campos *****
    Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vb script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center>

<%
  End If
%>
</body>
</html>



#2 yakko

yakko

    Turista

  • Usuários
  • 37 posts
  • Sexo:Não informado

Posted 23/04/2004, 11:58

velinhu,

a partir do momento que vc usa o ENCTYPE="multipart/form-data", vc nao consegue mais pegar um valor com request.form, o q vc tem q fazer eh pegar o valor usando a instancia do seu upload... exemplo:

objFSO("campo")

se nao me engano, se eu estiver incorreto me avisem....
[]´s

yakko

#3 LFPS

LFPS

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro
  • Interesses:ASP

Posted 23/04/2004, 20:52

continua dando erro, o que poderia fazer?

#4 victor

victor
  • Visitantes

Posted 23/04/2004, 21:02

continua dando erro, o que poderia fazer?

Qual o erro que está retornando na página?? :huh:

#5 LFPS

LFPS

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro
  • Interesses:ASP

Posted 23/04/2004, 22:36

O erro que da com o código me indicado acima foi :

Microsoft VBScript runtime error '800a000d'

Type mismatch

/v2/admin/prod_cad1.asp, line 90

#6 lgiesel

lgiesel

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Não informado

Posted 24/04/2004, 00:42

Microsoft VBScript runtime error '800a000d'

Type mismatch

/v2/admin/prod_cad1.asp, line 90

Acho que este erro é de conversão de tipos.

Pode ser que o tipo do dado do banco não seja o mesmo que você esteja tentando inserir, ou é um tipo incompatível com a função REPLACE.

Teste o conteúdo das variaveis que vc está tentando captar (UTIL_PROD) e (DESCRI_PROD) e veja se elas estão vindo corretamente para a página.

Se elas estiverem vindo vazias pode ser esse o problema.

[]'s lgiesel
lgiesel

#7 LFPS

LFPS

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro
  • Interesses:ASP

Posted 24/04/2004, 02:10

funcionam sim so ta dando erro pois acrescentei o upload entao o form foi alterado para enctype="multipart/form-data"

#8 yakko

yakko

    Turista

  • Usuários
  • 37 posts
  • Sexo:Não informado

Posted 24/04/2004, 07:06

poste a linha 90 para sabermos onde exatamente esta o erro.
[]´s

yakko

#9 lgiesel

lgiesel

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Não informado

Posted 24/04/2004, 18:14

A linha 90 deve ser uma dessas duas aí em baixo:

descr = replace(request.FORM("DESCRI_PROD") , chr(13), "<br>")
util = replace(request.FORM("UTIL_PROD") , chr(13), "<br>")

então, já que:

funcionam sim so ta dando erro pois acrescentei o upload entao o form foi alterado para enctype="multipart/form-data"


tente substituir o código por:

descr = replace(cstr(request.FORM("DESCRI_PROD")) , vbcrlf, "<br>")
util = replace(cstr(request.FORM("UTIL_PROD")) , vbcrlf, "<br>")

acho que isso irá forçar que as variáveis do form fiquem do tipo texto.

E troquei também o chr(13) por vbcrlf... já tiveram post neste fórum que diziam que o chr(13) não eliminava a quebra.

espero que isto ajude.
lgiesel




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq