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
%>