<% @ LANGUAGE="VBScript" %> <% response.buffer=true %> <% if session("conect") <> 3 then session("conect") = 0 response.write "







VOCÊ NÃO TEM PERMISSÃO PARA ACESSAR ESTA PÁGINA.
" response.end end if%> Estatística <% if request.form("mesestat") <> "" then estat_mes = request.form("mesestat") else estat_mes = month(now) end if if estat_mes = "x" then x_dia = day(now) x_mes = month(now) x_ano = year(now) x_anopost = year(now) + 1 else x_dia = day(now) x_mes = estat_mes x_ano = year(now) x_anopost = year(now) + 1 end if x_inid = "01/01/"&x_ano x_fimd = "01/01/"&x_anopost x_dini = CDate(x_inid) x_dfim = CDate(x_fimd) x_in = DateDiff("d",x_dini,x_dfim) select case x_mes case "1" titmes="Janeiro" tdm = 31 case "2" if x_in = 365 then titmes="Fevereiro" tdm = 28 else titmes="Fevereiro" tdm = 29 end if case "3" titmes="Março" tdm = 31 case "4" titmes="Abril" tdm = 30 case "5" titmes="Maio" tdm = 31 case 6 titmes="Junho" tdm = 30 case "7" titmes="Julho" tdm = 31 case "8" titmes="Agosto" tdm = 31 case "9" titmes="Setembro" tdm = 30 case "10" titmes="Outubro" tdm = 31 case "11" titmes="Novembro" tdm = 30 case "12" titmes="Dezembro" tdm = 31 end select %>
  ESTATÍSTICA DE ACESSO DO MÊS: <%=titmes%>  
Confira os acessos diários que seu site teve durante o mês
 
" rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>
<% dim conn dim rsDB ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s:\home\gtamultimidia\dados\gfarma_estatistica.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM estatistica WHERE mes= " & x_mes & " and ano=" & x_ano & " ORDER BY ano, mes, dia", conn if rs.EOF then rs.close conn.close set rs = nothing set conn = nothing response.write "Nenhum acesso no mês de "&titmes&"" response.end end if x2 = 1 tot_ace = 0 Response.Write "" for x = 1 to tdm if not rs.EOF then x2 = rs("dia") if x = x2 then bx_aces = rs("acessos") Response.Write "" x2 = x2 + 1 rs.movenext else bx_aces = 0 Response.Write "" end if else bx_aces = 0 Response.Write "" end if tot_ace = tot_ace + bx_aces next Response.Write "
" & (x) & " " & (bx_aces) & "
" & (x) & " " & (bx_aces) & "
" & (x) & " " & (bx_aces) & "

Total de Acessos: <%=tot_ace%>


<%Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM acessos WHERE page='index' ", conn if rs.EOF then rs.close conn.close set rs = nothing set conn = nothing response.write "Erro #249" response.end end if%>Total Geral de Acessos: <%=rs("accesses")%> <%rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>

 

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM origem WHERE visitante <> '' and month(date) = "& x_mes &" ORDER BY date,time", conn,3 ncampos = rs.recordcount response.write "" response.write "" response.write "" if not rs.EOF then while not rs.eof response.write "" rs.movenext wend end if rs.Close conn.Close Set rs = Nothing Set conn = Nothing response.write "
Visitantes - CONTATO ("&ncampos&" registros)
 
"&rs("date")&" / "&rs("time") &" / "&rs("ip")&"
"&rs("visitante") &"



" '''''''''''''''''''''''''''''''''''''''''''''''''''' if request.form("email") = 1 then Dim vari Redim vari(200) Dim w Redim w(200) Dim dados Redim dados(200) Dim nome Redim nome(200) Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM origem WHERE visitantecod > 0 and month(date) = "& x_mes &" ORDER BY date,time", conn,3 ncampos = rs.recordcount w = 0 while not rs.eof w = w + 1 vari(w) = rs("visitantecod") dados(w) = rs("date")&" / "&rs("time") &" / "&rs("ip") rs.movenext wend rs.close conn.close set rs = nothing set conn = nothing for x = 1 to ncampos ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s:\home\gtamultimidia\dados\gta_pr_email.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM tb_clientes WHERE codigo = "&cint(vari(x))&" ", conn,3 if not rs.eof then nome(x) = rs("cliente") &" - "&rs("cidade")&"/"&rs("estado") else nome(x) = "NOME INVÁLIDO!" end if rs.close conn.close set rs = nothing set conn = nothing next response.write "" response.write "" response.write "" for x = 1 to ncampos response.write "" response.write "" next response.write "
Visitantes - PELO SITE E-MAIL ("&ncampos&" registros)
"& dados(x) &"
"& nome(x) &"


" end if %>