ASP.NET 2.0.50727.0 Event code: 3005

Ok, so this page and the others that are complaining are reports in the form of a gauge.  All they really do is go to the database pull a number and create the guage image with the appropriate number.


Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Dundas.Gauges.WebControl


Namespace WebApplication7
    Partial Class WebForm1
        Inherits System.Web.UI.Page


#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        Private Sub InitializeComponent()

        End Sub
        '  Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
        ' Protected WithEvents SqlCommand1 As System.Data.SqlClient.SqlCommand


        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Dim MyConn As SqlConnection = New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("connectionStringProd"))
        Dim strSQL As String
        Dim objCommand As SqlCommand
        Dim objDatareader As SqlDataReader


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim todays_goal
            Dim goal_desc As String
            Dim max_scale
            Dim suite_str As String
            'Dim metric_str As String
            Dim report_type_str As String

            GaugeContainer1.Labels("Ttl_main").Text = "Shopping Frequency (Visits/UVs)"
            suite_str = "Shopping"
            report_type_str = "Frequency"

            goal_desc = ""

            db_Open_CONN()


            strSQL = "sp_omn_goals_Freq_Depth '" & suite_str & "','" & report_type_str & "'"
            run_sql()
            objDatareader.Read()

            todays_goal = IIf(IsDBNull(objDatareader.GetValue(0)), 10, objDatareader.GetValue(0))
            max_scale = (Math.Ceiling((todays_goal * 1.1) / 10)) * 10
            goal_desc = IIf(IsDBNull(objDatareader.GetValue(1)), "", objDatareader.GetValue(1))

            objDatareader.Close()

            strSQL = "sp_omn_metrics_Freq_Depth '" & suite_str & "','" & report_type_str & "'"


            GaugeContainer1.Labels("Ttl_sub").Text = goal_desc
            GaugeContainer1.CircularGauges("Default").Scales("Default").Maximum = max_scale
            GaugeContainer1.CircularGauges("Default").Ranges("LOW").StartValue = 0
            GaugeContainer1.CircularGauges("Default").Ranges("LOW").EndValue = todays_goal * 0.95

            GaugeContainer1.CircularGauges("Default").Ranges("MID").StartValue = todays_goal * 0.95
            GaugeContainer1.CircularGauges("Default").Ranges("MID").EndValue = todays_goal

            GaugeContainer1.CircularGauges("Default").Ranges("HIGH").StartValue = todays_goal
            GaugeContainer1.CircularGauges("Default").Ranges("HIGH").EndValue = max_scale

            ' Connect the pointer to the value source.
            GaugeContainer1.CircularGauges("Default").Pointers("Default").ValueSource = "Default"
            '            GaugeContainer1.StateIndicators(0).Text = "Data as of: " & Now


            ' Render the gauge as an image.
            GaugeContainer1.RenderType = RenderType.InputTag
            Dim actualval As Double
            run_sql()
            objDatareader.Read()
            actualval = IIf(IsDBNull(objDatareader.GetValue(0)), 0, objDatareader.GetValue(0))
            GaugeContainer1.StateIndicators(0).Text = "Data as of: " & IIf(IsDBNull(objDatareader.GetValue(1)), "No Data", objDatareader.GetValue(1))
            GaugeContainer1.NumericIndicators(0).Value = objDatareader.GetValue(0)
            GaugeContainer1.CircularGauges("Default").Pointers("Default").Value = objDatareader.GetValue(0)


            db_Close_CONN()

        End Sub
        Private Sub db_Open_CONN()
            MyConn.Open()
        End Sub
        Private Sub db_Close_CONN()
            MyConn.Close()
            MyConn = Nothing

        End Sub

        Private Sub run_sql()
            objCommand = New SqlCommand(strSQL, MyConn)
            objDatareader = objCommand.ExecuteReader()
        End Sub

    End Class


End Namespace