questao 1
Dim SQL, rst, Contador, i, Pagina, Origem, Categoria, NReg
Categoria = Request("Categoria") 'valor do parâmetro
Pagina = trim(Request("Pag")) 'página a ser exibida
SQL = "SELECT Filmes.[Codigo do filme], Filmes.[Codigo da categoria], Filmes.[Tipo produto], Categorias.[Nome da categoria], Filmes.[Nome do filme] FROM Categorias INNER JOIN Filmes ON Categorias.[Codigo da categoria] = Filmes.[Codigo da categoria] WHERE Filmes.[Codigo da categoria] = " & Categoria & " ORDER BY Categorias.[Nome da categoria], Filmes.[Nome do filme];"
Set rst = server.createobject("adodb.recordset")
rst.open SQL, vgdb, 1, 1
if rst.eof then 'se não tiver registros
Response.Redirect("Default.asp")
end if
NReg = rst.recordcount 'numero de registros da página
if Pagina = "" then Pagina = 1 'se a página vier em branco mostra a primeira
Contador = ((Pagina - 1) * 42 ) + 1 'registro inicial (exemplo página2: (2 -1) * 42 + 1 = 42 + 1 = 43 -> registro inicial = 43 )
rst.pagesize = 42 'número de registros por página
rst.absolutepage = Pagina 'página a ser motrada
**********************************
questão 2
select
count(*) as total, --numero de registro para cada tipo
A2_TIPO --tipos de fornecedores
from SA2010
group by A2_TIPO
