 |
<%
dim iLen(5)
iLen(0)=750
iLen(1)=250
iLen(2)=160
iLen(3)=160
iLen(4)=120
Dim sLink(4)
Dim sLinkEnd(4)
Function fun_firstX(str,iLen)
dim ffTmp
ffTmp=str
if Len(ffTmp)>iLen then
ffTmp=Left(ffTmp,(iLen-3))
iTmp=1
for i=0 to 1000
if instr(iTmp, ffTmp, " ")=0 then
i=1000
else
iTmp=instr(iTmp, ffTmp, " ") + 1
end if
next
ffTmp=Left(ffTmp, (iTmp-1))
ffTmp=ffTmp & "..."
end if
fun_firstX=ffTmp
End Function
%>
|
 |
|
|
 |
Alquiler de despachos profesionales y oficinas |
|
|
|
|
|
|
 |
|
|
 |