Undgå for lang tekst i en select

function Min(L1, L2)
  if L1 < L2 then
    Min = L1
  else
    Min L2
end function

Tekst = Left(RS("tekst"), Min(15, Len(Tekst))) ' Beskærer tekst til 15 tegn

Nu har jeg lavet:

Funtion Min(L1, L2)
  If L1 < L2 Then
    Min = L1
  Else
    Min = L2
  End If
End Function

<select name="url">
<%
rs.MoveFirst
Do Until rs.EOF
  Tekst = Left(rs("url"), Min(15, Len(Tekst)))
  Response.Write "<option value='"& rs("url") &"'>"& Tekst &"</option>"
  rs.MoveNext
Loop
%>
</select>

Nu bliver den bare tom, hvordan kan det være?

Function TextLen(intLen, strTxt) 'intLen = laengden; strTxt = input tekst
  If Len(strTxt) > intLen Then
    TextLen = Left(strTxt, intLen)
  Else
    TextLen = strTxt
End Function

Response.Write "<option value='"& rs("url") &"'>"& TextLen(15, Rs('url")) &"</option>"

TextLen(15, Rs('url"))
skal vaere
TextLen(15, Rs("url"))