[Resolvido] Paginação ASP + MySQL

[bfraga 0]

Analizem esse código e me digam se posso melhorar, vamos montar juntos um código nesse sentido, pois não achei nenhum que use ASP e MySQL.

 

<%gString = "DRIVER=MySQL ODBC 3.51 Driver;DATABASE=blog;SERVER=localhost;UID=root;PASSWORD=;"	Set Conexao = Server.CreateObject("ADODB.Connection")	Set campo = Server.CreateObject("ADODB.RecordSet")	Set campo2 = Server.CreateObject("ADODB.RecordSet")	Conexao.connectionString = gString	Conexao.Opensql = "select * from fotos"sql2 = "SELECT COUNT(*) as ID FROM fotos"set contador = conexao.execute(sql2)limite = 4paginas = contador("ID") / limite'response.write paginas&"<br>"pagina = request.querystring("p")teste1 = 0teste2 = limiteif pagina > 1 Thenteste1 = pagina * limite - limite End Ifsql = sql & " limit "&teste1&", "&limite&""'response.write sql&"<br>"set campo = conexao.execute(sql)campo.movefirstwhile not campo.EOFresponse.write campo("foto")&"<br>"campo.MoveNextwend%><p>Páginas: <%  teste = 0    while teste < paginas    teste = teste + 1%><a href="teste.asp?p=<%=teste%>"><%=teste%></a><%    wend%><p>