Últimas Notícias
|
Anuncie Aqui
|
Fale Conosco
Todos os Canais
<% hora = hour(now)-1 minuto = minute(now) if Len(hora) = 1 Then hora = "0" & hora end if if Len(minuto) = 1 Then minuto = "0" & minuto end if minha_hora = hora & ":" & minuto set rsprocuraDepartamento= Server.createobject("adodb.recordset") rsprocuraDepartamento.CursorLocation=3 cmdsql = "SELECT cod_departamento,descricao, cod_site " cmdsql = cmdsql & "from painel_departamento " cmdsql = cmdsql & "where cod_site = " & codsite & " " cmdsql = cmdsql & "and cod_departamento<>'200' " cmdsql = cmdsql & "order by descricao " rsprocuraDepartamento.open cmdsql, "driver=MySQL ODBC 3.51 Driver;DATABASE=wwbrasil;SERVER=" & ip & ";UID=wwbrasil;PASSWORD=toshiba" if rsprocuraDepartamento.recordcount <> 0 then %> <% do while not rsprocuraDepartamento.eof %>
"> <% 'Response.Write Mid (rsprocuraDepartamento("descricao"),1,5) 'Response.Write Lcase (rsprocuraDepartamento("descricao")) descricaoBD=rsprocuraDepartamento("descricao") descricaoLC= lcase(descricaoBD) descricao= Mid((descricaoLC),1,20) response.write descricao If Len(descricaoLC) > 20 then response.write("...") end if %>
<% rsprocuraDepartamento.movenext loop %> <%else%>
<% end if rsprocuraDepartamento.close %>
ANUNCIE AQUI !!!
Escolha os formatos de Anuncio abaixo.
Super Banner
( topo, meio, rodapé
468x60
)
Mini Banner
(lateral
100x280
)
Nome
*
Email
*
Título
*
Comentário
*