How to display only the fist 50 characters of a record, then click to expand the table

Posted on 2016-10-04
Last Modified: 2016-10-05
Hi Experts,

On my web page I'm displaying database records. One column is named "Comments" and it is varchar(MAX) data type in the SQL Server database.

<td align="left"><%=rs("Comments")%></td>

The table cell becomes too big when the Comments field contains too many characters. Is it possible to display only the first 50 characters of each record, then when the TD is clicked, it expands and shows the full record? When a different record is clicked it collapses to show the first 50 characters only.

My page is written is Classic ASP.

Thank you for your help.
Question by:romsom
  • 2
  • 2
LVL 32

Accepted Solution

Big Monty earned 500 total points
ID: 41828661
i came across this example while looking for a solution, seems to do what you want with regards to expanding/collapsing rows, although it doesn't enforce the rule of expanding one row at a time, but that can be added later:

your code would look along the lines of:

dim comments, previewComments
do while not rs.EOF
    comments = rs("comments")
     previewComments = Left( comments, 2 )

Open in new window

this is a very quick and dirty example, you'll need to modify it to meet your needs, but you should get the gist of it

Author Comment

ID: 41828918
Thank you very much Monty!
I'm afraid I will need some more help. I'm struggling to make the page appear with the short version of the Comments field. My goal is to expand it when clicked. I don't want to click the table header because that is supposed to sort the records. I would like the short Comments and long Comments alternate when the TD is clicked. Please take a look at the complete code of my page. How should I modify it in order to achieve my goal? I tried changing the colspan and the p to B and I, but whenever I placed those tags in my table the content just disappeared, but the TD was still visible.
<!-- #include virtual="/Connections/Authentication.asp" -->
if request.querystring("sort")<>"" then
   sort="ID desc"
end if

set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3  ' adUseClient

rs.Open "SELECT * FROM Complaints ORDER BY " & sort & " " & request.querystring("order"), conn

rs.PageSize = 10
intPageCount = rs.PageCount

Select Case Request("Action")
	case "<<"
		intpage = 1
	case "<"
		intpage = Request("intpage")-1
		if intpage < 1 then intpage = 1
	case ">"
		intpage = Request("intpage")+1
		if intpage > intPageCount then intpage = IntPageCount
	Case ">>"
		intpage = intPageCount
	case else
		intpage = 1
end select
<link rel="stylesheet" href="/Scripts/Styles.css" type="text/css" />
<script type="text/javascript" src="/jquery/js/jquery-1.5.1.min.js"></script>
<script type="text/javascript" src="/jquery/js/jquery-ui-1.8.13.custom.min.js"></script>

<script type="text/javascript">
$(function() {
    $("table").click(function(event) {
        var $target = $(;
        if ( $target.closest("td").attr("colspan") > 1 ) {
        } else {

<table align="center" class="border">
<td >
<%if request.querystring("order") = "DESC" then%>
<a href="Disability1.asp?sort=CustName&order=ASC">CustomerName</a>
<a href="Disability1.asp?sort=CustName&order=DESC">CustomerName</a>
<%end if%>
<td align="center" class="hand">
<%if request.querystring("order") = "DESC" then%>
<a href="Disability1.asp?sort=Comments&order=ASC">Comments</a>
<a href="Disability1.asp?sort=Comments&order=DESC">Comments</a>
<%end if%>

rs.AbsolutePage = intPage
For intRecord = 1 To rs.PageSize

dim comments, previewComments

    comments = rs("comments")
     previewComments = Left( comments, 20 )

<td class="border"><%=rs("CustName")%></td>

<td class="border"><b><%=previewComments%></b></td>
<td class="border"><i><%=comments%></i></td>


If rs.EOF Then Exit For
set rs = Nothing
set Conn = Nothing


Open in new window

LVL 32

Expert Comment

by:Big Monty
ID: 41828939
I'll have a look at this tomorrow

Author Closing Comment

ID: 41830751
Thank you very much, I figured out the rest. It's actually a better solution than I was hoping for.

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

I've been trying to accomplish this for a while and it just struck me yesterday how to accomplish this task. I have done searches all over the internet looking for ways to email pages from my applications and finally I have done it!!! Every single s…
Introduction HTML checkboxes provide the perfect way for a web developer to receive client input when the client's options might be none, one or many.  But the PHP code for processing the checkboxes can be confusing at first.  What if a checkbox is…
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)
The viewer will learn the basics of jQuery including how to code hide show and toggles. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now