problema con len e con left

[freizer]

Ho inserito in un sito una funzione che i permette di visualizzare solo i primi 500 caratteri di una notizia.

ho la condizione che se i caratteri sono meno di 500 deve scriverli tutti mentre in caso contrario scrive solo i primi 500 e poi va alla pagina del dettaglio.

solo che quando processo la lunghezza del campo dopo non rime lo visualizza.

il codice è questo:

	
<%
strsql = "SELECT * FROM info WHERE info_pub = 'S' ORDER by id_info DESC"
Set rs = Server.CreateObject("ADODB.Recordset") 
Set rs = Conn.Execute(strsql)
	
	if not rs.eof then
	while not rs.eof
		if not rs.eof then
                        if len(rs("info_txt")) < 500 then
                        %>
				<%=rs("info_txt")%>
			<%	
                            else					
                        %>
				<%=left(rs("info_txt"),500)%>
			<%	
                            end if					
		rs.movenext
		end if
	wend
	else
	end if
%>

dove sbaglio??

il bello è che lo stesso codice lo uso in un altro sito e funziona