Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Quando Adicionei Novo Campo


ibreak

Pergunta

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>

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 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"

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros 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.

Link para o comentário
Compartilhar em outros 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)
%>

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...