Mostrar registro em uma tabela

[Daniel Paes 0]

Ae salgado.... a parada ta funcionando legal.. já ta mostrando as tabelas, mas aconceu uma coisa..... a função de cortar texto parou de funcionar.... como eu faço agora.... essa era a unica que eu tinha a manhe..hehehehehhe. tentei por outra aqui mesmo do forum mas da erro de http 500.Me ajuda aeeee.......rsAqui vai o coigo completo:

<%AbreConexaoSQL = "SELECT TOP 6 * FROM tblnews  ORDER BY "& "'mes'" &" DESC"Set rs = Conexao.Execute(SQL)While not rs.EOFid_new = rs("id_new")headline = Rs("headline")headline = mid(headline,1,20)%><Table><%Colunas=2 'Defina o número de colunasWhile not rs.EOFresponse.write"<tr>"for x= 1 to Colunasif rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet façaresponse.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet façaresponse.write "<TD valign=""top"">"response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"response.write "<tr>"response.write "<td width=""63"" valign=""top"">"response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"response.write "</td>"response.write "<td width=""143"" class=""fonte"" valign=""top"">"response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>'"&rs("titulo")&"'</strong>"response.write "<br>'"&rs("headline")&"'</font></a></td>"response.write "</tr>"response.write "</table>"response.write "</TD>"rs.movenextend ifnextresponse.write linha&"</TR>"wend%></table><%Wendrs.closeFechaConexaoSet rs = nothing %>

[Salgado 4]

Não vi nada pra cortar texto nesse código.

 

E erro 500, desabilite nas opções de seu browser "Exibir erros HTTP amigáveis"

[Daniel Paes 0]

<%AbreConexaoSQL = "SELECT TOP 6 * FROM tblnews  ORDER BY "& "'mes'" &" DESC"Set rs = Conexao.Execute(SQL)While not rs.EOFid_new = rs("id_new")function fResumir(texto,qtd)dim resumo        ' resumo do texto dim tam            ' tamanho do resumodim pos      ' indice do loopdim tamtxt    ' tamanho do textotam    = qtdtamtxt = 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 = textoend if' retorna texto resumidofResumir = resumoend functionheadline = textotexto = rs("headline")qtd = 65%><Table><%Colunas=2 'Defina o número de colunasWhile not rs.EOFresponse.write"<tr>"for x= 1 to Colunasif rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet façaresponse.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet façaresponse.write "<TD valign=""top"">"response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"response.write "<tr>"response.write "<td width=""63"" valign=""top"">"response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"response.write "</td>"response.write "<td width=""143"" class=""fonte"" valign=""top"">"response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>'"&rs("titulo")&"'</strong>"response.write "<br>'"&fResumir(texto, qtd)&"'</font></a></td>"response.write "</tr>"response.write "</table>"response.write "</TD>"rs.movenextend ifnextresponse.write linha&"</TR>"wend%></table><%Wendrs.closeFechaConexaoSet rs = nothing %>

da esse erro:

Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /asp/lol4.asp, line 62 function fResumir(texto,qtd)^

[Salgado 4]

Não sei se é isso, mas coloque a function fora do While.

[Daniel Paes 0]

Não sei se é isso, mas coloque a function fora do While.

Era isso mesmo salgado.... só que tem um problema.... não ta aparecendo nada, ou melhor, ele puxa do banco de dados o id_new, img_principal e titulo mas não apareceo headline que é o texto que eu quero cortar....

 

vou postar o codigo outra vez:

 

<%

function fResumir(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

 

' retorna texto resumido

fResumir = resumo

end function

headline = texto

texto = headline

qtd = 65

%>

<%

AbreConexao

SQL = "SELECT TOP 6 * FROM tblnews ORDER BY id_new DESC"

Set rs = Conexao.Execute(SQL)

While not rs.EOF

id_new = rs("id_new")

%>

 

<Table>

<%Colunas=2 'Defina o número de colunas

While not rs.EOF

response.write"<tr>"

for x= 1 to Colunas

if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"

else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça

response.write "<TD valign=""top"">"

response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"

response.write "<tr>"

response.write "<td width=""63"" valign=""top"">"

response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"

response.write "</td>"

response.write "<td width=""143"" class=""fonte"" valign=""top"">"

response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>'"&rs("titulo")&"'</strong>"

response.write "<br>'"&fResumir(texto, qtd)&"'</font></a></td>"

response.write "</tr>"

response.write "</table>"

response.write "</TD>"

rs.movenext

end if

next

response.write linha&"</TR>"

wend%>

</table>

<%

Wend

rs.close

FechaConexao

Set rs = nothing %>

 

espero que tenha entendido e obrigado pela ajuda

[Daniel Paes 0]

no caso essa linha aqui não apareçe:

response.write "<br>'"&fResumir(texto, qtd)&"'</font></a></td>"

se alguem tiver a solução agradeço

[Salgado 4]

response.write "<br>'"&fResumir(texto, qtd)&"'</font></a></td>"

Troca esse "texto" pelo Campo do RS.

[Daniel Paes 0]

response.write "<br>'"&fResumir(texto, qtd)&"'</font></a></td>"Troca esse "texto" pelo Campo do RS.

eu troquei e deu esse erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis /asp/lol4.asp, line 83

aonde eu errei?? eu troquei o texto para headline que é o texto que eu quero cortar

[Salgado 4]

Pelo que notei em seu código Headline está vazio.

response.write "<br>'"&fResumir(RS("Campo'), qtd)&"'</font></a></td>"

Coloque o RS dentro da função!

[Daniel Paes 0]

Pelo que notei em seu código Headline está vazio.

response.write "<br>'"&fResumir(RS("Campo'), qtd)&"'</font></a></td>"

Coloque o RS dentro da função!

Valeu salgado... era isso mesmo que estava faltando.... ta funcionando direitinho...Brigadão pela força e desculpa qualquer coisaUm abração

[Daniel Paes 0]

Aproveitando que estamos falando de tabela (imagina.. já tenho dois topicos mais um pessoal me xing....rs) ima info básica.... utilizando o select top, como eu faço para pegar os 10 primeiros registros só que intercalado.... tipo... 1,3,5,7,9 .... só que naum pode ser por id tem que ser por data tem como???

[Daniel Paes 0]

Alguem sabe se tem como fazer isso?????? Me ajudem!!!!!!!!

[Penna 0]

Usas ORDER by

[Daniel Paes 0]

Usas ORDER by

Mas como?? Usan o select top ??? como eu faço para ele pular um registro????

 

Olha só como ta mostrando os registros:

 

 

O primeiro ta ficando ao contrário....como eu faço para ajeitar isso????

 

Alguem pode me ajudar????? estou mesmo precisando acertar este problema