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
%>
Conciertos ordenados por fecha
<%
Set LISTA = oConn.Execute("SELECT * FROM T_CONCIERTOS WHERE T_CONCIERTOS.FECHA>=Date()")
Do While Not LISTA.EOF
%>
<%
LISTA.MoveNext
Loop
LISTA.Close
Set LISTA = Nothing
oConn.Close
Set oConn = Nothing%>
<%= UCase(LISTA.Fields("ARTISTA").Value) %> | <%= LISTA.Fields("FECHA_T").Value %> |
<%= LISTA.Fields("NOMBRE_SALA").Value %> |