<% @LANGUAGE = VBScript %> <% Option Explicit Response.Buffer = true : Response.Expires = 60 Response.ExpiresAbsolute = Now() - 1 : Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" : Response.CacheControl = "no-cache" %> <% ' contagem do acesso If (Session("OK") = "") Then Dim AnoMesAtual, MesAtual, AnoAtual, DiaAtual DiaAtual = Day(Date) : MesAtual = Month(Date) : AnoAtual = Year(Date) If Len(MesAtual) < 2 Then MesAtual = "0" & MesAtual AnoMesAtual = AnoAtual & MesAtual Dim lContinua : lContinua = false Call CriAceBD(oConexao, ACESSOBANCO2, oRegistro) oConexao.BeginTrans If (ExeSqlBD(oConexao, oRegistro, "SELECT ANOMES, NUMEROACESSOS FROM ACESSOS WHERE ANOMES= " & AnoMesAtual, false, "")) Then If (oRegistro.EOF) Then oRegistro.AddNew oRegistro(0) = AnoMesAtual : oRegistro(1) = 1 oRegistro.Update : oRegistro.Close If (ExeSqlBD(oConexao, oRegistro, "DELETE * FROM ACESSOSDIARIOS ", false, "")) Then lContinua = true Else lContinua = false End If Else oRegistro(1) = oRegistro(1) + 1 oRegistro.Update : oRegistro.Close lContinua = true End If If (lContinua) Then If (ExeSqlBD(oConexao, oRegistro, "SELECT DIA, NUMEROACESSOS FROM AcessosDiarios WHERE DIA = " & DiaAtual, false, "")) Then If (oRegistro.EOF) Then oRegistro.AddNew oRegistro(0) = DiaAtual : oRegistro(1) = 1 oRegistro.Update Else oRegistro(1) = oRegistro(1) + 1 oRegistro.Update End If oRegistro.Close Else lContinua = false End If Else lContinua = false End If End If If (lContinua) then oConexao.CommitTrans Session("OK") = "OK" Else oConexao.RollBackTrans End If Call DesAceBD(oConexao, oRegistro) End If ' inicializacao da pagina: cabecalhos html, menu e cabecalho do sistema Call IniHTM("Comissária Pibernat", true, "") Call IniMenu(false, "", "") ' texto da pagina %>

 
 


E-mail:
 








 
 
<% ' fim do texto Call FimTab() Call FimMenu() ' finalizacao da pagina Call RodHTM(true) %>