Visitas Reales concluidas (mejorar codigo)

[Fr@Nc3$c0]

Hol@ ya terminé de realizar el código para contar las visitas reales que tengo en mi web, almacenando éstas en una BD desde el mismo GLOBAL.ASA:

Tengo esto en on_sessionstart()...

' ~~~~ Guardamos las visitas en la BD ~~~~
Application.Lock()
IP = Request.ServerVariables( "REMOTE_ADDR" )
Software = Request.ServerVariables( "HTTP_USER_AGENT" )
Procedencia = Request.ServerVariables( "HTTP_REFERER" )
Lenguaje = Request.ServerVariables( "HTTP_ACCEPT_LANGUAGE" )
URL = Request.ServerVariables( "URL" )
Fecha = date()
Hora = time()
a = "MI IP"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("ConexionContadores")

IF IP <> a THEN
SQLQuery1 = " INSERT INTO Visitantes (IP, Software, Procedencia, Lenguaje, URL, Fecha, Hora) VALUES ('"&IP&"', '"&Software&"', '"&Procedencia&"', '"&Lenguaje&"', '"&URL&"', '"&Fecha&"', '"&Hora&"') "
Conn.EXECUTE(SQLQuery1)
END IF
SQLQuery2 = " SELECT Max(Id) AS Total FROM Visitantes "
Set RS = Conn.EXECUTE(SQLQuery2)
Session("Visitas") = rs("total")

RS.Close
Conn.Close
Application.Unlock()


Lo ven correcto? ven la manera de simplificar o mejorar algo para acelerar su velocidad en la web?
Tengo mis sospechas de los application.lock y unlock que he colocado, puesto que no se si son correctos en esas posiciones.

yo mismo he abierto mi pagina web muchas veces seguidas (tantas he podido a la vez) y los datos en la tabla se repiten!, llegan incluso a entrar de 3 en 3 usuarios...
pasa de 3...4...5...8...11...


Agradecería todo comentario o mejora y ya agradezo haber leido chic@s.

Salu2!