<%do while not rs.EOF and cant_registros < mostrar fecha = RS("dia")%> <% cant_registros = cant_registros +1 RS.MoveNext Loop end if RS.Close oConn.Close Set RS = nothing Set oConn = nothing %>
Página " & Pag_actual & " de " & pag_totales &"  
") cant_registros = 0 if pag_actual < pag_totales then Response.Write("Carta Anterior Anteriores - ") end if if pag_actual > 1 then Response.Write(" Siguientes Siguiente carta  ") end if %>
Busqueda de cartas

<% Dim oConn, RS, mostrar, pag_totales, pag_actual 'Conectamos a la BD. fecha_actual = Now fecha_inicio = CDate("12/03/2001") dias_ant = DateDiff ("d", fecha_inicio, fecha_actual) Response.Write("FFCards: " & dias_ant & "  
") Set oConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") oConn.Open "w00294862_bd1" if len(Request.Querystring("final"))=0 then sql = "SELECT * FROM ffcards WHERE Id1<="&dias_ant&" ORDER BY id1 DESC" else if len(Request.Querystring("texto"))=0 then final_x=Request.Querystring("final") Response.Write("Final: " & final_x & "
") sql = "SELECT * FROM ffcards WHERE final='"&final_x&"' ORDER BY id1 DESC" else texto_x=Request.Querystring("texto") Response.Write("Busqueda: " & texto_x & "
") sql = "SELECT * FROM ffcards WHERE nombre LIKE '%"&texto_x&"%' ORDER BY id1 DESC" final_x="todos" end if end if RS.Open sql, oConn,3,1 mostrar = 10 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 cartas
','','width=400,height=615');">_th.gif" width="46" height="46" alt="Ampliar <%=(RS.Fields("nombre"))%>" border="0" align="left">','','width=400,height=615');" class="P">  <%=(RS.Fields("nombre"))%>
  Número:<%=RS("numero")%>  Colección: <%=(RS.Fields("final"))%>
  Fecha: <%=(RS.Fields("dia"))%>  Vis:<%=(RS.Fields("total"))%> Id:<%=(RS.Fields("id1"))%>

','','width=400,height=615');">.gif" width="119" height="69" alt="" border="0">



Final Fantasy Art Museum ©Squaresoft
Todas las cartas aquí expuestas corresponden a la colección Final Fantasy Art Museum, no aparece el dorso de ninguna de ellas
Colaboradores