Erro: Microsoft VBScript runtime error '800a01a8' Object requ

W. Sales · Dezembro 16, 2015

Erro apresentado na locaweb:

Microsoft VBScript runtime error '800a01a8'

Object required: '[undefined]'

/noticias/addnotfoto1.asp, line 151

Codigo do erro:

<% @ codepage="1252" language="VBScript" %>

<!-- #include file="upload.inc" -->





	<title>:: Web 3 ::</title>
</head>

<STYLE type=text/css>
BODY 
{ 
	font-family: verdana;
	font-size: 12px;
	color: #000000;
	scrollbar-face-color: #DEE3E7;
	scrollbar-highlight-color: #FFFFFF;
	scrollbar-shadow-color: #DEE3E7;
	scrollbar-3dlight-color: #D1D7DC;
	scrollbar-arrow-color: #006699;
	scrollbar-track-color: #EFEFEF;
	scrollbar-darkshadow-color: #98AAB1;
}

BODY {
	BACKGROUND-REPEAT: repeat-y
}
TD {
	FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
P {
	FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
LI {
	FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}

A {
	text-decoration: none;
	color: #000000;
}

A:Hover {
	text-decoration: none;
	color: #000000;
}

IMG {
	border-color: #4D4B4D;
}

A:Visited {
	text-decoration: none;
	color: #4D4B4D;
}

A:Active {
	text-decoration: none;
	color: #4D4B4D;
}
}

INPUT {
	BACKGROUND-COLOR: 1C1E4C; BORDER-BOTTOM-COLOR: #1C1E4C; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #1C1E4C; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #1C1E4C; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #1C1E4C; BORDER-TOP-WIDTH: 1px; COLOR: #37ADDE; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px
}
</STYLE>
<script language="JavaScript" type="text/JavaScript">
function ValidaCadastro(form)
{
       
     if (form.frm_login.value == "")
     {
       alert("Login não Informado!");
       return false;
     }
     else if (form.frm_senha.value == "")
     {
       alert("Senha não informada!");
       return false;
     }
}
</script>
<style type="text/css">
<!--
.link2:link {
	font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #FFFFFF;
	text-decoration: none;
}
.link2:visited {
	font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #FFFFFF;
	text-decoration: none;
}
.link2:hover {
	font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #FFFFFF;
	text-decoration: underline;
}
-->
</style>
<body leftmargin="0" topmargin="0" bgcolor="#F6F6F6">
<center>
<table cellpadding="0" cellspacing="0">
<tr>
	<td background="img2/top.gif" width="778" height="134" valign="top">
<br>
<br>
<br>
<br>


<br>
<br>
<br>
<br>




	<table cellpadding="0" cellspacing="0">
<tr>
	<td width="20"> </td>
	<td><table cellpadding="0" cellspacing="0">
<tr>
	<td><a href="addnotfoto-w.asp">Adicionar Notícias</a> - <a href="alteralista.asp">Alterar Conteudo</a> - <a href="apagalista.asp">Deletar Noticias</a></td>
</tr>
</table></td>
</tr>
</table>

</td>
</tr>
</table>
<br><br>

<p align="center"><font face="verdana, arial, tahoma"><span style="font-size:10pt;"><b><%
' 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 ----------------------
Topico = UploadRequest.Item("Topico").Item("Value")
Resumo = UploadRequest.Item("Resumo").Item("Value")
Classe = UploadRequest.Item("Classe").Item("Value")
Classe1 = UploadRequest.Item("Classe1").Item("Value")
Autor = UploadRequest.Item("Autor").Item("Value")
Noticia = UploadRequest.Item("Noticia").Item("Value")

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

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

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

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

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

' pasta + nome dos arquivos
cfoto = "fotos" + nome_foto
cfoto1 = "fotos" + nome_foto1

' 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

if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(foto1)
MyFile.Write chr(AscB(MidB(foto1,i,1)))
Next
MyFile.Close
end if


Noticia  = Replace(Noticia,"'","´")
Noticia  = Replace(Noticia,"á","á")
Noticia  = Replace(Noticia ,"Á","Á")
Noticia  = Replace(Noticia ,"ã","ã")
Noticia  = Replace(Noticia ,"Ã","Ã")
Noticia  = Replace(Noticia ,"â","â")
Noticia  = Replace(Noticia ,"Â","à")
Noticia  = Replace(Noticia ,"À","À")
Noticia  = Replace(Noticia ,"é","é")
Noticia  = Replace(Noticia ,"É","É")
Noticia  = Replace(Noticia ,"ê","ê")
Noticia  = Replace(Noticia ,"Ê","Ê")
Noticia  = Replace(Noticia ,"í","í")
Noticia  = Replace(Noticia ,"Í","Í")
Noticia  = Replace(Noticia ,"ó","ó")
Noticia  = Replace(Noticia ,"Ó","Ó")
Noticia  = Replace(Noticia ,"õ","õ")
Noticia  = Replace(Noticia ,"Õ","Õ")
Noticia  = Replace(Noticia ,"ô","ô")
Noticia  = Replace(Noticia ,"Ô","Ô")
Noticia  = Replace(Noticia ,"ú","ú")
Noticia  = Replace(Noticia ,"Ú","Ú")
Noticia  = Replace(Noticia ,"ü","ü")
Noticia  = Replace(Noticia ,"Ü","Ü")
Noticia  = Replace(Noticia ,"Ç","Ç")
Noticia  = Replace(Noticia ,"ç","ç")


' 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 Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!"

' Redireciona após 5 segundos
response.write "<br><br>Vc será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"
%></span></font>

W. Sales · Dezembro 17, 2015

A linha 151 é essa:

Topico = UploadRequest.Item("Topico").Item("Value")

Alguem sabe??

annagp · Dezembro 18, 2015

estou com o mesmo erro, vc conseguiu solucionar?

W. Sales · Dezembro 18, 2015

Ainda não!

xanburzum · Dezembro 21, 2015

Verifique se está vindo algo no Request

dá um response.write nele para ver o que está sendo passado e se os dados dentro da sql são compatíveis

Entrar

Arquivado

Erro: Microsoft VBScript runtime error '800a01a8' Object requ

Recommended Posts

W. Sales 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

W. Sales 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

annagp 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

W. Sales 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Sistema não funciona corretamente

Fazer busca no Banco de dados usando vários critério

Ler campos com caracteres especiais no xml

Conteúdo Similar

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante