<<< CLIENTES >>>

En vivo

Chat

Encuesta

Origen y Significado de tu Nombre

Salud

Presentación flash

<% Dim DB_CONNECTIONSTRING, DB_CONNECTIONSTRINGf Dim objRecordset Dim k, t '************************************************** Set fp_conn = Server.CreateObject("ADODB.Connection") Set fp_connf = Server.CreateObject("ADODB.Connection") DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../database/hitparade.mdb") & ";" DB_CONNECTIONSTRINGf = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../database/fecha.mdb") & ";" Set fp_rs = Server.CreateObject("ADODB.Recordset") Set fp_rs2 = Server.CreateObject("ADODB.Recordset") fp_conn.Open db_ConnectionString, "", "" fp_connf.Open db_ConnectionStringf, "", "" fp_rs2.Open "periodo", fp_connf, 1, 3, 2 fp_rs2.movefirst %>

Del <% response.write fp_rs2.fields("d1") %> de <% response.write fp_rs2.fields("m1") %> al <% response.write fp_rs2.fields("d2") %> de <% response.write fp_rs2.fields("m2") %> de 2003

<% fp_rs.Open "hitparade", fp_conn, 1, 3, 2 fp_rs.MoveFirst t = 1 color = "#EFDFFF" k = 1 do while not fp_rs.eof if k <= 15 then response.write "" response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" end if if t = 1 then color = "#FFF0F4" t = 0 else color = "#EFDFFF" t = 1 end if fp_rs.movenext k = k + 1 loop %>

TS	+A	SP	No.	CANCIÓN	PAÍS	ARTISTA
" & fp_rs.fields("ts") & "	" & " " & fp_rs.fields("a") & "	" & " " & fp_rs.fields("sp") & "	" & " " & fp_rs.fields("nun") & "	" & " " & fp_rs.fields("can") & "	" & " " & fp_rs.fields("pais") & "	" & " " & fp_rs.fields("art") & "

<% fp_rs.MoveFirst t = 1 k = 16 color = "#EFDFFF" do while not fp_rs.eof if fp_rs.fields("nun") = k then response.write "" response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" & vbCrlf response.write "" k = k +1 end if if t = 1 then color = "#FFF0F4" t = 0 else color = "#EFDFFF" t = 1 end if fp_rs.MoveNext loop %>


TS = Total de Semanas	+A = Posición más alta que ha alcanzado
SP = Posición de la semana pasada	No. = Número que ocupa esta semana

PRONÓSTICOS:

No.

CANCIÓN

PAÍS

ARTISTA

" & "

" & fp_rs.fields("ts") & "

" & "

" & fp_rs.fields("can") & "

" & "

" & fp_rs.fields("pais") & "

" & "

" & fp_rs.fields("art") & "

MÚSICA PARA TODO EL MUNDO...!!