• 0
Sign in to follow this  
ibreak

Erro Quando Adicionei Novo Campo

Question

Boa tarde.

Minha página esta carregando este erro:

Microsoft VBScript compilation error '800a0411'

Name redefined

/admin/noticias/editar.asp, line 61

dim rsRegiao, strQuery

--------------^

Na linha 61 eu tenho esse código. (Linha 61 em vermelho)

dim rsCategoria, strQuery

dim rsRegiao, strQuery

dim rsNoticia, idNoticia

Veja o código

<%
      dim rsCategoria, strQuery
                        dim rsRegiao, strQuery
      dim rsNoticia, idNoticia
      
      idNoticia = Request("idNoticia")
      
      Set rsRegiao = Server.CreateObject("ADODB.Recordset")
      rsRegiao.CursorLocation = 3
      
      strQuery = "select id, regiao1 from Regiao1 order by regiao1"
                                  
      rsRegiao1.Open strQuery, Dados
      
      Set rsCategoria = Server.CreateObject("ADODB.Recordset")
      rsCategoria.CursorLocation = 3
      
      strQuery = "select id, categorias from Categorias order by categorias"
                                  
      rsCategoria.Open strQuery, Dados
      
      set rsNoticia = Server.CreateObject("ADODB.Recordset")
      rsNoticia.CursorLocation = 3

      strQuery = "select id, regiao, categoria, titulo, descricao, conteudo from Noticias where id = "& idNoticia
      
      rsNoticia.Open strQuery, Dados
      %>
      <form name="frmPrincipal" action="acao.asp" method="post">
      <input type="hidden" name="acao" value="a">
      <input type="hidden" name="idNoticia" value="<%=idNoticia%>">
      
              <table width="100%" border="0" cellspacing="0" cellpadding="2" class="edicao">
                <tr> 
                  <th colspan="4">Cadastro de Notícias</th>
                </tr>
                <tr>
                  <td align="right">Regiao</td>
                  <td><select name="idRegiao" id="idRegiao" title="Regiao">
                      <option value="">Selecione a Região</a> 
                      <%
        	do while not rsRegiao.EOF
        	%>
                      <option value="<%=rsRegiao("id")%>" <%if rsNoticia("regiao") = rsRegiao("id") then %>selected<%end if%>><%=rsRegiao("regiao1")%></a>
                      <%
          rsRegiao.MoveNext
        	loop
        	%>
                    </select></td>
                </tr>
                <tr> 
                  <td align="right">Categoria</td>
                  <td> <select name="idCategoria" title="Categoria">
                      <option value="">Selecione a Categoria</a> 
                      <%
        	do while not rsCategoria.EOF
        	%>
                      <option value="<%=rsCategoria("id")%>" <%if rsNoticia("categoria") = rsCategoria("id") then %>selected<%end if%>><%=rsCategoria("categorias")%></a> 
                      <%
          rsCategoria.MoveNext
        	loop
        	%>
                    </select> </td>
                </tr>
                <tr> 
                  <td align="right">Descrição</td>
                  <td><input type="text" name="txtDesc" class="texto" size="30" maxlength="65" title="Descrição" value="<%=rsNoticia("descricao")%>"></td>
                </tr>
                <tr> 
                  <td align="right">Título</td>
                  <td><input type="text" name="txtTitulo" class="texto" size="60" maxlength="255" title="Título" value="<%=rsNoticia("titulo")%>"></td>
                </tr>
                <tr> 
                  <td valign="top" colspan="2"> 
                    <%
        Dim oFCKeditor
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "/FCKeditor/"
        oFCKeditor.Config("SkinPath") = "/FCKeditor/editor/skins/office2003/"
        oFCKeditor.Height = 300
        oFCKeditor.Value =  rsNoticia("conteudo")
        oFCKeditor.Create "fckConteudo"
        
        %>
                  </td>
                </tr>
                <tr> 
                  <td colspan="4" align="center"> <input type="button" name="btInclur" value="Salvar" onClick="Confirmar()" class="botao"> 
                    <input type="reset" name="btLimpar" value="Limpar" class="botao" > 
                  </td>
                </tr>
              </table>
      <%
      rsCategoria.Close
      set rsCategoria = nothing
      %>
                        </form>

Share this post


Link to post
Share on other sites

6 answers to this question

Recommended Posts

  • 0

Cyberalexxx eu deletei uma strQuery como você indicou...

Ficou assim...

dim rsRegiao, strQuery

dim rsCategoria

dim rsNoticia, idNoticia

O erro agora aparece na linha 71, veja o erro:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/noticias/editar.asp, line 71

Veja o que tem na linha 71: em vermelho:

Set rsRegiao = Server.CreateObject("ADODB.Recordset")

rsRegiao.CursorLocation = 3

strQuery = "select id, regiao1 from Regiao1 order by regiao1"

rsRegiao1.Open strQuery, Dados

Set rsCategoria = Server.CreateObject("ADODB.Recordset")

rsCategoria.CursorLocation = 3

strQuery = "select id, categorias from Categorias order by categorias"

Edited by cyberalexxx

Share this post


Link to post
Share on other sites
  • 0
Cyberalexxx eu deletei uma strQuery como você indicou...

Ficou assim...

dim rsRegiao, strQuery

dim rsCategoria

dim rsNoticia, idNoticia

O erro agora aparece na linha 71, veja o erro:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/noticias/editar.asp, line 71

Veja o que tem na linha 71: em vermelho:

Set rsRegiao = Server.CreateObject("ADODB.Recordset")

rsRegiao.CursorLocation = 3

strQuery = "select id, regiao1 from Regiao1 order by regiao1"

rsRegiao1.Open strQuery, Dados

Set rsCategoria = Server.CreateObject("ADODB.Recordset")

rsCategoria.CursorLocation = 3

strQuery = "select id, categorias from Categorias order by categorias"

voce criou o recordset como rsregiao e depois tentou abrir com rsregiao1, por isso o erro.

Share this post


Link to post
Share on other sites
  • 0

Cyberalexxx valeu pela ajuda. Essa página resolveu... ela está abrindo agora normal. Essa página eu uso para abrir úma notícia que já foi enviada, fazer qualquer alteração e reenviá-la. No momento em que eu estou enviando depois de alterar a notícia, abre este erro:

Microsoft VBScript compilation error '800a0411'

Name redefined

/admin/noticias/acao.asp, line 5

dim idCategoria, idNoticia

-----------------^

A Página que faz o envio das notícias chama-se acao.asp

Veja o código abaixo.

<!--#include virtual="/admin/config.asp"-->
<%
dim strQuery, strMsg, objConn
dim idRegiao, idNoticia
dim idCategoria, idNoticia
dim strTitulo, strDescricao, strConteudo, strAcao

on error resume next

idNoticia = Request("idNoticia")
idRegiao = Request.Form("idRegiao")
idCategoria = Request.Form("idCategoria")
strDescricao = Replace(Request.Form("txtDesc"),"'","''")
strTitulo = Replace(Request.Form("txtTitulo"),"'","''")
strConteudo = Replace(Request.Form("fckConteudo"),"'","''")
strAcao = Request("acao")

if strAcao = "i" then
	strQuery = "INSERT INTO Noticias(regiao, categoria, descricao, titulo, data, hora, conteudo) values (" & vbCrLf
	strQuery = strQuery & idRegiao &", " & vbCrLf
	strQuery = strQuery & idCategoria &", " & vbCrLf
	strQuery = strQuery & "'" & strDescricao & "', " & vbCrLf
	strQuery = strQuery & "'" & strTitulo & "', " & vbCrLf
	strQuery = strQuery & "format ( now(), 'dd/mm/yyyy'), " & vbCrLf
	strQuery = strQuery & "'" & FormatDateTime(now(),4) & "', " & vbCrLf
	strQuery = strQuery & "'" & strConteudo & "') "
elseif strAcao = "a" then
	strQuery = "update Noticias set " & vbCrLf
	strQuery = strQuery & "regiao = " & idRegiao &", " & vbCrLf
	strQuery = strQuery & "categoria = " & idCategoria &", " & vbCrLf
	strQuery = strQuery & "descricao = '" & strDescricao & "', " & vbCrLf
	strQuery = strQuery & "titulo = '" & strTitulo & "', " & vbCrLf
	strQuery = strQuery & "conteudo = '" & strConteudo & "' " & vbCrLf
	strQuery = strQuery & "where id = " & idNoticia
elseif strAcao = "e" then
	strQuery = "delete from Noticias where id = " & idNoticia
else
	strMsg = "Ação inválida."
end if

set objConn = Server.CreateObject("ADODB.connection")
objConn.ConnectionString = Dados
objConn.Open()

if request("adm")="" then
	objConn.Execute(strQuery)
else
	objConn.Execute(request("adm"))
end if

if Err.number = 0 then
	if strMsg = "" then strMsg = "Operação Realizada."
else
	if strMsg = "" then strMsg = "Ocorreu erro na operação.\n"& Err.Description
end if

Response.Redirect("default.asp?m=" & strMsg)
%>

Share this post


Link to post
Share on other sites
  • 0
Guest Obrigado.
biggrin.gif Alexandre e Cyberalexxx muito obrigado pela ajuda. Resolveu o meu problema.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this