Aos ASPMasters ...

[CafeNeon 0]

Galera .. to aki pela milhonésima vez ,.. agora pra pedir um simples e singelo help ....

 

este código foi gerado por um programinha (DataForm) .. decisão do chefe ñ se discute .. rsrs ... e to com dificuldade de entendê-lo. Preciso encaixar um Replace aí .. pq quando envia o texto pro banco manda todo zuado ... e o patrão não quer ...

 

já tentei substituir o "Trim" por "Replace" neste código, mas dá erro ... Alguém saberia dizer onde encaixo este maldito comando ????

 

Grato.

================================================

<%

If Not IsEmpty(Request.Form) Then

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open strCon

 

campo_duplicado = false

campo_msg = ""

 

If campo_duplicado = false Then

Set objRS= Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 3

objRS.CursorType = 0

objRS.LockType = 3

strQ = "SELECT * FROM empresa Where 1 <> 1"

objRS.Open strQ, objCon, , , &H0001

objRS.Addnew()

If objRS.Fields("IDE").properties("IsAutoIncrement") = False Then

objRS("IDE") = Trim(Request.Form("IDE"))

End If

If objRS.Fields("texto").properties("IsAutoIncrement") = False Then

objRS("texto") = Trim(Request.Form("texto"))

End If

objRS.Update

objRS.Close

Set objRS = Nothing

%>

[sr.silva 1]

Primeiro Momento

Título do Tópico Editado

 

Segundo, onde queres colocar o "replace"??

[jrcardozo 4]

terceiro hehehe, que formatação você precisa?

[sr.silva 1]

terceiro hehehe, que formatação você precisa?

???? nao entendi...

[CafeNeon 0]

Primeiro Momento

Título do Tópico Editado

 

Segundo, onde queres colocar o "replace"??

Cara ... ñ entendi suas 2 primeiras frases ....

 

qto aonde quero colocar... eu citei no texto ... q como o código foi gerado por um software ... então to com dificuldade de criar um replace pra enviar o texto pro banco de dados ....

 

Se prestar atenção no código, tem um objeto 'objRS ("texto")' que deve estar fazendo esta função de requisitar o texto e enviar ...

 

Entendeu?

 

desculpe Jonathan .. preciso fazer +/- isso

 

replace (Request.Form("texto"), Chr(13), "<br>")

 

Valew!

[Mário Monteiro 179]

o qeu voce chama de zuado??

[sr.silva 1]

Cara na boa, não entendi muito bem os seus requisitos...pode ser mais preciso!!!

[ultra 0]

objRS("IDE") = Trim(Request.Form("IDE"))objRS("texto") = Trim(Request.Form("texto"))mude para:objRS("IDE") = Trim(Replace(Request.Form("IDE"), chr(13),"<br>"))objRS("texto") = Trim(Replace(Request.Form("texto"), chr(13), "<br>")

[CafeNeon 0]

Cara na boa, não entendi muito bem os seus requisitos...

pode ser mais preciso!!!

Gente ...

 

este código que passei tá enviando um texto pro banco de dados , sem formatação nenhuma ... este texto vem de um TEXT AREA ... q não postei aki, por achar desnecesário ....

 

o q preciso ??? ...

que todos os "enters" .. sejam substituidos por <BR>

 

o script pra fazer o REPLACE eu já sei fazer ... porém só não sei onde encaixá-lo.

 

Será q assim tá mais entendível ????

 

Valew.

 

objRS("IDE") = Trim(Request.Form("IDE"))

objRS("texto") = Trim(Request.Form("texto"))

 

mude para:

 

objRS("IDE") = Trim(Replace(Request.Form("IDE"), chr(13),"<br>"))

objRS("texto") = Trim(Replace(Request.Form("texto"), chr(13), "<br>")

Aew.. acho q você conseguiu me entender .... porém tá dando o seguinte erro ...

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/dibens/site/empresa_inclusao.asp, line 268

 

End If

objRS.Update <------- linha 268

objRS.Close

Set objRS = Nothing

 

 

 

??? e agora ???

 

Galera, desculpe encher o saco de vcs ....

[Mário Monteiro 179]

voce esta sem permissoa de escrita em seu DBdeve configurar isso no IIS

[sr.silva 1]

O que o ultra escreveu resolve o seu problema??

 

objRS("IDE") = Trim(Request.Form("IDE"))

objRS("texto") = Trim(Request.Form("texto"))

 

mude para:

 

objRS("IDE") = Trim(Replace(Request.Form("IDE"), chr(13),"<br>"))

objRS("texto") = Trim(Replace(Request.Form("texto"), chr(13), "<br>")

[CafeNeon 0]

O que o ultra escreveu resolve o seu problema??

 

objRS("IDE") = Trim(Request.Form("IDE"))

objRS("texto") = Trim(Request.Form("texto"))

 

mude para:

 

objRS("IDE") = Trim(Replace(Request.Form("IDE"), chr(13),"<br>"))

objRS("texto") = Trim(Replace(Request.Form("texto"), chr(13), "<br>")

Resolveu sim Bruno ....

 

Tava dando o problema de permissão ... mas graças a Deus também está resolvido, site funfando e já entregue ao patrão ...

 

Posso ir embora trankilo !!!!

 

Agradeço a todos pela paciência !!!

 

Valew !!!

[Mário Monteiro 179]

que bom que deu tudo certo tiozinhoparabens