Cadastro de Notícias utilizando função que aceita aspas simples

Conteúdo

Ola pessoal, antes de começar queria pedir desculpas pela demora em enviar novos tutoriais, pois mudei de cidade, e estou me estabilizando agora. Bom, recebi algumas duvidas no e-mail sobre pessoas que estão comecando a programar em ASP, e nao estão conseguindo inserir dados no BANCO ACCESS quando ocorre palavras que contenha o caracteres especiais como por exemplo ( ‘ ) aspas simples.

Criaremos um sistema simples de cadastro de noticia, onde usaremos uma função para aceitar tal caracter.

Primeiro, vamos criar uma Tabela chamada Noticia no access:

Tabela: Noticia

IdNoticia (Numeração Automática)
Data (DataTime)
Titulo (Texto)
Descricao (Memorando)

Vamos criar um CadNoticia.asp que conterá o formulario com base nos campos do Banco de dados.

<form name=”form1″ method=”post” action=”EnviaNoticia.asp”>
<table width=”100%” border=”0″ cellspacing=”0″ cellpadding=”0″>
<tr>
<td width=”15%”><div align=”right”>Data da Noticia:</div></td>
<td width=”85%”><input name=”Titulo2″ type=”text” class=”web” id=”Titulo2″ size=”27″ /></td>
</tr>
<tr>
<td><div align=”right”>Titulo da Noticia:</div></td>
<td><input name=”Titulo” type=”text” class=”web” id=”Titulo” size=”27″ /></td>
</tr>
<tr>
<td valign=”top”><div align=”right”><span class=”style24″>Descrição da Noticia:</span></div></td>
<td><textarea name=”Descricao” rows=”8″ class=”web” id=”Descricao”></textarea></td>
</tr>
<tr>
<td valign=”top”> </td>
<td><input name=”Submit” type=”submit” class=”web” value=”Enviar” /></td>
</tr>
</table>
</form>

Agora vamos criar o Envia.asp, onde recebera a seguinte função que aceitará caracter do tipo ( ‘ ):

<!–#include file=’conn.asp’–>

<%

‘Funçao TrocaAspas que permite a insersão de carater especial tipo ( ‘ )

Function TrocaAspas(expressao)
TrocaAspas = Replace(expressao,”‘”,”””)
End function

Data = Request.Form(“Data”)
Titulo = Request.Form(“Titulo”)
Descricao = Request.Form(“Descricao”)

sqltxt = ” insert into Noticia (Data, Titulo, Descricao) values”
sqltxt = sqltxt & “(‘” & TrocaAspas(Data) & “‘, ‘” & TrocaAspas(Titulo) & “‘, ‘” & TrocaAspas(Descricao) & “‘)”
conn.execute = sqltxt

‘Fecha Conexao
conn.Close
Set conn = Nothing

response.redirect(“Sua noticia foi cadastrada com sucesso!”)
%>

Bom, espero que esse tutorial ajude quem estava tendo esse problema.
Muito obrigado a todos, e em especial ao Mxstudio pela força.

Autor: Gustavo Bittencourt- Colunista Dreamweaver do Portal MXSTUDIO

Qualquer dúvida acesse o nosso fórum.