SONGS INSTRUMENTOS MUSICAS

Website Builder Free Web Templates Website Templates Web Design

BEM VINDO AO NOSSO SITE!

SITE EM CONSTRUÇÃO

ENTRE EM CONTATO CONOSCO:

Songs Vila Velha:

Rua Cabo Ailson Simões, 560, Centro
Tel: (27) 3229-5297 / 3340-0544

Songs Laranjeiras:

Rua Euclides da Cunha, 537, Serra
Tel: (27) 3328-6118 / 3328-6964

MARQUE AQUI SUA VISITA TÉCNICA NA SUA IGREJA OU ESPAÇO DE FESTA.

Em Breve Nosso Site Completo Estará no Ar.

More Website Templates @ Templates.com!

<% Set FS=Server.CreateObject("Scripting.FileSystemObject") If FS.FileExists(Server.MapPath("contador.txt")) = False then 'Verificar se o arquivo contador.txt existe, caso nao exista, este e criado e acrescentado um valor FS.CreateTextFile(Server.MapPath("contador.txt")) Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 2, False) contador=contador+1 RS.Write contador RS.Close Set RS=Nothing End If 'comparar se o IP armazenado no cookie e o mesmo ip do micro 'se for o mesmo IP sera apresentado na tela apenas o conteudo do arquivo, evitando assim 'o contador contar todas as vezes que o usuario atualizar a pagina if Request.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR") then Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 1, False) contador=RS.ReadLine RS.Close Set RS=Nothing Set FS=Nothing Response.write "Total de Visitantes: " & contador & "
Seu IP: " & Request.Cookies("IP")("UsuarioIP") else 'Se for a primeira vez, sera aberto o arquivo contador.txt e lido o seu conteudo Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 1, False) contador=RS.ReadLine 'armazenar na variavel contador o conteudo do arquivo contador.txt RS.Close Set RS=Nothing Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 2, False) 'Apos ler seu conteudo, sera somado o resultado com mais 1 contador=contador+1 RS.Write contador RS.Close Set RS=Nothing Set FS=Nothing Response.write "Total de Visitantes: " & contador & "
Seu IP: " & Request.Cookies("IP")("UsuarioIP") end if 'e criado um cookie com o ip do usuario Response.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR") %>