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