afgrænsning af lang beskrivelse

Nedenstående kode er en liste over en række film, med titel, premiere og beskrivelse og tilhørende billede som man så kan klikke videre ind på og læse mere..

Men nogle af beskrivelserne er alt for lange til at stå på den overordnede liste!

Hvordan afgrænser jeg dette til et x antal ord, også derefter med "prikprikprik(...)" og "Læs mere" bagefter!

Håber I kan hjælpe..

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/kommende-film_db.mdb")
Conn.Open DSN

strSQL = "Select * From kommendefilm Order by Premiere ASC"
Set rs = Conn.Execute(strSQL)

Do
  ' Filmens titel
  strNavn = rs("Titel") & " " & rs("Premiere")

  strID=rs("Id")
  If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/moviepic/"&strID&".jpg")) Then
      strPic="<img alt=""Filmbillede"" src=""/upload/moviepic/"&strID&".jpg"" width=""135"" height=""199""> "
  Else
      strPic="<img alt=""Intet filmbillede"" src=""/upload/moviepic/nopic.jpg"" width=""135"" height=""199""> "
  End If

  ' Liste med links
Response.Write "<tr valign=""top""><td><a href=""film-x.asp?id="&strID&""">"&strPic&"</a></td><td><a href=""film-x.asp?id="&strID&""">"&strNavn&"</a><br><font size=""2"">"&rs("beskrivelse") &"</font></td></tr>"


  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>