Foros del Web » Programando para Internet » ASP Clásico »

Cambio por <br> ERROR

Estas en el tema de Cambio por <br> ERROR en el foro de ASP Clásico en Foros del Web. Fíjense en la línea marcada en negrita cursiva: Código: &lt;% Response.Buffer = true dim cnn,rst ' Creamos la conexión a la base de datos sin ...
  #1 (permalink)  
Antiguo 27/08/2002, 07:38
Avatar de CHuLoSoY  
Fecha de Ingreso: febrero-2002
Ubicación: Ribeira (Galicia)
Mensajes: 1.900
Antigüedad: 23 años, 3 meses
Puntos: 29
Cambio por <br> ERROR

Fíjense en la línea marcada en negrita cursiva:

Código:
&lt;%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject(&quot;ADODB.Connection&quot;)
set rst = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
cnn.Open(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; _
Server.MapPath(&quot;*********.mdb&quot;))
sqltext = &quot;SELECT * FROM Noticias&quot;
rst.Open sqltext,cnn,3,3

texto = replace(rst(&quot;noticia&quot;), CHR(013), &quot;&lt;br&gt;&quot;)  

'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia
titulo = Request.Form(&quot;titulo&quot;)
copete = Request.Form(&quot;copete&quot;)
noticia = texto
categoria = Request.Form(&quot;categoria&quot;)
fecha = now()
img = Request.Form(&quot;img&quot;)
autor = Request.Form(&quot;autor&quot;)

if copete = &quot;&quot; or titulo =&quot;&quot; or noticia =&quot;&quot; or categoria =&quot;&quot; or img =&quot;&quot; or autor =&quot;&quot; then
error = &quot;Debe completar todos los datos.&quot;
Response.Write error
Response.End
end if

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

rst.AddNew
rst(&quot;titulo&quot;) = titulo
rst(&quot;copete&quot;) = copete
rst(&quot;noticia&quot;) = noticia
rst(&quot;categoria&quot;) = categoria
rst(&quot;fecha&quot;) = fecha
rst(&quot;img&quot;) = img
rst(&quot;autor&quot;) = autor
rst.update

'Terminamos e imprimimos un mensaje
Response.Write &quot;La noticia se ha ingresado con exito&quot;
%&gt;
Eso está bien? Es que no me cambia por &lt;br&gt; las líneas.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">
  #2 (permalink)  
Antiguo 27/08/2002, 08:23
 
Fecha de Ingreso: agosto-2002
Ubicación: Barcelona
Mensajes: 29
Antigüedad: 22 años, 8 meses
Puntos: 1
Re: Cambio por <br> ERROR

yo te aconsejo que cambies el CHR(013) por un vbCrLf que es la constante de ASP de salto de carro retorno de linea.

El código te quedaría así:

texto = replace(rst(&quot;noticia&quot;), vbCrLf, &quot;&lt;br&gt;&quot;)

Pruebalo y di que tal te ha ido.



<br>
Juanan
  #3 (permalink)  
Antiguo 27/08/2002, 12:48
Avatar de CHuLoSoY  
Fecha de Ingreso: febrero-2002
Ubicación: Ribeira (Galicia)
Mensajes: 1.900
Antigüedad: 23 años, 3 meses
Puntos: 29
Re: Cambio por <br> ERROR

Guau!!!!!!

Funciona a la perfección. gracias por tu rápida respuesta, me hacía mucha fatla.

Por cierto, esta tarde hubo un error general en forosdelweb, no sé que habrá ocurrido.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:41.