





% Session.LCID = 1046 Session.Timeout = 30 response.expires = 0 response.buffer = true Server.ScriptTimeout = 60 Response.CacheControl = "no-cache" Response.AddHeader "pragma", "no-cache" '##################################################################################### '# Nome: Pontinhos Tipo: Function # '# Entradas: texto e tamanho # '# Saidas: Texto reduzido no tamanho com os 3 pontinhos no final # '##################################################################################### Function Pontinhos(texto, qtd) dim resumo ' resumo do texto dim tam ' tamanho do resumo dim pos ' indice do loop dim tamtxt ' tamanho do texto tam = qtd tamtxt = len(texto) if tam =< tamtxt then for pos=tam to tamtxt resumo = mid(trim(texto),1,pos) if mid(resumo,pos,1) = space(1) then exit for end if next if pos < tamtxt then resumo = resumo & "..." end if else resumo = texto end if Pontinhos = resumo end Function if request("banner") = "" then Randomize banner = int(rnd*8)+1 else banner = request("banner") end if %>
![]() ![]() ![]() ![]() ![]() ![]() |