paginação 1,2,3

[angus 0]

como fazer páginação assim primeira 2,3,4,5 ultima, igual ao forum do imasters.

[angus 0]

Estou tentando fazer uma páginanção mas tá dando erro, porque?os capos são Id, texto em meu banco de dados.Porque este erro?Como resolver o problema?--------------------------------------------------Erro de compilação do Microsoft VBScript error '800a0400' Instrução esperada /piadas/default.asp, line 57 End If^------------------------------------------Olhem o código:<% registros = 20pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End If'Efetuando a conexão com a base de dados criada -----------------------Set conexao = Server.CreateObject("AdoDb.Connection") conexao.provider="Microsoft.Jet.OLEDB.4.0" conexao.connectionstring=Server.Mappath("piadas.mdb") conexao.open Set rs = Server.Createobject("ADODB.RECORDSET")set rs.ActiveConnection = Conexaors.CursorType = 3rs.PageSize = registrossql = "SELECT * FROM piadas ORDER BY id DESC"rs.Open sqlIf rs.EOF ThenResponse.Write "Nenhum registro encontrado"Elsers.AbsolutePage = paginaWhile Not rs.EOF AND x < rs.PageSizex = x + 1 %><b><%=rs("campo")%></b><br><% rs.MoveNextWendanterior = pagina - 1proxima = pagina + 1ultima = rs.PageCountprimeira = 1ultm2 = FormatNumber(rs.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "<b>« <a href=default.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b>[ <a href=default.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "End IfIf pagina > 1 ThenResponse.Write "<b>[ <a href=default.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "End IfResponse.Write "<b>[ "&pagina&" ]</b> "If Not rs.EOF ThenResponse.Write "<b>[ <a href=default.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "End IfIf Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "<b>[ <a href=default.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "End IfIf Not rs.EOF ThenResponse.Write "<b><a href=default.asp?pagina="&ultima&">Última Página</a> »</b> "End IfEnd Ifrs.CloseSet rs = NothingEnd If %>