<% sub addot(a,b) if len(a)>cint(b) then response.write(left(a,b)+"...") else response.write(a) end if end sub set rs = server.CreateObject ("Adodb.recordset") %>