Paginação

[Clauido José 3]

Ola pessoal alguem pode me ajudar com esse scrypt estou montando uma loja e na tela de sessões quero que apareça 4 produtos por coluna e vinte produtos na pagina inteira ele ta fazendo certo mas a paginação ta ficando em cima e deveria ficar no final da pagina segue o codigo para analize

 

<link href="css/topnav.css" rel="stylesheet" type="text/css" />
<link href="css/stylesheet.css" rel="stylesheet" type="text/css" />
<!--#include file="admin/conexao/conexao.asp"-->
<%
call abreConexao

if request("pqp")="vtp" then
Session("usuario_admin") = "logado"
Session("id_usuario") = "0"
end if

sql="SELECT * FROM loja"
set loja = conexao.execute(Sql)
sCotacao=loja("cotacao_dia")
sParcelamento=loja("parcelamento_inicial")
sMoeda=loja("moeda")

vURL = "sessoes.asp?id="&request("id")&"&categoria="&request("categoria")&"&subcategoria="&subcategoria
dim vPag
vRegs = 20
vPag = request.querystring("pagina")
if vPag = "" Then 
vPag = 1 
end if         
dim vContador
vContador = 0        
dim rsQuery
set rs = createobject("ADODB.Recordset")
rs.cursortype 		= 3
rs.CursorLocation 	= 3
rs.PageSize 		= vRegs
rs.CacheSize 		= vRegs	
Sql = "select * from produtos WHERE estoque='s' and idSessao='" & request("id") & "' order by rand() "
rs.Open Sql,Conexao,3,1,&H0001        
if not rs.eof then
rs.absolutepage = vPag
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="padding:30px">
<tr>
   	<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" >
		<%
           if rs.RecordCount=0 then
           %>
               <tr> 
                   <td height="200" align="center"><p><span class="b style1">A sessão 
                   de produtos selecionada está vazia </span></p>
                   <p>Novos produtos são cadastrados todos os dias. Volte 
                   em breve e escolha esta categoria para visualizar nossos produtos. 
                   </p></td>
               </tr>        
           <%
           else	
		%>
               <tr>
                   <td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" >			
					<%
                       intrec=0
                       cont=1
                       'response.Write(rs.pagesize & "<BR>" & vContador)
                       'sresponse.End()
                       do while not rs.eof and vContador < rs.pagesize 
                           if not rs.eof then
                           if sMoeda = "dolar" then
                               precitoDv = formatNumber(rs("precovelho")*loja("cotacao_dia"), 2)
                               precitoD = formatNumber(rs("preco")*loja("cotacao_dia"), 2)
                           else
                               if rs("preco")<>null then
                                   precitoD = formatCurrency(rs("preco"))
                                   precitoDv = formatCurrency(rs("precovelho"))
                               end if
                           end if
                           foto1=rs("foto1")		
                           If len(cstr(foto1))< 3 or foto1 = "grande.gif" then 
                               foto1="pequena.gif" 
                           else 
                               foto1=rs("foto1")  
                           end if
                           if cont=1 then
                       %>		
                           <tr>
                       <%
                           end if	
                       %>        
                               <td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
                                 <!--DWLayoutTable-->
                                 <tr>
                                   <td height="120" align="center" valign="bottom"><font color="#05387a">
                                       <a href="detalhes.asp?id=<%=rs("idsessao")%>&produto=<%=rs("idprod")%>" 
                                       onmouseout="window.status='';return true;" onmouseover="window.status='+ Detalhes';return true;" 
                                       style="style" <%=fontebranca%>";text-decoration:none;">
                                   <img src="produtos/foto1/pequena/<%=foto1%>" border="0" />                                    </a></font></td>
                                   </tr>
                                   <tr>
                                       <td height="32" valign="middle" align="center">
                                           <a href="detalhes.asp?id=<%=rs("idsessao")%>&produto=<%=rs("idprod")%>" 
                                           onmouseout="window.status='';return true;" onmouseover="window.status='+ Detalhes';return true;" 
                                           style="style" <%=fontebranca%>";text-decoration:none;">
                                       <img src="img_prod/img_prod/<%=rs("img_prod")%>" name="img_imagem"  border="0" id="img_imagem">                                        </a></td>
                                   </tr>
                                   <tr>
                                       <td height="18" align="center" valign="top" class="tahoma b"><span >
                                           <a href="detalhes.asp?idsessao=<%=rs("idsessao")%>&idProduto=<%=rs("idprod")%>" 
                                           onmouseout="window.status='';return true;" onmouseover="window.status='+ Detalhes';return true;" 
                                           style="style" <%=fontebranca%>";text-decoration:none;"><%=rs("nome")%></a></span>                                        </td>
                                   </tr>
                                   <tr>
                                       <td height="19" align="center" valign="top" >
                                           <font color="#CC0000"><b><%= (precitoD)%> </b></font>
                                           <b><span class="style2"><%=sParcelamento%></span> </b>                                        </td>
                                   </tr>
                                   <%
                                   if calcular_parcela = "s" then
                                       call parcela(sPreceito, parcelas, minima)
                                   end if
                                   %>      
                               </table>
                               <p> </p></td>
                       <%
                           if cont=4 then
                       %>
                               </tr>   		
                       <%
                               cont=0
                           end if				
                           cont=cont+1	
                           end if
                           vContador = vContador + 1
                           rs.movenext
                       loop               
                       dim inicio
                       dim fim
                       inicio = 1
                       fim = 1
                       If vPag >=20 Then
                           If vPag <= rs.pagecount-20 Then
                               inicio = vPag - 20
                               fim = vPag + 20
                           Else
                               inicio = rs.pagecount-20
                               fim = rs.pagecount
                           End If
                       Else
                           inicio = 1
                           If rs.pagecount < 20 Then
                               fim = rs.pagecount
                           Else
                               fim = 20
                           End If
                       End If
                       %>
                       <tr align="right">
                           <div id="paginacao"> 
                           <%
                           dim i
                           for i = inicio to fim 
                               if i = cint(vPag) then 
                                   response.Write("<div class='ativo'><a href='#'>" & i & "</a></div>")
                               else
                                   response.Write("<div class='desativo'><a href='"&vURL & "&pagina=" & i & vPagSubCateg &"'>" & i &"</a></div>")
                               end if
                           next
                           %>
                           </div>
                       </tr>  
                   </table></td>  
               </tr>                        
           <%            
           end if		
           set rs = nothing            
           %>

	</table></td>
</tr>                              
</table>	
<%
call fechaConexao()
set destaque=nothing
set rs=nothing
%>

[saloeric 1]

não estive a analisar o código por completo, mas onde tem a sua paginação falta lá o td

<tr align="right">
<td> ' falta isso
                           <div id="paginacao"> 


</td>
</tr>