Novo Problema De Eliane :-d

[Eli@ne]

o meu problema è entra no INSERT ou no UPDATE isso o=> '

exemplo:

un'alta casa

quando coloco isso ' no testo não entra no database

normalmente uso assim

Mit= Replace(Mit, "'", "'")

e funciona

mais se eu faço assim

Mit = Replace(Request.Form("Mit"), "'", "''")

Mit= Replace(Request.Form("Mit"), vbcrlf, "<br>")

o apostrofo ' não entra

como posso fazer para entra no database

mi vem escrito erro de sintase

o ' e o <br>

claro que o <br> tem que entra automaticamente ser o usuario coloca o codigo html <br> dentro do texto

quem poderia mi ajuda nisso??

obrigadinha

[jissa]

tenta colocar a barra invertida... ex.: "\'"

se quiser escrever dentro de uma sctring.. ex.:

Apresentara erro

onClick="alert('Marca D'agua');"

Funcionamento normal

onClick="alert('Marca D\'agua');"

então..

testa lá assim:

Mit = Replace(Request.Form("Mit"), "\'", "'\'")

[Eli@ne]

gissa

descupa eu errei na escrita

se eu coloco sozinho isso

Mit = Replace(Request.Form("Mit"), "'", "''")

e escrevo 'Marca D'agua

funciona bem entra no databaase

mas se eu coloco assim

Mit = Replace(Request.Form("Mit"), "'", "''")

Mit= Replace(Request.Form("Mit"), vbcrlf, "<br>")

con dois replace no Mit não funziona

não entra no database

vem escrito

erro de sintasse

[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query ''fdfdfd'hhhgh<br>kjkjkj', Mbr = '', permisso1 = false, galleria_foto = true, vede_cliente = true, strelle = 'nessuna strella', indirizzo = 'via carabelli n°102 cap 2000137', regiao = 'são Paulo', paese = 'Brasile', citta = 'buco negro', sito = 'http://www.ma'.

coloco aqui o codigo da pagina intera

<%

Option Explicit

%><!--#include file="../include/funzioni.asp"-->

  <!--#include file="../include/variabile.asp"-->

  <!--#include file="../include/inc_opendb.asp"--><%

dim sql, rs, categoria, titolo, id_cat, Mit, Mbr, QSID, sito, indirizzo, citta, regiao, paese, foto, strelle, fax, cel, tel, Errore, fotog, galleria_foto, permisso1, vede_cliente

id_cat = Request.Form("id_cat")

QSID = Request.Form("id")

if Request.Form("categoria") = "" then

Errore = Errore & strnoncategoria

Else

categoria = Replace(Request.Form("categoria"), "'", "''")

end if

titolo = Replace(Request.Form("titolo"), "'", "''")

indirizzo = Replace(Request.Form("indirizzo"), "'", "''")

citta = Replace(Request.Form("citta"), "'", "''")

regiao = Replace(Request.Form("regiao"), "'", "''")

if Request.Form("paese") = "" then

Errore = Errore & strnonpaese

Else

paese = Replace(Request.Form("paese"), "'", "''")

end if

Mit = Replace(Request.Form("Mit"), "'", "''")

Mit= Replace(Request.Form("Mit"), vbcrlf, "<br>")

Mbr = Replace(Request.Form("Mbr"), "'", "''")

Mbr= Replace(Request.Form("Mbr"), Chr(13), "<br>")

sito = Replace(Request.Form("sito"), "'", "''")

foto = Replace(Request.Form("foto"), "'", "''")

fotog = Replace(Request.Form("fotog"), "'", "''")

galleria_foto = Replace(Request.Form("galleria_foto"), "'", "''")

permisso1 = Replace(Request.Form("permisso1"), "'", "''")

vede_cliente = Replace(Request.Form("vede_cliente"), "'", "''")

strelle = Replace(Request.Form("strelle"), "'", "''")

cel = Replace(Request.Form("cel"), "'", "''")

fax = Replace(Request.Form("fax"), "'", "''")

tel = Replace(Request.Form("tel"), "'", "''")

If galleria_foto <> "true" Then galleria_foto = "false"

If permisso1 <> "true" Then permisso1 = "false"

If vede_cliente <> "true" Then vede_cliente = "false"

If Errore = "" Then

if QSID <> "" Then

SQL = "UPDATE form1 Set id_cat = " & id_cat & ", categoria = '" & categoria & "', titolo = '" & titolo & "', foto = '" & foto & "', fotog = '" & fotog & "', Mit = '" & Mit & "', Mbr = '" & Mbr & "', permisso1 = " & permisso1 & ", galleria_foto = " & galleria_foto & ", vede_cliente = " & vede_cliente & ", strelle = '" & strelle & "', indirizzo = '" & indirizzo & "', regiao = '" & regiao & "', paese = '" & paese & "', citta = '" & citta & "', sito = '" & sito & "', tel = '" & tel & "', fax = '" & fax & "', cel = '" & cel & "' WHERE id = " &  QSID

Else

SQL = "INSERT INTO form1 (id_cat, Categoria, titolo, foto, fotog, Mit, Mbr, galleria_foto, permisso1, strelle, indirizzo, citta, regiao, paese, sito, fax, cel, tel, vede_cliente) VALUES (" & id_cat & ", '" & categoria & "', '" & titolo & "', '" & foto & "', '" & fotog & "', '" & Mit & "', '" & Mbr & "', " & permisso1 & ", " & galleria_foto & ", '" & strelle & "', '" & indirizzo & "', '" & citta & "', '" & regiao & "', '" & paese & "', '" & sito & "', '" & fax & "', '" & tel & "', '" & cel & "', " & vede_cliente & ")"

End If

  'response.write SQL

'response.end

Set RS = objCon.Execute(SQL)

Set RS = Nothing

objCon.Close

Set objCon = Nothing

If Errore = "" And Err = 0 Then

    Response.Redirect "admin_utenti.asp"

   Else

    Errore = "Errore: <br>" & Err.Description

   End If

  Else

   Response.Redirect "errore.asp?" & Errore

  End If

%>

do jeito que você dice tambem da erro de sintassi

[jissa]

vou ver com calma o codigo..

ams acho que ele esta entendendo que a aspa simples esta fechando a primeira, por isto o erro...

[Eli@ne]

up :(

[Eli@ne]

Resovi o seu problema Eliane!!!!!!!!!!!!!!! :rolleyes:

eu fiz assim

cancelei este codigo da pagina que faz o updata

Mit = Replace(Request.Form("Mit"), vbcrlf, "<br>")

para entra no database

e coloquei

assim

<%=replace(Mit, vbcrlf, "<br>")%>

na pagina que chama a variavel

funziona legal :lol:

es a questao não pressisa colocar <br> para enserir no database