i having this error Exception Details: System.NullReferenceException: Object reference not set to an instance of an object. And anyone here know what should i do to fix it , this is my code below and the error code is this ddlHour2.Items.FindByText(str(0)).Selected = True
Public Class dbconn
Inherits System.Web.UI.Page
Dim path As New FilePath
Dim regval As New RegistrySettings(True)
Dim encr As Encryption = New Encryption
Dim EHRMSPath As String
Dim WEBPath As String
Dim APPSETTINGPath As String
Dim WSERVICEPath As String
Dim instance As ObjectDisposedException
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Session("UserId") = "" Or (Session("UserType") <> 3 And Session("UserType") <> 1) Then
Response.Redirect("redirect_admin.aspx?url=login_admin.aspx")
End If
EHRMSPath = path.LocatePath(1)
WEBPath = path.LocatePath(2)
APPSETTINGPath = path.LocatePath(4)
WSERVICEPath = path.LocatePath(5)
If Not IsPostBack Then
ddlHour.Enabled = False
ddlMin.Enabled = False
ddlHour2.Enabled = False
ddlMin2.Enabled = False
ddlHour3.Enabled = False
ddlMin3.Enabled = False
MoveRegValToScreen()
'ddlDtFormat.Items.FindByText(Trim(Session("DateFormat"))).Selected = True
fillDdlHourMin()
If File.Exists(WSERVICEPath) <> False Then
Dim strAutoApprSchedule As String
Dim strSupEmailSchedule As String
Dim strSupEmailSchedule2 As String
Dim strSupEmailSchedule3 As String
Dim strAutoEntlSchedule As String
strAutoApprSchedule = path.getWSERVICE(1, WSERVICEPath)
strSupEmailSchedule = path.getWSERVICE(2, WSERVICEPath)
strSupEmailSchedule2 = path.getWSERVICE(6, WSERVICEPath)
strSupEmailSchedule3 = path.getWSERVICE(7, WSERVICEPath)
strAutoEntlSchedule = path.getWSERVICE(3, WSERVICEPath)
If Not strAutoApprSchedule = "" Then
Dim str() As String = Split(strAutoApprSchedule, ".")
ddlApprHr.Items.FindByText(str(0)).Selected = True
ddlApprMin.Items.FindByText(str(1)).Selected = True
End If
If Not strSupEmailSchedule = "" Then
Dim str() As String = Split(strSupEmailSchedule, ".")
ddlHour.Items.FindByText(str(0)).Selected = True
ddlMin.Items.FindByText(str(1)).Selected = True
CheckBoxETime1.Checked = True
ddlHour.Enabled = True
ddlMin.Enabled = True
End If
If Not strAutoEntlSchedule = "" Then
Dim str() As String = Split(strAutoEntlSchedule, ".")
ddlEntlHr.Items.FindByText(str(0)).Selected = True
ddlEntlMin.Items.FindByText(str(1)).Selected = True
End If
'sini
If Not strSupEmailSchedule2 = "" Then
Dim strTime As String = regval.strSupEmailSchedule2
Dim str() As String = Split(strTime, ".")
ddlHour2.Items.FindByText(str(0)).Selected = True
ddlMin2.Items.FindByText(str(1)).Selected = True
CheckBoxETime2.Checked = True
ddlHour2.Enabled = True
ddlMin2.Enabled = True
End If
If Not strSupEmailSchedule3 = "" Then
Dim strTime As String = regval.strSupEmailSchedule3
Dim str() As String = Split(strTime, ".")
ddlHour3.Items.FindByText(str(0)).Selected = True
ddlMin3.Items.FindByText(str(1)).Selected = True
CheckBoxETime3.Checked = True
ddlHour3.Enabled = True
ddlMin3.Enabled = True
End If
End If
End If
End Sub