1900 Pizzeria

<% ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\w1900\dados\sugestoes.mdb;" Set Dados = Server.CreateObject("ADODB.Connection") Dados.Open ConnString dt_t1 = ( year( date() ) * 10000 + month( date() ) * 100 + day( date() ) ) sql = "SELECT * FROM banner" sql = sql & " WHERE " sql = sql & " ( year( dt_ini ) * 10000 + month( dt_ini ) * 100 + day( dt_ini ) ) <= "& dt_t1 &" " sql = sql & "and ( year( dt_fim ) * 10000 + month( dt_fim ) * 100 + day( dt_fim ) ) >= "& dt_t1 &" " ' response.write sql Set Tabela = Dados.Execute(sql) if (Tabela.eof or Tabela.bof) then w_achei = 0 w_img = "random_banner.swf" else w_achei = 1 w_img = tabela("img") w_ini = tabela("dt_ini") w_fim = tabela("dt_fim") end if ' response.write w_achei ' response.write w_img ' response.write dt_t1 ' response.write w_ini ' response.write w_fim %> 1900 Pizzeria


Faça um tour pelas lojas e veja como chegar clicando nos links abaixo.

SP - Brasil - Última atualização: 22.01.09