Os 10 últimos posts

[pimenta 0]

Uma ótima semana a todos.

 

Eu alterei o script original para que ele somente demonstrasse os dez últimos títulos dos posts para a home. Porém o número de títulos não estão saindo de acordo com a quantidade especificada. Outra coisa que não consigo fazer e que a frase deixe de ficar todo em minúsculo...

 

Ex: justiça federal julga ações sobre tarifas de assinatura.

 

Gostaria que ela ficasse assim:

 

Ex: Justiça federal julga ações sobre tarifas de assinatura.

 

Por último, como faço para que os títulos apareçam uma numeração

 

Ex:

1 titulo1

2 titulo2

3 titulo3

4 titulo4

...

 

Obrigado

 

ASP [/tr][tr]<%

'--------------------------------------------------

' FUNÇÃO BLOG BANCO DE DADOS

'--------------------------------------------------

Dim ConnDB

Set ConnDB = Server.CreateObject("ADODB.Connection")

ConnDB.Open "DBQ=" & Server.MapPath("../bancos/principal.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Set rs = Server.CreateObject("ADODB.Recordset")

 

SQL2 = "Select titblog From login"

Set RS = ConnDB.Execute(SQL2)

 

Session.LCID = 1046 'BRASIL

%>

<script LANGUAGE="JavaScript">

<!--

function pop(param, param2, w, h) {

 

window.open(param, param2, 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resiza

ble=no,' + 'width=' + w + ',height=' + h);

 

}

 

// -->

</script>

<%

'--------------------------------------------------

' FUNÇÃO POSTAGEM BLOG

'--------------------------------------------------

 

SQL = "Select top 10 * From posts order by id desc"

Set RS = ConnDB.Execute(SQL)

Function to_html(s_string)

to_html = Replace(s_string, vbcrlf, "<br>")

to_html = Replace(to_html, " ", "")

to_html = Replace(to_html, Chr(9),"  ")

End Function

 

dim data

data = ""

While not RS.EOF

if data <> rs("datapost") then

data = split(rs("datapost"),"/")

dia = data(0)

mes = data(1)

if len(dia) = 1 then

dia = "0" & dia

end if

if len(mes) = 1 then

mes = "0" & mes

end if

datapost = dia & "/" & mes

response.write "<div class=""fonte1"">"& datapost &" <a href=""../blog/popposts.asp?id="&RS("id")&""">"& lcase(RS("titpost"))&"</a></div>"

data = rs("datapost")

else

end if

RS.MoveNext

Wend

%>

<%

SQL3 ="Select datapost FROM posts"

Set RS = ConnDB.Execute(SQL3)

%>

[/tr]

[mkboy 1]

Seletc TOP 10 * fromEsse funciona no ACCESS

[dark0 0]

Hum..você esta usando Select Top né..Quais campos você quer pegar no Select?"Select campo1,campo2 from Tabela ordey By campo desc;"..você pode usar o * tb.. como usou.. mas dependendo da quantidade de campos e dados de sua tabela, isso pode fazer seu codigo perder performance! Pois o * pega todos os dados da tabela.. imagine uma tabela gigante...hehehe

[Mário Monteiro 179]

pra colocar os numeros basta colocar um contador dentro do loop, ou então usar a propriedade absoluteposition do recordeset...

[pimenta 0]

dark0

 

você me fez ver o quanto eu estava complicando...

Consegui resolver o problema fazendo assim...

 

ASP [/tr][tr]

'--------------------------------------------------

' FUNÇÃO POSTAGEM BLOG

'--------------------------------------------------

 

SQL = "Select top 10 datapost,titpost,id From posts order by id desc"

Set RS = ConnDB.Execute(SQL)

Function to_html(s_string)

to_html = Replace(s_string, vbcrlf, "<br>")

to_html = Replace(to_html, " ", "")

to_html = Replace(to_html, Chr(9),"  ")

End Function

While not RS.EOF

data = split(rs("datapost"),"/")

dia = data(0)

mes = data(1)

if len(dia) = 1 then

dia = "0" & dia

end if

if len(mes) = 1 then

mes = "0" & mes

end if

datapost = dia & "/" & mes

response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td class=""fonte7"">"& datapost &" <a href=""../blog/popposts.asp?id="&RS("id")&""" class=""fonte1"">"& lcase(RS("titpost"))&"</a></td></tr>"

response.write "<tr><td><img src=""../img/02_marca_2.gif"" width=""4"" height=""4""></td></tr></table>"

data = rs("datapost")

RS.MoveNext

Wend

%>

[/tr]

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif Obrigado pela luz

[pimenta 0]

marioufpa

 

Também consegui acrescentar a numeração – ficou jóia.

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[pimenta 0]

Agora só resta resolver um problema que é passar a primeira letra para maiúsculo.Eu não faço a mínima idéia porque ela ta ficando em minúsculo.Ex: justiça federal julga ações sobre tarifas de assinatura. Gostaria que ela ficasse assim:Ex: Justiça federal julga ações sobre tarifas de assinatura.

[Mário Monteiro 179]

usa funções de manupulação de texto como LEFT MID ou RIGHT juntamente com UCASE e LENtipo assimVariavel = "abc"Variavel = UCASE(LEFT(Variavel,1)) & RIGTH(Variavel,LEN(Variavel)-1)Agora provavelmente a variavel tem o valor de AbcBem não testei mas tenta ai

[pimenta 0]

Valeu pela ajuda, fico devendo essa! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Mário Monteiro 179]

Valeu pela ajuda, fico devendo essa! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

ok cara http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[FabricioGomes 0]

ou entao procura por first-letter, em CSS...