Escaparate    Juegos    Toys / Figuritas    Bandas Sonoras    Libros / Guias    Consolas / Acc.    Miscelanea - FF Games - Final Fantasy I Final Fantasy II Final Fantasy III Final Fantasy IV Final Fantasy V Final Fantasy VI Final Fantasy VII Final Fantasy VIII Final Fantasy IX Final Fantasy X FFantasy Tactics shop Chocobo Games - FF Zone Mania - News Magazine Reports Art Museum Art Books Fan Art Fan Fiction Música	Home Escaparate Games & Toys BSO & Books Hard & Misc <%Dim oConn, RS, mostrar, pag_totales, pag_actual, tipo_prod if Request.Querystring("tipo")="" then tipo_prod="GAME" else tipo_prod=Request.Querystring("tipo") end if Response.Write(" ") 'Conectamos a la BD. Set oConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") oConn.Open "w00294862_bd1" sql = "SELECT * FROM shop WHERE tipo='"&tipo_prod&"' ORDER BY id DESC" RS.Open sql, oConn,3,1 mostrar = 6 rs.PageSize = mostrar rs.CacheSize = mostrar if Request.Querystring("pagina")="" then pag_actual=1 else pag_actual=CInt(Request.Querystring("pagina")) end if pag_totales = rs.PageCount if pag_actual < 1 then pag_actual = 1 end if if pag_actual > pag_totales then pag_actual = pag_totales end if if pag_totales=0 then Response.Write("No hay productos ") else rs.AbsolutePage = pag_actual Response.Write("  ") Dim i i=1 while i< (pag_totales+1) Response.Write("") i=i+1 wend cant_registros = 0 if pag_actual < pag_totales then Response.Write("") end if if pag_actual > 1 then Response.Write("") end if %>

<%do while not rs.EOF and cant_registros < mostrar%>

	<%=RS("nombre")%>
	" target="_blank">.jpg" width="149" height="113" alt="<%=RS("nombre")%>" border="0">		" target="_blank" class="P"><%=RS("descripcion")%> " WIDTH="1" HEIGHT="1" border="2"> <%=RS("tienda")%>, <%=RS("idioma")%> <%=RS("ID")%>  &TIPO=TODOS" class="p">

<% cant_registros = cant_registros +1 RS.MoveNext Loop end if if cant_registros<4 then Response.Write("



") end if if pag_actual < pag_totales then Response.Write("") end if if pag_actual > 1 then Response.Write("") end if RS.Close oConn.Close Set RS = nothing Set oConn = nothing %>

Todos Games Toys B.S.O Art Books Varios      Final Fantasy X    Figura Tidus    Flash Link GBA    DVD PS2 Zone    Chrono T. Guide    FF Tactics    XBox    Gamecube