Pessoal estou com problema num form de upload. É o seguinte estou tentando fazer uma alteração num cadastro com foto, quando eu seleciono uma nova foto pra fazer a alteração o upload dá erro. aqui está meu codigo:
<!-- #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
' Recuperando os Dados Digitados ----------------------
Dim nome
Dim telefone
dim endereco
dim contato
Dim email
Dim login
dim senha
Dim ID
dim sql
id = UploadRequest.Item("id").Item("Value") // // linha que está dando o erro
nome = UploadRequest.Item("nome").Item("Value")
endereco = UploadRequest.Item("endereco").Item("Value")
telefone = UploadRequest.Item("telefone").Item("Value")
contato = UploadRequest.Item("contato").Item("Value")
email = UploadRequest.Item("email").Item("Value")
login = UploadRequest.Item("login").Item("Value")
senha = UploadRequest.Item("senha").Item("Value")
' 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/fotos_logomarca/")
nome_foto = "/"&nome_foto
' pasta + nome dos arquivos
cfoto = "fotos_logomarca" + 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("db/desing.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
' cadastra os dados no banco de dados
ComandoSQL="UPDATE tblclientes SET nome = '" & nome & "',endereco = '" & endereco & "', telefone = '" & telefone & "', contato = '" & contato & "', email = '" & email & "', login = '" & login & "', senha = '" & senha & "', logomarca = '" & cfoto & "' WHERE ID ="&ID
Conexao.Execute(ComandoSQL)
' Mostra Mensagem de Confirmação na Tela
Response.write "<font face=""Verdana"" size=""2""><b>Dados Cadastrados com Sucesso!!</b><br></font>"
' Redireciona após 3 segundos
response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 3 segundos..<br></font>"
response.write "<meta http-equiv='refresh' content='3; url=clientes_full.asp'/>"
%>
Pergunta
claytonprog
Pessoal estou com problema num form de upload. É o seguinte estou tentando fazer uma alteração num cadastro com foto, quando eu seleciono uma nova foto pra fazer a alteração o upload dá erro. aqui está meu codigo:
<!-- #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 ' Recuperando os Dados Digitados ---------------------- Dim nome Dim telefone dim endereco dim contato Dim email Dim login dim senha Dim ID dim sql id = UploadRequest.Item("id").Item("Value") // // linha que está dando o erro nome = UploadRequest.Item("nome").Item("Value") endereco = UploadRequest.Item("endereco").Item("Value") telefone = UploadRequest.Item("telefone").Item("Value") contato = UploadRequest.Item("contato").Item("Value") email = UploadRequest.Item("email").Item("Value") login = UploadRequest.Item("login").Item("Value") senha = UploadRequest.Item("senha").Item("Value") ' 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/fotos_logomarca/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "fotos_logomarca" + 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("db/desing.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados ComandoSQL="UPDATE tblclientes SET nome = '" & nome & "',endereco = '" & endereco & "', telefone = '" & telefone & "', contato = '" & contato & "', email = '" & email & "', login = '" & login & "', senha = '" & senha & "', logomarca = '" & cfoto & "' WHERE ID ="&ID Conexao.Execute(ComandoSQL) ' Mostra Mensagem de Confirmação na Tela Response.write "<font face=""Verdana"" size=""2""><b>Dados Cadastrados com Sucesso!!</b><br></font>" ' Redireciona após 3 segundos response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 3 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='3; url=clientes_full.asp'/>" %>aqui está o erro :
Microsoft VBScript runtime error '800a01a8'
Object required: 'UploadRequest.Item(...)'
/painel/Upload_form_Editar_cliente.asp, line 25
Link para o comentário
Compartilhar em outros sites
3 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.