¿impimri solo unos cuantos caracteres de un registro

[tocalasam]

como puede para mostrar x caracteres y que haciendo un link, vea el campo completo.

EJEMPLO, PORTADA DE NOTICIAS, CON UN TITULAR, QUE AL CLICAR TE MUESTRA NOTICIA COMPELTA.

[AlZuwaga]

Usando:

left(string, CantidadDeCaracteres)

[JuanRAPerez]

y depues al string le pones

string = string & "..."

o un string & "tu enlace con el id de la noticia en html y asp"

suerte

[tocalasam]

Tengo este codigo con el que muestro alatoriamente un registro, pero me gustaria mostrar solo 50 caracteres por ejemplo
¿como indico la variable?
Siempre me da error!!!!!


<%
set objCON = Server.CreateObject("ADODB.Connection")

objCON = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/faqs.mdb")&";"
set objRS = Server.CreateObject("ADODB.Recordset")

objRS.open "SELECT pregunta,respuesta FROM faqs", objCON, 3, 1

Dim rndMax
rndMax = CInt(objRS.RecordCount)

objRS.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

objRS.Move rndNumber

response.write("<center><a href=/faqs.asp><img src=/img/faqs_home.jpg border=0s></A></center><p class=align><font face=verdana size=1><b>" & objRS("pregunta") & "</b><p class=align>")
response.write(objRS("respuesta"))

%>

[3pies]

Elimina lo que hay debajo de:

Código:

objRS.Move rndNumber

Y pon esto:

Código:

respuesta = left(objRS("respuesta"),50) & "..."
response.write "<center><a href=""/faqs.asp""><img src=""/img/faqs_home.jpg"" border=""0""></a></center><p class=""align""><font face=""verdana"" size=""1""><b>" & objRS("pregunta") & "</b><p class=""align>"""
response.write respuesta

Salu2

[tocalasam]

Hola, pongo esto, pero me da error

respuesta = left(objRS("respuesta"),50) & "..."
response.write "<center><a href=""/faqs.asp""><img src=""/img/faqs_home.jpg"" border=""0""></a></center>"
response.write "<p class=""align""><font face=""verdana"" size=""1""><b>" & objRS("pregunta") & "</b><p class=""align"">" & objRS("respuesta") & "" %>


me sobran o me faltan comillas???

[3pies]

¿Qué error te da?. El tema de las comillas está bien, así que debe venir por otro lado el error...

Si no sabes como obterner información descriptiva del error, mírate esto: http://www.forosdelweb.com/showpost....&postcount=123

Salu2

EDITO: He visto que le has añadido 2 comillas dobles al final. Yo no te lo puse así. Te sobra & ""

[tocalasam]

Este es el codigo entero, pero me muestra el campo respuesta con todos sus caracteres.
¿me podeis ayudar?


<%
set objCON = Server.CreateObject("ADODB.Connection")

objCON = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/faqs.mdb")&";"
set objRS = Server.CreateObject("ADODB.Recordset")

objRS.open "SELECT pregunta,respuesta FROM faqs", objCON, 3, 1

Dim rndMax
rndMax = CInt(objRS.RecordCount)

objRS.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

objRS.Move rndNumber

respuesta = left(objRS("respuesta"),10) & "..."
response.write "<center><a href=""/faqs.asp""><img src=""/img/faqs_home.jpg"" border=""0""></a></center>"
response.write "<p class=""align""><font face=""verdana"" size=""1""><b>" & objRS("pregunta") & "</b><p class=""align"">" & objRS("respuesta") & "" %>

[3pies]

Aparte de tocar el piano, hay que leer de vez en cuando, las cosas que te contestamos...

Donde tienes esto:

Código:

& objRS("respuesta") & "" %>

Debes poner esto:

Código:

& respuesta %>

Salu2

[tocalasam]

Al final lo consegui.
Es que estaba tocando y no me fije en la ultima linea.

Muchas gracias.