<% Set Conn= Server.CreateObject("adodb.connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("chat/LiveSupport.mdb") '-------------------------------------------------------------------------------------------------- SQl = "select * from tblSettings where Online = '0'" set Rs = Conn.execute(SQL) '-------------------------------------------------------------------------------------------------- if Rs.eof then '*** Para aparecer a imagem de Atendimento "Online" Response.Write "


" else '*** Para aparecer a imagem de Atendimento "Offline" >>> Ative se vc quiser que avise que nao em ninguem "Online" 'Response.Write " &strLg259&


" end if '-------------------------------------------------------------------------------------------------- set rs = nothing set atend = nothing%>
<% if VersaoDb = 1 then set rs = abredb.execute("SELECT idprod, nome, preco FROM produtos ORDER BY contador DESC LIMIT 0,3") else set rs = abredb.execute("SELECT TOP 5 idprod, nome, preco FROM produtos ORDER BY contador DESC") end if cont = 1 if not rs.eof then for x = 1 to 5%> <%cont = cont + 1%> <%rs.movenext%> <%next%> <%end if%>
" onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="text-decoration: none;"><%=rs("nome")%>
<%= strlgMoeda & " " & formatnumber(rs("preco"),2)%>
Caso queira receber ofertas especiais e novidades , preencha o campo abaixo(e-mail):