Paginação

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
%>