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>você será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"
%></span></font>