Lkramme.com
Title
Lkramme
Description
Excerpted from the website:
- Session.SessionID then If client_ip "68.15.121.112" and client_ip "192.168.0.1" and client_ip "209.217.30.9" Then dim cn set cn = Server.CreateObject("ADODB.Connection") cn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\webs\db\visitors.mdb" sql = "INSERT INTO visits (hit_time,client_ip,client_logon,client_name,client_host,site) VALUES (Now()," sql = sql & "'" & client_ip & "'," sql = sql & "'" & client_logon & "'," sql = sql & "'" & client_name & "'," sql = sql & "'" & client_host & "'," sql = sql & "'" & client_site & "'" sql = sql & ")" cn.execute(sql) Session.Contents("sid") = Session.SessionID Counters.Increment("LKramme") '----------------------------------------------------------------------------------------- ' This code sends and email when a new session is created. '----------------------------------------------------------------------------------------- if DOIT > 1 then iImportance = 1 strSubject = "Logon at LKramme.com" strbody = Chr(13) strbody = strbody & formatdatetime(Now,1) & " at " & FormatDateTime(Now,3) & Chr(13) strbody = strbody & "Visitor's Address: " & client_IP dim eMAIL set eMAIL = Server.CreateObject("CDONTS.NewMail") eMAIL.From="LKramme.com MailBot
Languages
English
Additional Information
Related Domains
External Links
- Alexa: Lkramme.com
- WHOIS for Lkramme.com