%@Language=VBScript%>
<%Option Explicit%>
<%
Dim conn, rs, query
Dim promocao, promocaoDesc, tituloPromocao, tituloPromocaoDesc, textoPromocao, isbnPromocao
Dim dataExpiracao, idImg
Dim erro
query = "SELECT promocoes.promocao, promocoes.tituloPromocao As promocaoDesc, " & _
" promocoes.texto As textoPromocao, titulos.codPrd As tituloPromocao, " & _
" titulos.titPrd As tituloPromocaoDesc, titulos.isbn As isbnPromocao, " & _
" promocoes.dataExpiracao, titulos.arqImg " & _
" FROM promocoes INNER JOIN t_produto As titulos ON promocoes.titulo = titulos.codPrd " & _
" WHERE GetDate() BetWeen promocoes.data And promocoes.dataExpiracao " & _
" AND promocoes.sorteada = 0"
Call conectar()
rs.Open query, conn
If Not rs.EOF Then
promocao = rs("promocao")
promocaoDesc = Trim(rs("promocaoDesc"))
textoPromocao = Trim(rs("textoPromocao"))
tituloPromocao = rs("tituloPromocao")
tituloPromocaoDesc = Trim(rs("tituloPromocaoDesc"))
isbnPromocao = Trim(rs("isbnPromocao"))
dataExpiracao = formatDate(rs("dataExpiracao"), "DD/MM/AA")
idImg = ""
Else
promocao = 0
End If
rs.close
%>