Busca de Produtos
 
Todos os Produtos



Clique aqui para voltar à página inicial
<% sSQL="SELECT * FROM MahleP " Const adCmdText = &H0001 Const adOpenStatic = 3 Set Conn = Server.CreateObject("ADODB.Connection") Set Command = Server.CreateObject("ADODB.Command") Set RS =Server.CreateObject("ADODB.RecordSet") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Fornecedores.mdb") RS.Open sSQL,Conn,adopenstatic,adcmdtext 'resultados por pagina a escolher arbitrariamente registros = 10 pagina = Request("pagina") If pagina = "" Then pagina = 1 Else pagina = Request("pagina") End If RS.PageSize = registros RS.Cachesize = registros RS.AbsolutePage = pagina response.write "" %> <% While not RS.EOF and x < RS.PageSize Dim x x = x + 1 response.write "" on error resume next Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") response.write "" RS.MoveNext Wend response.write "
 Nº Medauto   Nº Fabricante   Nº Original   Descrição   Imagem 
" & RS("NumeroMedauto") & "" & RS("NumeroFabricante") & "" & RS("NumeroOriginal") & "" & RS("Descricao") & "
" Dim anterior, proxima, ultima, primeira, ultm2, pagina anterior = pagina - 1 proxima = pagina + 1 ultima = RS.PageCount primeira = 1 ultm2 = FormatNumber(RS.PageCount - 1,0) If pagina <> 1 Then Response.Write " Primeira Página " End If If pagina > 1 AND pagina <> 2 Then Response.Write ""&anterior - 1&" " End If If pagina > 1 Then Response.Write " "&anterior&" " End If Response.Write " ["&pagina&"] " If Not RS.EOF Then Response.Write " "&proxima&" " End If If Not RS.EOF AND pagina <> ultima AND pagina <> ultm2 Then Response.Write " "&proxima + 1&" " End If If Not RS.EOF Then Response.Write "Última Página " End If %> <% RS.Close Conn.Close %>