Escaparate
   Juegos
   Toys / Figuritas
   Bandas Sonoras
   Libros / Guias
   Consolas / Acc.
   Miscelanea








Como se compra Online


     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("  Ir a pagina " & i &"") Dim i i=1 while i< (pag_totales+1) Response.Write("Ir a pagina " & i &"") i=i+1 wend cant_registros = 0 if pag_actual < pag_totales then Response.Write("Pagina Siguiente") end if if pag_actual > 1 then Response.Write("Pagina Anterior") 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("Pagina Siguiente") end if if pag_actual > 1 then Response.Write("Pagina Anterior") end if RS.Close oConn.Close Set RS = nothing Set oConn = nothing %>







 



   Final Fantasy X

   Figura Tidus

   Flash Link GBA

   DVD PS2 Zone

   Chrono T. Guide

   FF Tactics

   XBox

   Gamecube