<% '-------FUNÇÃO DO CONTADOR DE VISITAS---------' function contador() arquivo = Server.MapPath("../dados/contador.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set arq = fs.OpenTextFile(arquivo,1) nVis = arq.readline nVis = 1 + nVis contador = nVis Set arq = fs.OpenTextFile(arquivo,2,TRUE) arq.writeline contador arq.Close set thisfile=nothing set fs=nothing end function 'if session("nVis") = "" then 'session("nVis") = contador() 'end if id = request("id") if id = "" then id = "home" end if %> <% set cn = server.CreateObject("ADODB.Connection") cn.open session("DSN_PALAVRAS_CHAVES") SQL="SELECT * from PALAVRAS_CHAVES WHERE codigo=1" set ct = cn.execute(SQL) %> "> <% ct.close set ct=nothing cn.close set cn=nothing %> Arquimedes <% if id = "contato" then %> <% elseif id = "atendimento_corporativo" then %> <% elseif id = "cursos_profissionalizantes" then %> <% end if %> <% cErro = "" if request("cad") = "ok" then email = request("email") if trim(request("ok")) = "ok" then email = request("xemail") session("msg") = TRUE end if if cadnewsletter(email) AND cErro = "" then response.write "" else response.write "" end if end if %> <% if Request.QueryString("E") = "x" and NOT session("msg") then %> <% session("msg") = true %> <% elseif right(Request.QueryString("E"),1) <> "" and Request.QueryString("E") <> "x" then %> <% end if %> <% if NOT session("pop") then %> <% session("pop") = TRUE %> <% end if %>
Fone: 19 2137-7000

NOTÍCIAS

<% set cn = server.CreateObject("ADODB.Connection") cn.open session("DSN_NOTICIAS") SQL = "SELECT top 1 * from NOTICIAS order by codigo desc" set ct = cn.execute(SQL) %> <% do while not ct.eof %> <% if ct("data") <> "" then %><% = ct("data") %>
<% end if %> "><% = ct("titulo") %> <% if not ct.eof then ct.movenext loop %>

EVENTOS

<% set cn = server.CreateObject("ADODB.Connection") cn.open session("DSN_EVENTOS") SQL="SELECT top 1 * from EVENTOS order by codigo desc" set ct = cn.execute(SQL) %> <% do while not ct.eof %> <% if ct("data") <> "" then %><% = ct("data") %>
<% end if %> "><% = ct("titulo") %> <% if not ct.eof then ct.movenext loop %>
<% set cn = server.CreateObject("ADODB.Connection") cn.open session("DSN_BANNERS") SQL = "SELECT * FROM banners Where exibir=TRUE order by ordem" Set pbl = cn.execute(SQL) do while not pbl.eof if pbl("link") <> "" then %> "<% if pbl("codigo") <> "72" then %> target="<% = pbl("target") %>"<% end if %>><% end if %> " alt="<% = pbl("titulo") %>" width="205" border="0" vspace="2"> <% if pbl("link") <> "" then %><% end if %> <% pbl.movenext loop pbl.close set pbl=nothing %>
<% server.Execute(id&".asp") %>


Empresa | Agenda | Editoriais | Estágio / Empregos | Eventos | Serviços | Fale Conosco | Localização



® <% = year(now()) %> - Todos os direitos reservados

<% ct.close cn.close set ct=nothing set cn=nothing %>