% strSQL = "select * from Promocao where Jornal = 'Viamao' ORDER BY idPromocao desc" set rsPromocao = Server.CreateObject("adodb.recordset") rsPromocao.Open strSQL,conexao, 3 if not rsPromocao.eof then idPromocao = rsPromocao("idPromocao") strImgPromocao = "../img/promocao/"&rsPromocao("idPromocao")&"_promocao.jpg" else idPromocao = 0 strImgPromocao = "../img/promocao_aguarde.jpg" end if %>
|