Imports System.Data.OleDb
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports AjaxControlToolkit
Public Class Index
    Inherits System.Web.UI.Page
    Dim OleDBConn As OleDbConnection
    Dim OleDBCommand As OleDbCommand
    Dim OleDBDataReader, OleDBItemDataReader As OleDbDataReader
    Dim OleDBQuery As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For Each de As DictionaryEntry In HttpContext.Current.Cache
            HttpContext.Current.Cache.Remove(DirectCast(de.Key, String))
        Next
        HttpContext.Current.Response.AddHeader("Cache-Control", "no-cache, no-store, must-revalidate")
        HttpContext.Current.Response.AddHeader("Pragma", "no-cache")
        HttpContext.Current.Response.AddHeader("Expires", "0")
        Dim IPAddress As String
        OleDBConn = New OleDbConnection(Session("Connection"))
        OleDBConn.Open()
        OleDBCommand = New OleDbCommand()
        OleDBCommand.Connection = OleDBConn
        IPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If IPAddress = "" OrElse IPAddress Is Nothing Then
            IPAddress = Request.ServerVariables("REMOTE_ADDR")
        End If
        OleDBQuery = "Insert into VisitorCount (VisitorIP, VisitDate) Values ('" & IPAddress & "','" & DateTime.Today.ToString() & "')"
        OleDBCommand.CommandText = OleDBQuery
        OleDBCommand.ExecuteNonQuery()
        OleDBQuery = "SELECT Count(VisitorCount.VisitorID) AS VisitorCount"
        OleDBQuery = OleDBQuery & " FROM VisitorCount GROUP BY VisitorCount.VisitDate HAVING (((VisitorCount.VisitDate)=#" & DateTime.Today.ToString() & "#));"
        OleDBCommand.CommandText = OleDBQuery
        OleDBDataReader = OleDBCommand.ExecuteReader()
        OleDBDataReader.Read()
        If OleDBDataReader.HasRows Then
            Session("VisitorCountToday") = OleDBDataReader("VisitorCount")
        End If
        OleDBDataReader.Close()
        OleDBQuery = "SELECT Count(VisitorCount.VisitorID) AS VisitorCount"
        OleDBQuery = OleDBQuery & " FROM VisitorCount;"
        OleDBCommand.CommandText = OleDBQuery
        OleDBDataReader = OleDBCommand.ExecuteReader()
        OleDBDataReader.Read()
        If OleDBDataReader.HasRows Then
            Session("VisitorCount") = OleDBDataReader("VisitorCount")
        End If
        OleDBDataReader.Close()
        OleDBCommand.Cancel()
        OleDBConn.Close()
        MdlPop.Enabled = True
        MdlPop.Focus()
        MdlPop.Show()
    End Sub

    Protected Sub btnok_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnok.Click

    End Sub
End Class