<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rst
Set rst = Server.CreateObject("ADODB.Recordset")
rst.activeconnection = "dsn=tumusica;uid=Admin;pwd=grajeda;"
rst.Source = "SELECT * FROM eventlist where (eventdate > Now()) order by eventDate"
rst.CursorType = 0
rst.CursorLocation = 2
rst.LockType = 1
rst.Open()
%>
TU MUSICA en VIVO
