Envio de formulario a una base de datos, pero no reconoce lineas

Learing · #1 (**permalink**) 28/03/2004, 11:55

Hola

Estoy intentando implementar una base de datos "Cristiana"
donde tenga inf de adoración, etc.

El problema es el siguiente.

Estoy en el formulario.htm que es quien ingresará los datos por medio de agrear_informacion.asp pero cuando escribo un texto y doy enter para hacer los espacios y envio la inf a la base de datos, pasa lo siquiente.

Al entrar a bucador.htm y buscar la información que había depositado, me sale todo pegado.

¿Cómo puedo arreglar esto?.

Y si me dan un codigo, "diganme donde hubicarlo" que no ando muy bien en ASP. (Estoy aprendiendo).

Saludos.

AlZuwaga · #2 (**permalink**) 28/03/2004, 12:56

Lo ubicás en el mismo lugar donde presentás el texto que actualmente sale sin saltos de líneas:

<% = Replace(rs("texto"), VBCrLf, "<br>") %>

donde "rs" es el objeto recodset y "texto" es el campo de tu BD que querés mostrar

Learing · #3 (**permalink**) 28/03/2004, 14:36

dazuaga hice como me dices pero me da error.

mira tal vez estoy haciendo algo mal, deja y te pongo el codigo de buscar.asp y me ayudas.

Porque me da error justamente en la linea 9 que es donde esta el codigo que me diste.

<html>

<head>
<title>Buscar datos</title>
</head>

<body bgcolor="#FFFFCC">

<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>

<%
'realizamos la conexión de la Base de Datos
Dim Conexion,noticias
Set Conexion=Server.CreateObject("adodb.connection")
Set noticias=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("noticias.mdb")
'definimos las variables de busqueda
Dim Temp,Rango
Rango=Request("Tipo")
If Rango="1" Then
'En la Tabla la palabra que buscamos
Temp="Select * From Noticias Where UCase([codigo])='" & UCase(Request("palabra"))'"
Else
Temp="Select * From Noticias Where InStr(UCase([codigo]),'" & UCase(Request("palabra")) & "')>0"
End If
noticias.Open Temp, Conexion
If noticias.BOF And noticias.EOF Then
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>


<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="298" bordercolor="#C0C0C0">
<tr>
<td width="25%" height="20"> <p align="center"><strong><font face="Tahoma" size="2">Titulo</font></strong>
</td>
</tr>
<% While Not noticias.EOF%>
<tr>
<td width="25%" bgcolor="#FFFFFF" height="51"> <p align="center"><font face="Tahoma" size="4"><strong><%=noticias.Fields("titulo")%></strong></font></td>
</tr>
<tr>
<td bgcolor="#FFFFCC" height="51"> <div align="center"><strong><font size="2" face="Tahoma">Autor</font></strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" height="51"><div align="center"><font face="Tahoma" size="2">
<%=noticias.Fields("copete")%></font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFCC" height="51"> <div align="center"><strong><font face="Tahoma" size="2">Descripcion</font></strong>
</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" height="51"><div align="center"><font face="Tahoma" size="2"><%=noticias.Fields("noticia")%></font></div></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" height="21"><font color="#FFFFFF" size="2">Buscador Cristiano
2004</font></td>
</tr>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
noticias.MoveNext
Wend
noticias.Close
Conexion.Close
End If
%>
</table>
</center></div>
<p align="center"><font face="Tahoma" size="2">Buscador Cristiano</font></p>
<p align="center"><font face="Tahoma" size="2">2004</font></p>
<p align="center">_

</p>
</body>
</html>
Saludos.