Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Touche

erro estranho

Por , em ASP Clássico

Recommended Posts

Touche    0

Touche
Postado

Fiz um sistema de noticias bem simples so que SOMENTE ALGUMAS NOTICIAS quando insiro da esse erro louco ai em baixo:

 

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''No Sábado 8 de Janeiro de 2005, ocorrerá na orla de Salvador o Farol Folia, uma prévia do que vai rolar no Carnaval.<br> <br> Confira abaixo as atrações que farão a festa da galera a partir das 14:30hrs<br> <br> Traz a Massa co'. /sistema/noticias/ins.asp, line 48

 

Codigo do arquivo ins.asp

 

 

ASP [/tr][tr]

<%

Response.AddHeader "cache-control", "private"

Response.AddHeader "pragma", "no-cache"

Response.Buffer = True

 

If Session("notclogado") = True Then

%>

<html>

<head>

<title>Documento sem título</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<%

Dim ConnString

ConnString ="DRIVER={Microsoft Access Driver (*.mdb)};" & _

"DBQ=" & Server.MapPath("../../bd/noticias.mdb") & ";"

 

Dim titulo, chamada, noticia, data, fonte

 

titulo = request.form("titulo")

titulo = Server.HtmlEncode(titulo)

titulo = Replace(titulo,"'",""")

 

chamada = request.form("chamada")

chamada = Server.HtmlEncode(chamada)

chamada = Replace(chamada,"'",""")

 

noticia = request.form("noticia")

noticia = Server.HTMlEncode(noticia)

noticia = Replace(noticia,Chr(13),"<br>")

 

fonte = request.form("fonte")

fonte = Server.HtmlEncode(fonte)

fonte = Replace(fonte,"'",""")

 

data = request.form("Data")

Data = Server.HtmlEncode(data)

Data = Replace(data,"'",""")

 

Dim Sql, Rs, Conn

 

Set Conn=Server.CreateObject("adodb.connection")

Conn.Open ConnString

Sql = "Insert Into noticias(titulo, chamada, noticia, fonte, Data)values"&_

"('"& titulo &"','"& chamada &"','"& noticia &"','"& fonte &"','"& data &"')"

Set Rs=Conn.Execute(Sql)

 

Set Rs=Nothing

Set Conn=Nothing

 

Response.write("<br><BR><div align='center'><a href='opcao.asp'>Adcionado com sucesso clique aqui para voltar</a>")

%>

%>

</body>

</html>

<%

Else

Response.Write "<html><head><title>Permisão Negada</title></head>"

Response.Write "<body>Permisão Negada!!</body>"

End If

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

use sempre o Replace(variavel,"'","''") para substituir ' por duas ''falows

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito