|
|
 |
|
|
|
|
|
<%
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 | Página " & Pag_actual & " de " & pag_totales &"
")
cant_registros = 0
if pag_actual < pag_totales then
Response.Write(" Anteriores - ")
end if
if pag_actual > 1 then
Response.Write(" Siguientes  ")
end if
%>
| |
|
|
|
|
<%do while not rs.EOF and cant_registros < mostrar
fecha = RS("dia")%>
|
|
|
','','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"> | |
|
|
|
|
<%
cant_registros = cant_registros +1
RS.MoveNext
Loop
end if
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
|
|
|
 |
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
|
 |
|
|
|
|