<% mes = month(now)%> <% if mes = "1" then %> <% mes = "Janeiro"%> <% end if%> <% if mes = "2" then %> <% mes = "Fevereiro"%> <% end if%> <% if mes = "3" then %> <% mes = "Marco"%> <% end if%> <% if mes = "4" then %> <% mes = "Abril"%> <% end if%> <% if mes = "5" then %> <% mes = "Maio"%> <% end if%> <% if mes = "6" then %> <% mes = "Junho"%> <% end if%> <% if mes = "7" then %> <% mes = "Julho"%> <% end if%> <% if mes = "8" then %> <% mes = "Agosto"%> <% end if%> <% if mes = "9" then %> <% mes = "Setembro"%> <% end if%> <% if mes = "10" then %> <% mes = "Outubro"%> <% end if%> <% if mes = "11" then %> <% mes = "Novembro"%> <% end if%> <% if mes = "12" then %><% mes = "Dezembro"%><% end if%> <% ano = year(now) %>
Enviar Notícias para
Usinagem Brasil
Receber boletim do
Usinagem Brasil
Buscar
Apoio:

   Cadastro


Preencha este cadastro para  receber o boletim semanal com as novidades colocadas no site usinagem-brasil.

Nome:


Empresa:


E-mail (1):


E-mail (2):

Indique um amigo:

Nome:


Empresa:


E-mail:

Caso você tenha dificuldade no momento de enviar, mande um e-mail para cadastro@usinagem-brasil.com.br com os mesmos dados (nome, empresa e e-mail).

Pode também aproveitar para indicar o endereço eletrônico de algum amigo que você acha que gostaria de receber o boletim do site.

 

________________________
<% 'vetor = Sorteia(13,12) vetor = Sorteia(15, 15) vetor = split(vetor, "-") 'vetor(0) = 13 for i = 0 to Ubound(vetor) 'Response.Write(vetor(i)) if cStr(vetor(i)) <> "1" then %> <% end if next %>
<% 'Modificado dia 31/07/2009 'Declaração das Quantidades qtdTotalBanners = 6 qtdeExibicao = 6 'Declaração dos Banners Redim array2_url(qtdTotalBanners) 'Url do Banner Redim array2_ext(qtdTotalBanners) 'Extensão do Banner Redim array2_ctn(qtdTotalBanners) 'Banner com contaclick array2_url(0) = "banner_externo_iscar.swf" array2_ext(0) = "swf" array2_ctn(0) = false array2_url(1) = "banner_externo_secotools.swf" array2_ext(1) = "swf" array2_ctn(1) = false array2_url(2) = "lat3.swf" array2_ext(2) = "swf" array2_ctn(2) = false array2_url(3) = "banner_externo_fagor.swf" array2_ext(3) = "swf" array2_ctn(3) = false array2_url(4) = "banner_cosa.swf" array2_ext(4) = "swf" array2_ctn(4) = false array2_url(5) = "banner_mcs.swf" array2_ext(5) = "swf" array2_ctn(5) = false %> <% 'array2_url(4) = "" 'array2_ext(4) = "js" 'array2_ctn(4) = false %> <% 'Sorteio Sorteados = Sorteia(qtdTotalBanners, qtdeExibicao) Sorteados = split(Sorteados, "-") 'testes 'Sorteados(0) = 6 For i = 0 To Ubound(Sorteados) url = array2_url(Sorteados(i)-1) ext = array2_ext(Sorteados(i)-1) select case ext case "gif" %><% case "img" %><% case "swf" %> <% case "js" Response.Write(url) end select %>
___________________________________

<% Next %>