<%@ 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
%>
.:: Lanche Solidário - 2009::.
Professoras:
2º ano do Ensino Fundamental
Coordenadora pedagógica: Lenir dos Santos
Moraes
Coordenadora de Etapa: Laura Pizzatto
