<%@ LANGUAGE = VBSCRIPT%>
<%
dim db
set db = server.CreateObject ("adodb.connection")
db.Open "Provider=sqloledb;uid=sacolegiomaededeus;pwd=g4h5h5;DATABASE=colegiomaededeus;data source=mssql-srv02"
sql = " select acesso from tab_contador where turma = 'chu'"
set rs = db.execute(sql)
if rs.eof and rs.bof then
acessos = 1
sql = " insert into tab_contador values ('chu',1)"
set rs = db.execute(sql)
else
acessos = rs("acesso")
sql = " update tab_contador set acesso = " & acessos + 1 & " where turma = 'chu'"
set rs = db.execute(sql)
acessos = acessos + 1
end if
%>
.::Integração Mercosul - Viagem ao Chui e à Colônia de Sacramento::.
