Fíjense en la línea marcada en negrita cursiva:
Código:
<%
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"
%>
Eso está bien? Es que no me cambia por <br> 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%">