Não imprime na tela e não da erro

Cassius Andrade · Setembro 1, 2010

Olá Pessoal, é o seguinte.. o problema esta aqui...

<textarea id="idTextarea" name="idTextarea" style="display:none">
<%
if acao = "alterar" then 

    if rsAltera("conteudo") <> "" Then
          response.write rsAltera("conteudo")
                end if

end if
%>
</textarea>

Trata-se de um administrador para alterar conteúdo.. essa é a parte onde ele deveria buscar o que esta no bd e colocar ai para ser alterado... mas não aparece nada, nem erro... é um administrador para alteração... onde está assim era para exibir o que ta no banco de dados... mas não aparece nada, nem erro... se eu digitar qualquer coisa, ele atualiza no bd, apaga o que tiver lá e coloca o que foi digitado por último, mas não aparece nada para exibir para fazer alteração somente no texto a conexão ta certa pois é a mesma que faz o update.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<!--#include file="acesso_verifica.asp"-->
<!--#include file="conexao_conteudo.asp" -->
<!--#include file="funcoes_conteudo.asp" -->
<%
Dim acao, rsGravaNova, rsAltera
acao = request.QueryString("acao")


If acao = "incluir" then

    Set rsGravaNova = Server.CreateObject("ADODB.Recordset")
    Sql = "SELECT * from tbl_conteudo"
    rsGravaNova.Open Sql, ConexaoCtd, 1, 3
    rsGravaNova.MoveLast
    rsGravaNova.AddNew

    if ISNumeric( request.form("numero") ) Then rsGravaNova("numero") = request.form("numero") Else rsGravaNova("numero") = Null End If
    if ISDate( request.form("data") ) Then rsGravaNova("data") = request.form("data") Else rsGravaNova("data") = Null End If
    rsGravaNova("conteudo")  = request.form("txtContent")
    rsGravaNova("ativo")     = request.form("ativo")
    rsGravaNova.Update

    response.write "<script>alert('Registro inclu�do com sucesso!');</script>"
    
    rsGravaNova.Close
    Set rsGravaNova = Nothing

End if

If acao = "alterar" then

    Set rsAltera = Server.CreateObject("ADODB.Recordset")
    Sql = "SELECT * from tbl_conteudo WHERE codigo = " & request.QueryString("id")
    rsAltera.Open Sql, ConexaoCtd, 1, 3
End if

If acao = "grava_altera" then

    Set rsGravaNova = Server.CreateObject("ADODB.Recordset")
    Sql = "SELECT * from tbl_conteudo WHERE codigo = " & request.QueryString("id")
    rsGravaNova.Open Sql, ConexaoCtd, 1, 3

    if ISNumeric( request.form("numero") ) Then rsGravaNova("numero") = request.form("numero") Else rsGravaNova("numero") = Null End If
    if ISDate( request.form("data") ) Then rsGravaNova("data") = request.form("data") Else rsGravaNova("data") = Null End If
    rsGravaNova("conteudo")  = request.form("txtContent")
    rsGravaNova("ativo")     = request.form("ativo")
    rsGravaNova.Update
    
    rsGravaNova.Close
    Set rsGravaNova = Nothing

    response.write "<script>alert('Registro alterado com sucesso!');</script>"
    response.write "<script>self.location = 'inicial.asp';</script>"

End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Conselho Regional de Contabilidade de Minas Gerais</title>
<link href="includes/estilo.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="include/yusasp_ace.js"></script>
<script language="JavaScript" src="include/yusasp_color.js"></script>
<script>
function SubmitForm(){
    if(obj1.displayMode == "HTML"){
        alert("Por favor, desmarque a op��o de visualiza��o HTML")
        return false;
    }else{
        document.form1.txtContent.value = obj1.getContent()
        document.form1.submit()
    }
}
function LoadContent(){
    obj1.putContent(document.form1.idTextarea.value) 
}
</script>
</head>

<body onLoad="<%if acao = "alterar" then response.write("LoadContent();") end if%>">
<!--#include file="topo.asp" -->
<table width="100%" border="0" cellspacing="20" cellpadding="0">
  <tr>
    <td><p><strong>A Empresa  &raquo;
      <%if acao = "alterar" then%>
      Altera&ccedil;&atilde;o
      <%end if%>
    </strong></p>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="10" height="10"><img src="imagens/tabela_01.gif" width="10" height="10" /></td>
        <td background="imagens/tabela_fundo_01.gif"><img src="imagens/tabela_fundo_01.gif" width="1" height="10" /></td>
        <td width="10"><img src="imagens/tabela_02.gif" width="10" height="10" /></td>
      </tr>
      <tr>
        <td background="imagens/tabela_fundo_02.gif"><img src="imagens/tabela_fundo_02.gif" width="10" height="1" /></td>
        <td><table width="100%" border="0" cellpadding="0" cellspacing="10">
          <tr>
            <td valign="top"><form name="form1" method="post" action="">
                                  <p>
                                    <input type="hidden" name="txtContent"  value="" ID="txtContent">
                    </p>
                                  <table border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td width="60"><strong>N&uacute;mero:</strong></td>
                                      <td width="50"><span class="texto">
                                        <input name="numero" type="text" id="numero" style="width:100%" value="<%if acao = "alterar" then response.write rsAltera("numero") end if%>" size="10" maxlength="10" />                                      </td>
                                      <td width="20">&nbsp;</td>
                                      <td width="50"><strong>Data:</strong></td>
                                      <td width="40"><input name="data" type="text" id="data" value="<%if acao = "alterar" then response.write rsAltera("data") end if%>" size="7" maxlength="10" /></td>
                                    </tr>
                                  </table>
                                  <br />
                                  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                                    <tr>
                                      <td><strong>Conte&uacute;do:</strong></td>
                                    </tr>
                                    <tr>
                                      <td>
                                        <script>
var obj1 = new ACEditor("obj1")
obj1.width = "100%" //set editor dimension
obj1.height = 400
obj1.useAsset = true
obj1.useInternalLink = false
obj1.usePageProperties = false
obj1.StyleSelection = "mystyleselection.css"; //specify the css file
obj1.AssetPageURL = "default_Asset.asp";
obj1.AssetPageWidth = 480;
obj1.AssetPageHeight = 425;
obj1.ImagePageURL = "default_image.asp" //specify Image library management page
obj1.RUN() //run & show the editor
                                  </script></td>
                                    </tr>
                                    <tr>
                                      <td><div align="right">
                         
                                          <textarea id="idTextarea" name="idTextarea" style="display:none">
<%
if acao = "alterar" then 

    if rsAltera("conteudo") <> "" Then
        response.write rsAltera("conteudo")
        end if

end if
%>
                                  </textarea></div></td>
                                    </tr>
                                  </table>
                                  <br />
                                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td width="60"><strong>Ativo:</strong></td>
                                      <td><select name="ativo" id="ativo">
                                        <option value="N" <%if acao = "alterar" then response.write selected( UCase( rsAltera("ativo") ), "N" ) end if%> >N�o</option>
                                        <option value="S" <%if acao = "alterar" then response.write selected( UCase( rsAltera("ativo") ), "S" ) end if%> >Sim</option>
                                      </select></td>
                                    </tr>
                    </table>
                                  <p>
                                    <%if acao = "alterar" then%>  
                                    <input name="Button" type="button" class="botao_upload" value="Gravar Altera��es" onClick="document.form1.action='altera_empresa.asp?acao=grava_altera&id=<%=rsAltera("codigo")%>';SubmitForm();">
                                    <%else%>
                                    <input name="Submit" type="button" class="botao_upload" value="Incluir Dados" onClick="document.form1.action='altera_empresa.asp?acao=incluir';SubmitForm();">
                                    <%end if%>
                    </p>
            </form>
              </td>
            <td width="1" align="left" valign="top" background="imagens/ponto.gif"><img src="imagens/ponto.gif" width="1" height="1" /></td>
            <td width="150" align="left" valign="top"><p><font color="#7A462E"><img src="imagens/unknown.gif" width="20" height="20" align="absmiddle" /><span class="style3"><font color="#3366CC"> Dicas</font></span></font></p>
              <p>Preencha os campos corretamente e clique no bot&atilde;o no fim do formul&aacute;rio.</p>
              <p>O campo <strong>data</strong>  deve ser preenchido apenas com uma data v&aacute;lida,  para ser gravado.</p>
              </td>
          </tr>
        </table>
          </td>
        <td background="imagens/tabela_fundo_03.gif"><img src="imagens/tabela_fundo_03.gif" width="10" height="1" /></td>
      </tr>
      <tr>
        <td width="10" height="10"><img src="imagens/tabela_03.gif" width="10" height="10" /></td>
        <td background="imagens/tabela_fundo_04.gif"><img src="imagens/tabela_fundo_04.gif" width="1" height="10" /></td>
        <td width="10"><img src="imagens/tabela_04.gif" width="10" height="10" /></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>

Darkdemo · Setembro 1, 2010

Se o seu banco for MySQL... ele não mostra porque você esta usando a referencia do campo duas vezes...

Jogue o valor do campo em uma variavel, e faça as operações com a varioavel, ao invés do campo do BD..

Att;

Entrar

Não imprime na tela e não da erro

Pergunta

Cassius Andrade

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Darkdemo

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades