<% Set DBObj = Server.CreateObject("ADODB.Connection") DBObj.Open "ACESSOS" Set RSTotal = DBObj.Execute(" SELECT COUNT(*) As Total FROM Acessos ") If RSTotal("Total") > 0 Then Set ULTIMO = DBObj.Execute(" Select * From Acessos Order by Visita Desc ") ULTIMO.MoveFirst CODVIS = ULTIMO("Visita") + 1 Else CODVIS = 1 End If Set Visitador = Request.ServerVariables("Remote_Host") Set IPVisitador = Request.ServerVariables("Remote_ADDR") CodCli = 4 Dominio ="www.roma.com.br" Dataentra=Date() Horaentra=Time() SQLINSERIR = "INSERT INTO Acessos (Dominio, Cliente, Visita, Visitante, IPVisita, Data, Hora ) " SQLINSERIR = SQLINSERIR & "VALUES ('" & Dominio & "','" & CodCli & "','" & CODVIS & "','" & Visitador & "','" & IPVisitador & "', #" & Dataentra & "#, #" & Horaentra & "#)" Set RSACESSOS=DBObj.Execute(SQLINSERIR) %>

R. Dr. Cesar Castiglioni Junior. 333
Casa Verde - São Paulo
TEL.: (0..11) 3950.2000



© 1999 / 2000 - Todos os direitos reservados à CVN Net Comunicação Visual de Negócios Ltda.
São Paulo SP Brasil Fone: (0..11) 3644-5351 / 3644-7154

<> <>