[Resolvido] Paragrafo em caixa de texto

[Khelly 0]

Bom dia Amigos;

 

Tenho um formulario de cadastro de dados para um bd Mysql, gostaria de saber se no campo <Textarea> do form eh possivel programar para ele aceitar paragrafo e espaço com a tecla enter. Desde ja obrigado pela ajuda.

[Vinicius Ianni 189]

Acho que isso é possivel usando javascript ou dhtml.

[Public2004 79]

Para gravar no banco, faça um replace trocando "vbCrLf" por "<br />";

E na consulta (visualização), faça o replace ao contrário.

Se quer formatar o texto com as tags HTML, utilize um editor em js.

 

Att.

[Khelly 0]

Para gravar no banco, faça um replace trocando "vbCrLf" por "<br />";

E na consulta (visualização), faça o replace ao contrário.

Se quer formatar o texto com as tags HTML, utilize um editor em js.

 

Att.

 

Public2004, o Meu codigo para gravar é esse

 

Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConnString

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set Fields = GetUpload()
texto = Fields("texto").Value.String
'DtData = Fields("DtData").Value.String
'VrDestaque = Fields("VrDestaque").Value.String
'DsNoticia = Fields("DsNoticia").Value.String
FilePath = Server.MapPath("fotos")&"/"& Fields("foto").FileName
Fields("foto").Value.SaveAs FilePath

Conexao.Execute "update empresa (texto,foto) VALUES ('"& texto &"','"& Fields("foto").FileName &"')"
Response.Redirect("empresa_adm.asp")
End If

 

E o da consulta é

 

<%= empresa("texto")%>

 

Nesses codigos onde posso aplicar as dicas que você me passou;

 

Obrigado;

[Public2004 79]

Onde:

texto = Fields("texto").Value.String

 

Altere para:

texto = Fields("texto").Value.String
texto = Replace(texto, vbCrLf, "<br />")

 

Se for apresentar esta informação novamente em uma campo de texto, inverta o "replace"; Para apresentar os dados em HTML, não precisa alterar mais nada, já que "<br />" é a tag que representa quebra de linha em html.

 

O que fazemos com isso é apenas interpretar a tecla "Enter" pressionada no campo de texto e gravar essa informação no sistema como quebra de linha.

Para utilizar outras tags html se necessário, utilize um editor em js.

 

Att.

[Khelly 0]

Onde:

texto = Fields("texto").Value.String

 

Altere para:

texto = Fields("texto").Value.String
texto = Replace(texto, vbCrLf, "<br />")

 

Se for apresentar esta informação novamente em uma campo de texto, inverta o "replace"; Para apresentar os dados em HTML, não precisa alterar mais nada, já que "<br />" é a tag que representa quebra de linha em html.

 

O que fazemos com isso é apenas interpretar a tecla "Enter" pressionada no campo de texto e gravar essa informação no sistema como quebra de linha.

Para utilizar outras tags html se necessário, utilize um editor em js.

 

Att.

 

Public obrigado pela atenção q esta me dando, me desculpe passei o codigo errado, o codigo que grava eh esse:

 

empresa("texto") = myFileUpload.Form("texto")

 

como faço nele?

 

desde já obrigado.

[xanburzum 169]

usa assim:

texto = myFileUpload.Form("texto")
texto = Replace(texto, vbCrLf, "<br />")

[Khelly 0]

Valeu Xanburzum !!!!!! Funcionou! muito obrigado, Problema Resolvido...Muito obrigado a todos que deram uma ajuda!!