Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

erro Microsoft VBScript runtime error '800a01a8'

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Pq sempre em meu codigo da erro nesta linha?

Esta tudo certo os caminhos

 

 

 

Microsoft VBScript runtime  error '800a01a8'

Object required: 'UploadRequest.Item(...)'

/site/admin/destaque/verificar.asp, line 10

<!-- #include file = "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 ------------------
[b][color="#FF0000"]nome = UploadRequest.Item("nome").Item("Value")[/color][/b]
link = UploadRequest.Item("link").Item("Value")

data = (date)
hora = (time)

'-------------foto1--------------
' 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 = "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
'---Fim---


' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../../dados/dados.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 destaque (nome,foto,link,data,hora) values ('"& nome &"', '"& cfoto &"', '"& link &"', '"& data &"', '"& hora &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><h2><b>Dados cadastrados com sucesso!</b></h2></center></font>"

' Redireciona após 5 segundos
response.write "<meta http-equiv='refresh' content='3; url=form_exclui.asp'/>"
%>
<head>
<title></title>
</head>

<body background="../../imagens/fds_admin.png">
<p align="center">
<img src="../../imagens/logo-colina.png">
<p align="center"><img border="0" src="../../imagens/carregando.gif">

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se tentou fechar ou definir a nada um objeto que não foi definido.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Tem certeza que o item aparece duas vezes?

 

UploadRequest.Item("nome").Item("Value")

experimente apenas

 

UploadRequest.Item("nome")

veja se corrige

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola mario bom dia !

 

Cara eu sempre uso estes codigos e deram certo de uns dias p/ cá q esta assim com esses erros ....

Aonde será q esta o erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

certifique-se de estar sendo passado valores para UploadRequest

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