<%@ Language=VBScript %> <%Option Explicit %> <% Response.Expires = 0 %> <% If IsEmpty(Session("admin")) Then Response.Redirect "index.asp" End If %> Super Finishing do Brasil
 
Quantidades de visitantes cadastrados x tipos de acesso
<% Dim nome nome=Request.querystring("nome") Dim oConn,rs,a,SQL Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos Dim registros set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") nome="Revista NEI" oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %>
<%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
<% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") nome="Revista Máquinas e Metais" SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %> <%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
<% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") nome="Outras Revistas" SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %> <%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
<% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") nome="Google" SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %> <%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
<% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") nome="Site NEI" SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %> <%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
<% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") nome="Outros sites de busca" SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %> <%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
<% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\..\dados\super1478956pw.mdb") nome="Indicação" SQL ="SELECT * FROM clientes WHERE acesso LIKE '%"& nome &"%' ORDER BY nome" rs.CursorLocation = 3 a = 0 ' Abro el recordset rs.Open SQL, oConn,3,3 CuantosRegistros=0 do while not rs.EOF If rs.EOF Then End If 'Pinto una línea de la tabla por cada registro CuantosRegistros=CuantosRegistros+1 rs.MoveNext %> <%loop %> <% registros = rs.RecordCount rs.Close oConn.Close set rs=nothing set oConn=nothing %>
Foram encontrados      <%=registros%>      visitantes que nos acessaram através de : <%=nome%>
       
       
Total de acessos x Mídia
Busca por acessos
Busca por E-mail
Total de Visitantes