Código:
Eso está bien? Es que no me cambia por <br> las líneas. <% 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("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("*********.mdb")) sqltext = "SELECT * FROM Noticias" rst.Open sqltext,cnn,3,3 texto = replace(rst("noticia"), CHR(013), "<br>") 'Recogemos los datos y validamos que no haya ningun campo vacio dim titulo, copete, noticia titulo = Request.Form("titulo") copete = Request.Form("copete") noticia = texto categoria = Request.Form("categoria") fecha = now() img = Request.Form("img") autor = Request.Form("autor") if copete = "" or titulo ="" or noticia ="" or categoria ="" or img ="" or autor ="" 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("titulo") = titulo rst("copete") = copete rst("noticia") = noticia rst("categoria") = categoria rst("fecha") = fecha rst("img") = img rst("autor") = autor rst.update 'Terminamos e imprimimos un mensaje Response.Write "La noticia se ha ingresado con exito" %>
<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%">