<% Dim reg, img_ofertas Set reg = Server.CreateObject("ADODB.Recordset") Set reg.ActiveConnection = objconexao sql = "SELECT * FROM ofertas ORDER BY data DESC" reg.open sql img1 = reg("img1") img2 = reg("img2") img3 = reg("img3") img4 = reg("img4") if reg("img1") <> "semimagem.jpg" then list = list & reg("img1") & "|" end if if reg("img2") <> "semimagem.jpg" then list = list & reg("img2") & "|" end if if reg("img3") <> "semimagem.jpg" then list = list & reg("img3") & "|" end if if reg("img4") <> "semimagem.jpg" then list = list & reg("img4") & "|" end if list = left(list, len(list) - 1) %> .: SUPERVALE SUPERMERCADOS :.
 

Ofertas
<% if img2 <> "semimagem.jpg" then%> <% end if %> <% if img2 <> "semimagem.jpg" then%> <% end if %>
Ofertas
Ofertas
Ofertas
Ofertas