links que organiza por

[pimenta 0]

Olá pessoal;

Eu tenho esse código que mostra os títulos e suas respectivas datas das mensagens postadas por um usuário...

 

ASP

[*]<%

 

[*] Dim ConnDB

 

[*] Set ConnDB = Server.CreateObject("ADODB.Connection")

 

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

 

[*] Set rs = Server.CreateObject("ADODB.Recordset")

 

[*]

 

[*] SQL2 = "Select * From posts where autorpost = '" & Session("nome768") & "' order by id desc"

 

[*] Set RS = ConnDB.Execute(SQL2) %>

 

[*]

 

[*]<div id="lista" style="position:absolute; left:0px; top:20px; width:652px; height:121px; z-index:2; overflow: auto; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000;">

 

[*]

 

[*]<% do until RS.EOF

 

[*]data2 = Rs("datapost")

 

[*] data = split(rs("datapost"),"/")

 

[*] dia = data(0)

 

[*] mes = data(1)

 

[*] ano = data(2)

 

[*] if len(dia) = 1 then

 

[*] dia = "0" & dia

 

[*] end if

 

[*] if len(mes) = 1 then

 

[*] mes = "0" & mes

 

[*] end if

 

[*] if len(ano) = 1 then

 

[*] mes = "0" & ano

 

[*] end if

 

[*] if data2 = DATE() THEN

 

[*] datapost = "<font color='#FF0000'>" & dia & "." & mes & "." & Right(ano, 2) & "</font>"

 

[*] else

 

[*] datapost = dia & "." & mes & "." & Right(ano, 2)

 

[*] end if

 

[*]  response.write "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""fonte18""><tr><a href=""editar.asp?cod="&RS("id")&""" target=""conteudo2"" style=""cursor:default;""><td style=""cursor:default;""> "&RS("titpost")&"</td>"

 

[*]  response.write "<td width=""80"" align=""right"">"&RS("datapost")&" </td></a></tr></table>"

 

[*] RS.MoveNext 

 

[*]  if not RS.EOF then

 

[*]  response.write "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""fonte18""><tr><a href=""editar.asp?cod="&RS("id")&""" target=""conteudo2"" style=""cursor:default;""><td style=""cursor:default;""> "&RS("titpost")&"</td>"

 

[*]  response.write "<td width=""80"" align=""right"">"&RS("datapost")&" </td></a></tr></table>"

 

[*] RS.MoveNext 

 

[*]  end if

 

[*]  loop 

 

[*] RS.Close %>

 

[*]

 

[*]</div>

 

Eu queria fazer dois links (título e Data) que organizasse os posts

 

 

Ex:

por data

título b 21/06/05

tílulo a 04/06/05

título c 27/05/05

 

por título

tílulo a 04/06/05

título b 21/06/05

título c 27/05/05

 

obrigado

[mx loco 1]

Tente isso.

 

<%             Dim ConnDB             Set ConnDB =  Server.CreateObject("ADODB.Connection")             ConnDB.Open "DBQ=" & Server.MapPath("../../banco/principal.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"             Set rs = Server.CreateObject("ADODB.Recordset")                          'No link para ordenar por data coloque <a href="seupagina.asp?Ordem=Data>     'No link para ordenar por titulo coloque <a href="seupagina.asp?Ordem=titulo>     Ordem = request("Ordem")     If Ordem = "Data" then     SQL2 = "Select * From posts where autorpost = '" & Session("nome768") & "' order by datapost desc"     Else     SQL2 = "Select * From posts where autorpost = '" & Session("nome768") & "' order by titulo desc"     End if                  Set RS = ConnDB.Execute(SQL2) %>              <div id="lista" style="position:absolute; left:0px; top:20px; width:652px; height:121px; z-index:2; overflow: auto; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000;"> <% do until RS.EOF data2 = Rs("datapost")                 data = split(rs("datapost"),"/")                 dia = data(0)                 mes = data(1)                 ano = data(2)                 if len(dia) = 1 then                 dia = "0" & dia                 end if                 if len(mes) = 1 then                 mes = "0" & mes                 end if                 if len(ano) = 1 then                 mes = "0" & ano                 end if                 if data2 = DATE() THEN                 datapost = "<font color='#FF0000'>" & dia & "." & mes & "." & Right(ano, 2) & "</font>"                 else                 datapost = dia & "." & mes & "." & Right(ano, 2)                 end if      response.write "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""fonte18""><tr><a href=""editar.asp?cod="&RS("id")&""" target=""conteudo2"" style=""cursor:default;""><td style=""cursor:default;""> "&RS("titpost")&"</td>"      response.write "<td width=""80"" align=""right"">"&RS("datapost")&" </td></a></tr></table>"             RS.MoveNext     if not RS.EOF then      response.write "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""fonte18""><tr><a href=""editar.asp?cod="&RS("id")&""" target=""conteudo2"" style=""cursor:default;""><td style=""cursor:default;""> "&RS("titpost")&"</td>"      response.write "<td width=""80"" align=""right"">"&RS("datapost")&" </td></a></tr></table>"             RS.MoveNext     end if    loop              RS.Close %></div>  

^_^

[pimenta 0]

Amigo;

deu esse erro

 

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1./blog/juseundi/blog/admin/lista.asp, line 38

line 38 Set RS = ConnDB.Execute(SQL2) %>

[mx loco 1]

aki funcionou tudo certo.....pois olhe so a logico.. se o valor da variavel ordem passada por url for = Data ele vai montar a SQL2 ordenando por data, caso a variavel ordem receber um valor diferende de data, ele organiza por titulo.de uma olhada ai diretio.. pois sempre uso desta forma.

[pimenta 0]

Infelizmente aqui não funcionou... vou dar uma estudada na sua alteração e ver se existe alguma incompatibilidade com o resto do código.

 

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

 

Eu já resolvi - o nome do comando título não estava correto http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Obrigado

[mx loco 1]

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif é isso ai velho