Salto de carro en el resultado final.

yanire · #1 (**permalink**) 05/07/2005, 06:39

Hola a todos mi problema es el siguiente, desde un formulario subo archivos de noticias al servidor, pero cual es mi decepcion al comprobar que no hace el salto de carro al pulsar la tecla intro, tal cual lo habia escrito yo y el texto final va todo seguido, haciendo que la lectura sea incomoda...
Alguien me puede echar un cable de como conseguir que quede tal cual lo escribo?????
Si no me he hecho entender, decidmelo.
gracias

Saruman · #2 (**permalink**) 05/07/2005, 07:05

texto = replace(texto, chr(13), "<br>")
response.write(texto)

yanire · #3 (**permalink**) 05/07/2005, 08:04

Gracias por responder tan pronto Saruman....
pero donde debo colocar eso????

Tengo 3 archivos, listado.asp= crea un listado de los noticias,
noticia.asp= la noticia en si, identificada por su id y
agrega_noticia.asp= la encargada de ingresar la noticia en la DB...

en que archivo deberia de incluirse???, a mi me parece que deberia ir en el agrega_noticia.asp y luego dentro del archivo en que parte???
te pongo el codigo de ese archivo

<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias.mdb")
sqltext = "SELECT * FROM Noticias"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim autor, titulo, noticia
autor = Request.Form("autor")
titulo = Request.Form("titulo")
noticia = Request.Form("noticia")

if autor = "" or titulo ="" or noticia ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("fecha") = Date
rst("autor") = autor
rst("titulo") = titulo
rst("noticia") = noticia
rst("ip") = request.servervariables("REMOTE_ADDR")
rst.update

'Terminamos e imprimimos un mensaje
Response.Write "La noticia ha ingresado con éxito, gracias por tu colaboración... el administrador"
%>

<html>

<head>
<title>ACTUALIDAD MUNICIPAL</title>

</head>
<body>
</body>
</html>

saludos y gracias 1000 Saruman, no te canses.

AlZuwaga · #4 (**permalink**) 05/07/2005, 10:15

Lo debés colocar en el archivo que finalmente muestra la noticia al lector. Donde hacés el response.write(rs("texto_noticia")), en vez de lo anterior, colocás el response.write del replace() que sarumán te comenta.

yanire · #5 (**permalink**) 05/07/2005, 13:14

Hola Al Zuwaga gracias por responder...
te coloco el codigo de la noticia final tal cual se muestra

<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("noticias.mdb"))
sql = "SELECT * FROM Noticias WHERE id=" & Request.QueryString("id") & ""

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
%>

<html>
<head>
<title>ACTUALIDAD MUNICIPAL</title>
</head>
<body>
<div align="center"><center>
<table border="1" cellspacing="0" width="98%" bordercolorlight="#666666" bordercolor="#FFFFFF">
<tr><td width="100%">
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" width="99%" height="26">
<tr><td width="100%" bgcolor="#336699" height="22">
<div align="center">
<table border="0" width="100%" cellpadding="0" height="11">
<tr><td width="61%" height="9"><font size="3" face="Trebuchet MS" font color="#FFCC00"><%=result("Fecha")%> - <%=result("titulo")%></font></font></td></center>
<td width="39%" height="9"><p align="right"><font color="#FFFFFF" size="2" face="Trebuchet MS"><%=result("autor")%>, Host: <%=result("Ip")%></font></p>
</td></tr></table></div></td></tr></table></div>
<center>
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="98%">
<tr><td width="100%" height="20"><font color="#000080" size="3" face="Trebuchet MS"><%=result("noticia")%></font></td></tr>

</table></div></center>

</body>

Como ves aqui no hay nada que haga referencia al response.write ese que me comentas...
Tu me diras.
saludos

AlZuwaga · #6 (**permalink**) 05/07/2005, 13:48

Ok, hagámosla fácil y corta. Usá éste código (te marco en bold los cambios):

Código:

<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("noticias.mdb"))
sql = "SELECT * FROM Noticias WHERE id=" & Request.QueryString("id") & ""

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
%>

<html>
<head>
<title>ACTUALIDAD MUNICIPAL</title>
</head>
<body>
<div align="center"><center>
<table border="1" cellspacing="0" width="98%" bordercolorlight="#666666" bordercolor="#FFFFFF">
<tr><td width="100%">
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" width="99%" height="26">
<tr><td width="100%" bgcolor="#336699" height="22">
<div align="center">
<table border="0" width="100%" cellpadding="0" height="11">
<tr><td width="61%" height="9"><font size="3" face="Trebuchet MS" font color="#FFCC00"><%=result("Fecha")%> - <%=result("titulo")%></font></font></td></center>
<td width="39%" height="9"><p align="right"><font color="#FFFFFF" size="2" face="Trebuchet MS"><%=result("autor")%>, Host: <%=result("Ip")%></font></p>
</td></tr></table></div></td></tr></table></div>
<center>
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="98%">
<tr><td width="100%" height="20"><font color="#000080" size="3" face="Trebuchet MS"><%=Replace(result("noticia"), VBCrLf, "<br>")%></font></td></tr>

</table></div></center>

</body>

El signo "=", según cómo y donde se use, sirve tanto para asignación, comparación y, además, es una abreviatura del response.write ese al que yo hacía referencia en mi anterior mensaje.

yanire · #7 (**permalink**) 05/07/2005, 15:09

Eres un monstruo... que tio!!!
probado y funciona optimamente, te debo una.
1000 gracias ya se a quien acuidr cuando tenga otra duda.
saludos