
05/02/2007, 08:43
|
| | Fecha de Ingreso: julio-2003 Ubicación: Barcelona
Mensajes: 142
Antigüedad: 21 años, 7 meses Puntos: 1 | |
Re: ¿impimri solo unos cuantos caracteres de un registro 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") & "" %> |