<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires=0 Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select ID, titulo, promocao " sql = sql & " FROM shows " sql = sql & " WHERE DateValue('"&date()&"') BETWEEN DateValue(diai&'/'&mesi&'/'&anoi) AND DateValue(diaf&'/'&mesf&'/'&anof) " sql = sql & " AND status = 1 " sql = sql & " ORDER BY DateValue(diaf&'/'&mesf&'/'&anof) " Rs.Open sql, Conexao, 3, 3 %> Via Funchal
 
 


PREFERÊNCIAS MUSICAIS