Salvar dados...

[fdirk]

Boa tarde!

Tenho uma página chamada 'principal.asp' onde o usuário preenche uma caixa de texto "descrição". Nessa mesma página, acima da caixa de texto, aparece o q foi escrito.

Essa descrição pode ser alterada.

Gostaria de saber como ficaria o código da página 'principal.asp' para q isso ocorra. E como ficaria o código do botão "inserir"? (será ele que irá inserir o q foi escrito na caixa de texto).

Pode ser um modelo básico, só para eu ter uma noção de como ficaria.

Obrigada!

[Rafael Spilki]

Use a busca do fórum ou procure por códigos prontos aqui no site da SB ou da NET mesmo...

[]'s Rafael Spilki

[jow]

o que você tem pronto ?? Posta ai o q você tem

[fdirk]

Por enquanto estou usando 2 páginas:

Cadastrar a descrição:

<!-- #include file="dados/dados.asp" -->
<div id="container">

<%
'lê o arquivo todo e acha o registro com id recebido como querystring
dim i_achou
i_achou=0
if request.querystring("id").count <> 0 then
    aux_limpa_espacos = limpa_espacos("select id,data,nome,descricao from programas;")
    readsql (aux_limpa_espacos)
    lixo = le_arquivo (tabela & ".txt", "    ")

    for i=1 to dados_size
             if dados(i,1) = request.querystring("id") then
                    i_achou = i
             end if
     next
end if
%>
<!-- inicio do conteudo do site -->

<p align="center">&nbsp;
<div align="center">

<h3 class="tit3" align="center">O que é o programa?</h3>

<form action="<% session("sinal")=true
        'serve para fazer insert ou update, dependendo de como o form for chamado
        if request.querystring("id").count = 0 then
            response.write("insere_programa_executa.asp")
        else
            response.write("insere_programa_executa.asp?id=" & request.querystring("id"))
        end if
%>" method="post">

  <table border="0" cellpadding="0" cellspacing="0" width="90%">
  <tr>
      <td width="100" valign="top"><h3>Postado por:</h3></td><td valign="botton"><input type="text" name="titulo" size="30" value="<% if request.querystring("id").count <> 0 then
                                                                 response.write(Limpacampo(dados(i_achou,4)))
                                                                 end if %>" class="input"></td>
  </tr>
  <tr>
      <td width="100" valign="top"><h3>Data:</td><td valign="botton"><input type="text" name="data" size="10" value="<% if request.querystring("id").count <> 0 then
                                                                 response.write(Limpacampo(dados(i_achou,2)))
                                                                 end if %>" class="input"></h3>
      </td>
  </tr>
  <tr>
      <td width="100" valign="top"><h3>Descri&ccedil&atildeo:</td><td valign="botton"> <textarea name="descricao" COLS="70" ROWS="8" class="input"><% if request.querystring("id").count <> 0 then
                                                                 response.write(Limpacampo(dados(i_achou,3)))
                                                                 end if %></textarea>
          </h3>
    </td>
   </tr>
<tr>
     <td>
    <input type="submit" value="Inserir" class="btsubmit" onclick="form.submit()">
    </td>
</tr>

</table>
</form>

<!-- ************ FIM do Conteudo do site ************ -->
</div>
<%
Function Limpacampo(campo)
    campolimpo = Replace(campo, "<br>",chr(13) & chr(10))
    Limpacampo = campolimpo
End Function
%>
<!-- ************ FIM do Conteudo do site ************ -->
</div>
</div>
</body>
</html>

E essa para mostrar:

<!-- #include file="dados/dados.asp" -->
    <h4 class="tit4">Microcrédito</h4>
<table width="100%" border="0" class="tbl">
<%'seleciona os projetos 
    aux_limpa_espacos = limpa_espacos("select id,data,nome,descricao from programas;")
readsql (aux_limpa_espacos)
lixo = le_arquivo (tabela & ".txt", "    ")
dim aux_fim
aux_fim = ""
session("sinal")=true
For i=1 to dados_size 
    Response.write("<h4 class='tit3'><div align='right'>" & dados(i,2) & "</h4></div>")
    Response.write("<h4 class='tit3'><div align='center'>" & dados(i,3) & "</h4></div>")
    Response.write("<p class='alertnoimg' align='center'>" & dados(i,4) & "</p>")
Next
%>
</table>
<br>
<table>
<tr><td valign="botton">
<a href="frm_insere_microcredito.asp"><img src="insere.jpg"></a>
</td>
</tr>
</table>
<!-- ************ FIM do Conteudo do site ************ -->
</div>
</div>
</body>
</html>

Mas elas estão baseados em uma tabela txt. na qual pode colocar mais de uma decrição, gostaria de bloquear para somente um descrição e caso a pessoa altere substitua a atual.

Editado Dezembro 29, 2008 por fdirk