1 reply to this topic

[luckynho]

Galera.. tenho um cadastro.... e na parte da descricao... eu queria que... conforme for preenchendo..e eu apertar enter... ele entenda como <br>
meu codigo está assim:

<%
function gravaTXT(x)
  if len(x) = 0 then
    gravaTXT = "null"
  else
    gravaTXT = "'" & Replace(Replace(x,vbCrLf,"<br>"),"'","''") &"'"
  end if
end function
Else
  If  1=1 then ' Trim(Request.Form("not_cod")) <> ""  AND Trim(Request.Form("not_dca")) <> ""  AND Trim(Request.Form("not_pri")) <> ""  AND Trim(Request.Form("not_fop")) <> ""  AND Trim(Request.Form("not_fon")) <> ""  AND Trim(Request.Form("not_tit")) <> ""  AND Trim(Request.Form("not_olho")) <> ""  AND Trim(Request.Form("not_font")) <> ""  AND Trim(Request.Form("not_des")) <> ""  AND Trim(Request.Form("not_res")) <> ""  AND Trim(Request.Form("not_abe")) <> ""  AND Trim(Request.Form("not_hor")) <> ""  AND Trim(Request.Form("not_usu")) <> ""  AND Trim(Request.Form("not_vis")) <> ""  Then
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../../bd/bd.mdb")
    ComandoSQL = "INSERT INTO noticias (not_cod, not_dca, not_pri, not_fop, not_tit, not_olho, not_font, not_des, not_res, not_abe, not_hor, not_usu, not_vis)"
    ComandoSQL = ComandoSQL & " VALUES ("
    ComandoSQL = ComandoSQL & "" & replace(Request.FORM("not_cod"), "'", "") & ", "
    ComandoSQL = ComandoSQL & "#" & Request.FORM("not_dca") & "#,"
    ComandoSQL = ComandoSQL & "" & Request.FORM("not_pri") & ","
    ComandoSQL = ComandoSQL & "'" & Request.FORM("not_fop") & "',"
    ComandoSQL = ComandoSQL & "'" & Request.FORM("not_tit") & "',"
    ComandoSQL = ComandoSQL & "'" & Request.FORM("not_olho") & "',"
    ComandoSQL = ComandoSQL & "'" & Request.FORM("not_font") & "',"
    ComandoSQL = ComandoSQL & "'" & gravaTXT(Request.FORM("not_des")
    ComandoSQL = ComandoSQL & "'" & Request.FORM("not_res") & "',"
    ComandoSQL = ComandoSQL & "" & Request.FORM("not_abe") & ","
    ComandoSQL = ComandoSQL & "'" & Request.FORM("not_hor") & "',"
    ComandoSQL = ComandoSQL & "" & Request.FORM("not_usu") & ","
    ComandoSQL = ComandoSQL & "1)"
    Set bd = Conexao.Execute(ComandoSQL)
    Conexao.Close
    Set bd = Nothing
    Set Conexao = Nothing
%>

eu criei uma função chamada gravaTXT mas ele dá erro....

Como devo escrever essa linha ai acima...
abracos

[Rerex]

Provavelmente o seu campo no banco de dados é TEXT ou MEMO, então grave da mesma maneira que foi digitado e ao exibir, use a seguinte função:

Function converteEnter(sValor)
  converteEnter = Replace(sValoe,chr(13),"<br>")
End Function

Ao exibir em HTML ele exibirá com as quebras normalmente.