3S?executa se o texto for maior que o tamanho determinado Aux = mid(texto, 1, y) 'Pega a parte do texto do tamanho que voce determinou na chamada da função... Aux = Aux & " ..." 'Acrescenta as reticências else Aux = texto 'Exibe o texto sem cortes end if tamTexto = Aux 'Passa o valor para a função. end function sqlString = "Select * from configuracoes where ident='padrão'" Set rstConfig = Server.CreateObject("ADODB.RecordSet") rstConfig.Open sqlString, conexao If rstConfig("statusdaloja") = 0 Then response.Redirect("fechada.asp") End If sqlString = "Select * from painelactivon where id=1" Set rstConfigActivon = Server.CreateObject("ADODB.RecordSet") rstConfigActivon.Open sqlString, conexao 'pega a pagina atual pagina = request.ServerVariables("SCRIPT_NAME") 'numero de registros por pagina... pageSize = 20 if(len(Request.QueryString("p")) = 0 )then paginaAtual = 1 else paginaAtual = CInt(Request.QueryString("p")) end if ' conta o numero de registros... sql = "SELECT COUNT(*) AS total FROM tb_fotos" set rstFotos = conexao.execute(sql) 'total de registros recordCount = Cint(rstFotos("total")) 'calculamos o numero de paginas... resto = recordCount mod pageSize If resto <> 0 then If recordCount > pageSize then pageCount = Clng(recordCount / pageSize) + 1 Else pageCount = Clng(recordCount / pageSize) End If Else pageCount = Clng(recordCount / pageSize) End If If pageCount < 1 then pageCount = 1 end if rstFotos.Close() Flag1 = INT(paginaAtual / pagesize) PI = INT(Flag1 * pagesize) IF PI = 0 THEN PI = 1 END IF PF = PI + pagesize - 1 ' selecionamos os registros... sql = "SELECT * FROM tb_fotos order by data desc LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize set rstFotos = conexao.execute(sql) %> <font face="Arial" size=2> <p>Erro de tempo de execução do Microsoft VBScript</font> <font face="Arial" size=2>erro '800a000d'</font> <p> <font face="Arial" size=2>Tipos incompatíveis: 'rstConfig'</font> <p> <font face="Arial" size=2>/galeriadefotos.asp</font><font face="Arial" size=2>, linha 78</font>