<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
str = replace(str,"
","{br}")
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
str = replace(str,"{br}","
")
nohtml=str
set re=nothing
end function
%>
<%=left(nohtml(rs("text")),670)%>...
<%
set rs=server.createobject("adodb.recordset")
sql="select * from video where lei='"&lulu&"' order by id desc"
rs.open sql,conn,1,1
d=0
do while not rs.eof
d=d+1
if d<3 then
%>
"><%=rs("title")%> <%=left(nohtml(rs("text")),150)%>
<%
else
exit do
end if
rs.movenext
loop
%>
