Problemas con ASP y db

[mc_quake]

yo lo ocupo asi mira

<%
If rs.recordcount > 0 Then
Paging = Request.QueryString("pag")
If Paging <> "" then
Session("Page") = Request.QueryString("pag")
If not isnumeric(Paging) then Session("Page") = 1
If Paging < 1 then Session("Page") = 1
Else
Session("Page") = 1
End If
Num_Registros = 9
Rs.PageSize = Num_Registros
Rs.AbsolutePage = Session("Page")
While (Not Rs.Eof And Rs_Reg < Num_Registros)
Rs_Reg = Rs_Reg + 1
%>

<td width="118" align="left">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="87" height="130" align="center" valign="middle"><a href="javascript:;" onclick="abrir_ventana('view.asp?id=<%=rs("g_id")% >',400,700,'yes')"><img src="_file/_wallpaper/<%=rs("g_foto_ch")%>" hspace="5" vspace="5" border="0" /></a></td>
<td width="17" rowspan="2" bgcolor="#CCCCCC"><% If Rs_Reg = 1 OR Rs_Reg = 2 OR Rs_Reg = 4 OR Rs_Reg = 5 OR Rs_Reg = 7 OR Rs_Reg = 8 then %>
<img src="_imag/_pix.gif" width="1" height="1" />
<% End If %></td>
</tr>
<tr>
<td <% if Rs_Reg < 7 then %>bgcolor="#CCCCCC"<% End If %>><img src="_imag/_pix.gif" width="1" height="1" /></td>
</tr>
</table></td>

<%
if Rs_Reg Mod 3 = 0 then
Response.Write("</tr><tr>")

End If %>
<%
Rs.MoveNext
Wend
%>
<% If Rs.recordcount > 9 Then %>
<div align="center" class="Texto">Pag.
<%
Pagina = Request.ServerVariables("URL")
Query = "&id="&Trim(Request.QueryString("id"))&"&nombre="& Trim(Request.QueryString("nombre"))
x = 0
If Int(Session("Page")) > 1 then Response.Write "<a href="&Pagina&"?pag="&Int(Session("page"))-1&Query&">&laquo;&laquo;</a> - "
While x < Rs.PageCount
x = x + 1
If Int(Session("page")) = x then
Response.Write "<b><font color=#FF0000>["&x&"]</font></b>"
Else
Response.Write "<a href="&Pagina&"?pag="&x&Query&">"&x&"</a>"
End If
If x < Rs.PageCount Then Response.Write(" - ")
Wend
If Int(Session("page")) < x then Response.Write " - <a href="&Pagina&"?pag="&Int(Session("page"))+1&Query &">&raquo;&raquo;</a>"
End If