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

	ESPECIAL OFFERS AND PROMOS   When you sign up on our mailing list you can get: <%While NOT Rs.EOF%> <% if Rs(2) <> "" then %> Promo<%=Rs(1)%> <%=Rs(2)%> <% else %><% end if %> <% Rs.MoveNext() Wend %> The results are shown 2 days before the show Not signed in yet? Click here apoio: