GUIA PARA ENCONTRAR TU MUSICA, TUS GRUPOS Y LOS CONCIERTOS DE TUS GRUPOS FAVORITOS
<%
set oConn=Server.CreateObject("ADODB.Connection")
set CONCIERTO=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("DATOS/datos_conciertos.mdb")
SQL="SELECT * FROM T_CONCIERTOS WHERE T_CONCIERTOS.FECHA>=Date() AND T_CONCIERTOS.PORTADA=-1"
CONCIERTO.OPEN sql, oconn, 3, 1
intTotalRecords = CONCIERTO.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
CONCIERTO.Move intRandomNumber
%>
En <%response.write(CONCIERTO("MES"))%> ...
<%
dim CARACTERES
if len(CONCIERTO("ARTISTA")) < 7 then
CARACTERES = 50
elseif len(CONCIERTO("ARTISTA")) < 15 then
CARACTERES = 40
elseif len(CONCIERTO("ARTISTA")) < 25 then
CARACTERES = 30
else
CARACTERES = 25
end if
%>
')"style="font-size: <%response.write(CARACTERES)%>px;"><%response.write(CONCIERTO("ARTISTA"))%>
<%CONCIERTO.Close
Set CONCIERTO = Nothing
%>
Grupos
<%
Set registro = oConn.Execute("SELECT * FROM T_GRUPOS")
if not registro.eof then
response.write ""
contador=0
while not registro.eof
if (contador mod 3)=0 then response.write "
"
end if%>
<%
registro.close
set registro=nothing
oConn.Close
Set oConn = Nothing
%>
| "
%>
.asp')"> " &" | "%>
<%contador=contador+1
if (contador mod 3)=0 then response.write "" response.write " |