Jump menu

pimenta · Janeiro 18, 2005

Bom dia!

Eu gostaria de saber como eu poderia fazer um Jump menu que Ordene os artigos por Mais clicados, Autor, titulo, categoria, mais recente e mais velhos.

Aproveitando como faço para fazer um Jump menu que modifica a quantidade de Tutoriais por página

Parecido com esse

Valeu :D

EwE · Janeiro 18, 2005

Numa pag você faz assim

<form action="" method="post"><select name="tipo"><option value="Mais clicados">Mais clicados</option><option value="Autor">Autor</option><option value="titulo">titulo</option><option value="categoria">categoria</option><option value="mais recente"></option><option value="mais velhos">mais velhos</option></select><select name="num"><option value="10">10</option><option value="20">20</option><option value="30">30</option></select><input type="submit"></form>

e na pag q vai receber o form faz isto

ASP [/tr][tr]

<%

dim num, ordem

dim strSQL

num = request.form("num")

ordem = request.form("tipo")

SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")

CONN.OPEN "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb")

strSQL = "SELEC TOP " & num & " * FROM tabela ORDER BY ' " & tipo & " ' "

SET RS = SERVER.CreateObject("AdoDb.Recordset")

RS.OPEN strSQL,CONN

[/tr]

pimenta · Janeiro 19, 2005

Usei o seguinte codigo seu, ja modificado:

Sendo o form como:

 <tr>    <td height="1"><form action="news.asp" method="post"><select name="tipo"><option value="NewsRead">Mais clicados</option><option value="NewsAuthor">Autor</option><option value="NewsHeadline">Titulo</option><option value="NewsCategory">Categoria</option></select><select name="num"><option value="10">10</option><option value="20">20</option><option value="30">30</option></select><input type="submit"></form></td>  </tr>

O código ASP como:

ASP [/tr][tr]

<%

dim num, ordem

dim strSQL

num = request.form("num")

ordem = request.form("tipo")

SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")

CONN.OPEN "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("~db\news.mdb")

strSQL = "SELEC TOP " & num & " * FROM News ORDER BY ' " & tipo & " ' "

SET RS = SERVER.CreateObject("AdoDb.Recordset")

RS.OPEN strSQL,CONN

%>

[/tr]

E deu seguinte erro:

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Instrução SQL inválida. 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' esperado./blog/Jus eundi/noticia/news.asp, line 21

O que há de errado?