<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Session.LCID=1036%> Cleaner-crav <% dim rs, sql, sdata dia=day(now) mes=month(now) ano=year(now) sData=mes&"/"&dia&"/"&ano ' seleciono as noticias sqlnews= "SELECT codrep, manchete, foto, txtchamada FROM reportagens ORDER BY codrep DESC" set rsnews=cn.execute(sqlnews) ' seleciono as visitas em seus respectivos dias no banco sqlvisitas = "SELECT dia, visitas FROM cont ORDER BY codigo DESC" set rsvisitas=cn.execute(sqlvisitas) hoje=date 'dia=rsvisitas("dia") if dia = hoje then visitas=rsvisitas("visitas")+1 ' atualizo a variavel visitas no banco sqlmaisvisitas="UPDATE cont SET visitas ='" & visitas & "' WHERE dia =#" & dia & "#" 'cn.execute sqlmaisvisitas else sqldia="insert into cont (dia)" &_ " values ('" & hoje & "')" 'cn.execute(sqldia) end if %>
::Empresa ::
:: Produtos ::
Contato
Nome
Seu email
Assunto
Mensagem
Anexo
 

Envie seu e-mail para nosso atendimento.
Cleaner Industria Química Ltda
Rua: Manoel Gomes dos Santos, 201 - Cravinhos
Fone:(16) 3951-1667