Log Events

Public Sub WriteToLog(ByVal Action As String, ByVal Details As String)
 
        Dim strConn As String = System.Configuration.ConfigurationManager.ConnectionStrings("FullConnection").ConnectionString
        Dim MySQL As String = "insert into tEventLog(Action,Time,IPAddress,Details) values(@Action,@Time,@IPAddress,@Details)"
        Dim MyConn As New SqlConnection(strConn)
        Dim Cmd As New SqlCommand(MySQL, MyConn)
        Cmd.Parameters.Add(New SqlParameter("@Action", Action))
        Cmd.Parameters.Add(New SqlParameter("@Time", Now()))
        Cmd.Parameters.Add(New SqlParameter("@IPAddress", Request.UserHostAddress()))
        Cmd.Parameters.Add(New SqlParameter("@Details", Details))
        Try
            MyConn.Open()
            Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
 
        Catch ex As Exception
            Response.Write(ex.Message & ":WriteToLog:" & ex.ToString)
        End Try
    End Sub