KucukHacker0088 Shell
| Current Path : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp2/ |
Windows NT SG2NWVPWEB022 10.0 build 17763 (Windows Server 2016) i586 |
| Current File : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp2/frm_cityinformation.aspx.vb~RF12b7f82.TMP |
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient
Imports System.IO
Imports System.Drawing
Partial Class frm_cityinformation
Inherits System.Web.UI.Page
Dim _loginID
Dim _status
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Context.User.Identity.IsAuthenticated Then
_loginID = -1
Session.Clear()
Session.Abandon()
FormsAuthentication.SignOut()
Response.Redirect("~/SignIn.aspx")
Else
If Not Page.IsPostBack Then
GetStatus()
If _status = 1 Or _status = 2 Then
LoadCompany()
GVBind()
Dim id = GetLOfinId()
Me.sdcIPAddress.SelectParameters("Login_Id").DefaultValue = id
sdcIPAddress.DataBind()
If id = 1 Then
grdCDP.Columns(0).Visible = True
grdCDP.Columns(1).Visible = True
Else
grdCDP.Columns(0).Visible = False
grdCDP.Columns(1).Visible = False
End If
' Bindgrid()
Else
_loginID = -1
Session.Clear()
Session.Abandon()
FormsAuthentication.SignOut()
Response.Redirect("~/SignIn.aspx")
End If
End If
' Txt_IWaterS_2015.Attributes.Add("onkeypress", "return OnlyNumericEntry()")
' Page.ClientScript.RegisterStartupScript(Me.GetType, "onLoad", "totalSplit();", True)
End If
End Sub
Private Function GetLOfinId() As Integer
Dim _LU = Session("loginuser")
Dim _LP = Session("pass")
Dim dsAdmin As New Data.DataSet()
Global.Command.CreateSqlConnection()
Dim da As New Data.SqlClient.SqlDataAdapter("select AdminID from Admin where Email='" & _LU & "' and Password ='" & _LP & "';", Global.Command.CreateSqlConnection())
' DataTable dt = new DataTable();
da.Fill(dsAdmin, "Admin")
Dim myDataTable As Data.DataTable = dsAdmin.Tables(0)
For Each dRow As Data.DataRow In myDataTable.Rows
_loginID = dRow("AdminID").ToString()
Next
da.Dispose()
myDataTable.Dispose()
Return _loginID
End Function
Private Function GetStatus() As Integer
Dim _LU = Session("loginuser")
Dim _LP = Session("pass")
Dim dsAdmin As New Data.DataSet()
Global.Command.CreateSqlConnection()
Dim da As New Data.SqlClient.SqlDataAdapter("select Status from Admin where Email='" & _LU & "' and Password ='" & _LP & "';", Global.Command.CreateSqlConnection())
' DataTable dt = new DataTable();
da.Fill(dsAdmin, "Admin")
Dim myDataTable As Data.DataTable = dsAdmin.Tables(0)
For Each dRow As Data.DataRow In myDataTable.Rows
_status = dRow("Status").ToString()
Next
da.Dispose()
myDataTable.Dispose()
Return _status
End Function
Private Sub LoadCompany()
' DD_CompanyName.Items.Clear()
GetLOfinId()
Dim command As New Command("SELECT Company_ID, Company_Name FROM TBL_CompanyName WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DD_CompanyName.DataValueField = "Company_ID"
DD_CompanyName.DataTextField = "Company_Name"
DD_CompanyName.DataSource = command.Reader
DD_CompanyName.DataBind()
If DD_CompanyName.Items.Count > 0 Then
DD_CompanyName.Items.Insert(0, New ListItem("Company_Name", "0"))
End If
Else
End If
Finally
command.Close()
End Try
End Sub
Protected Sub DD_CompanyName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD_CompanyName.SelectedIndexChanged
If DD_CompanyName.Text <> "" And DD_CompanyName.Text <> "0" Then
LoadDivision()
End If
End Sub
Private Sub LoadDivision()
_loginID = GetLOfinId()
' GVBind()
' DD_Division.Items.Clear()
Dim command As New Command("SELECT Div_ID, Division_Name FROM TBL_Division WHERE Login_ID = " & _loginID & " and Company_ID=" & DD_CompanyName.SelectedValue & "", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DD_Division.DataValueField = "Div_ID"
DD_Division.DataTextField = "Division_Name"
DD_Division.DataSource = command.Reader
DD_Division.DataBind()
If DD_Division.Items.Count > 0 Then
DD_Division.Items.Insert(0, New ListItem("Division_Name", "0"))
End If
Else
End If
Finally
command.Close()
End Try
End Sub
Private Sub LoadDistrict()
_loginID = GetLOfinId()
' DD_Division.Items.Clear()
'SELECT Dis_ID, District_Name FROM TBL_District WHERE Login_ID =1 and Company_ID=2 and Div_ID=1
Dim command As New Command("SELECT Dis_ID, District_Name FROM TBL_District WHERE Login_ID = " & _loginID & " and Company_ID=" & DD_CompanyName.SelectedValue & " and Div_ID=" & DD_Division.SelectedValue & "", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DD_Distrit.DataValueField = "Dis_ID"
DD_Distrit.DataTextField = "District_Name"
DD_Distrit.DataSource = command.Reader
DD_Distrit.DataBind()
If DD_Distrit.Items.Count > 0 Then
DD_Distrit.Items.Insert(0, New ListItem("District_Name", "0"))
End If
Else
End If
Finally
command.Close()
End Try
End Sub
Protected Sub DD_Division_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD_Division.SelectedIndexChanged
If DD_CompanyName.Text <> "" And DD_CompanyName.Text <> "0" And DD_Division.Text <> "" And DD_Division.Text <> "0" Then
LoadDistrict()
End If
End Sub
Private Sub LoadULB()
_loginID = GetLOfinId()
' DD_Division.Items.Clear()
'SELECT Dis_ID, District_Name FROM TBL_District WHERE Login_ID =1 and Company_ID=2 and Div_ID=1
'SELECT ULB_ID,City_ULB_Name FROM dbo.TBL_City_ULB WHERE Login_ID = 1 and Company_ID=2 and Div_ID=1 and Dis_ID=1
Dim command As New Command("SELECT ULB_ID,City_ULB_Name FROM dbo.TBL_City_ULB WHERE Login_ID = " & _loginID & " and Company_ID=" & DD_CompanyName.SelectedValue & " and Div_ID=" & DD_Division.SelectedValue & " and Dis_ID=" & DD_Distrit.SelectedValue & "", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DD_CityULB.DataValueField = "ULB_ID"
DD_CityULB.DataTextField = "City_ULB_Name"
DD_CityULB.DataSource = command.Reader
DD_CityULB.DataBind()
If DD_CityULB.Items.Count > 0 Then
DD_CityULB.Items.Insert(0, New ListItem("City_ULB_Name", "0"))
End If
Else
DD_CityULB.DataValueField = "ULB_ID"
DD_CityULB.DataTextField = "City_ULB_Name"
DD_CityULB.Items.Insert(0, New ListItem("City_ULB_Name", "0"))
End If
Finally
command.Close()
End Try
End Sub
Protected Sub DD_Distrit_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD_Distrit.SelectedIndexChanged
If DD_CompanyName.Text <> "" And DD_CompanyName.Text <> "0" And DD_Division.Text <> "" And DD_Division.Text <> "0" And DD_Distrit.Text <> "" And DD_Distrit.Text <> "0" Then
LoadULB()
End If
End Sub
Protected Sub BtnAssignTo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnAssignTo.Click
If DD_CompanyName.Text = "" Or DD_CompanyName.Text = "0" Then
MsgBox("Please Select Company")
Exit Sub
End If
If DD_Division.Text = "" Or DD_Division.Text = "0" Then
MsgBox("Please Select Division")
Exit Sub
End If
If DD_Distrit.Text = "" Or DD_Distrit.Text = "0" Then
MsgBox("Please Select District")
Exit Sub
End If
If DD_CityULB.Text = "" Or DD_CityULB.Text = "0" Then
MsgBox("Please Select City")
Exit Sub
End If
_loginID = GetLOfinId()
Dim Result As Boolean = False
Dim intResponse As Integer
intResponse = MsgBox("Are you sure you want to Save Above Record?", _
vbYesNo + vbQuestion, _
"Quit")
If intResponse = vbYes Then
' code to end the app, such as "Me.Close" would go here
Dim command As New Command("sp_InsertCDP_V", True)
command.Parameters.AddWithValue("@Login_ID", _loginID)
command.Parameters.AddWithValue("@Company_Name", DD_CompanyName.SelectedItem.Text)
command.Parameters.AddWithValue("@Division_Name", DD_Division.SelectedItem.Text)
command.Parameters.AddWithValue("@District_Name", DD_Distrit.SelectedItem.Text)
command.Parameters.AddWithValue("@City_ULB_Name", DD_CityULB.SelectedItem.Text)
command.Parameters.AddWithValue("@MunicipalArea", Txt_Municipal.Text)
command.Parameters.AddWithValue("@Population", Txt_Population.Text)
command.Parameters.AddWithValue("@IWaterS_2015 ", Txt_IWaterS_2015.Text)
command.Parameters.AddWithValue("@IWaterS_2025 ", Txt_IwaterS_2025.Text)
command.Parameters.AddWithValue("@IWaterS_2035 ", Txt_IWaterS_2035.Text)
command.Parameters.AddWithValue("@Total_IWaterS ", Txt_Total_WaterS.Text)
command.Parameters.AddWithValue("@ISewerage_15 ", Txt_ISewerage_15.Text)
command.Parameters.AddWithValue("@ISewerage_25 ", Txt_ISewrege_25.Text)
command.Parameters.AddWithValue("@ISewerage_35 ", TXt_ISewerage_35.Text)
command.Parameters.AddWithValue("@Total_ISewerage ", Txt_Total_ISewerage.Text)
command.Parameters.AddWithValue("@IStormWaterDrain_15 ", Txt_IStormWaterDrain_15.Text)
command.Parameters.AddWithValue("@IStormWaterDrain_25 ", Txt_IStromWaterDrain_25.Text)
command.Parameters.AddWithValue("@IStormWaterDrain_35 ", Txt_IStromWaterDrain_35.Text)
command.Parameters.AddWithValue("@Total_IStormWaterDrain ", Txt_Total_StromWaterDrain.Text)
command.Parameters.AddWithValue("@ISolideWastMgt_15 ", Txt_ISolideWastMgt_15.Text)
command.Parameters.AddWithValue("@ISolideWastMgt_25 ", Txt_ISolidWastMgt_25.Text)
command.Parameters.AddWithValue("@ISolideWastMgt_35 ", Txt_ISolidWastMgt_35.Text)
command.Parameters.AddWithValue("@Total_ISolideWastMgt ", Txt_TotalSolidWastMgt.Text)
command.Parameters.AddWithValue("@ISanitation_15 ", Txt_ISanitation_15.Text)
command.Parameters.AddWithValue("@ISanitation_25 ", Txt_ISanition_25.Text)
command.Parameters.AddWithValue("@ISanitation_35 ", Txt_ISanitation_35.Text)
command.Parameters.AddWithValue("@Total_ISanitation ", Txt_Total_Sanition.Text)
command.Parameters.AddWithValue("@ITrafic_Trans_15 ", Txt_Trafic_Trans_15.Text)
command.Parameters.AddWithValue("@ITrafic_Trans_25 ", Txt_ITrafficTrans_25.Text)
command.Parameters.AddWithValue("@ITrafic_Trans_35 ", Txt_ITraffiTrans_35.Text)
command.Parameters.AddWithValue("@Total_ITrafic_Trans ", Txt_Total_TraficTrans.Text)
command.Parameters.AddWithValue("@IElectriStrit_15 ", Txt_IElectriStrit_15.Text)
command.Parameters.AddWithValue("@IElectriStrit_25 ", Txt_IElectriStreet_25.Text)
command.Parameters.AddWithValue("@IElectriStrit_35 ", Txt_IElectricStreet_35.Text)
command.Parameters.AddWithValue("@Total_IElectriStrit ", Txt_Total_ElectricStreet.Text)
command.Parameters.AddWithValue("@IFire_Fit_15 ", Txt_IFire_Fit_15.Text)
command.Parameters.AddWithValue("@IFire_Fit_25 ", Txt_IFire_Fit_25.Text)
command.Parameters.AddWithValue("@IFire_Fit_35 ", Txt_IFire_Fit_35.Text)
command.Parameters.AddWithValue("@Total_IFire_Fit ", Txt_Total_Fire_Fit.Text)
command.Parameters.AddWithValue("@IBasicSerUP_15 ", Txt_BasicSerUP_15.Text)
command.Parameters.AddWithValue("@IBasicSerUP_25 ", Txt_BasicSerUP_25.Text)
command.Parameters.AddWithValue("@IBasicSerUP_35 ", Txt_BasicSerUP_35.Text)
command.Parameters.AddWithValue("@Total_IBasicSerUP ", Txt_Total_BasicSerUP.Text)
command.Parameters.AddWithValue("@IEnvironment_15 ", Txt_IEnvironment_15.Text)
command.Parameters.AddWithValue("@IEnvironment_25 ", Txt_IEnvironment_25.Text)
command.Parameters.AddWithValue("@IEnvironment_35 ", Txt_IEnvironment_35.Text)
command.Parameters.AddWithValue("@Total_IEnvironment ", Txt_Total_Environment.Text)
command.Parameters.AddWithValue("@IUrbanGov_15 ", Txt_IUrbanGov_15.Text)
command.Parameters.AddWithValue("@IUrbanGov_25 ", Txt_IUrbanGov_25.Text)
command.Parameters.AddWithValue("@IUrbanGov_35 ", Txt_IUrbanGov_35.Text)
command.Parameters.AddWithValue("@Total_IUrbanGov ", Txt_Total_IUrbanGov.Text)
command.Parameters.AddWithValue("@IHeritage_15 ", Txt_IHeritage_15.Text)
command.Parameters.AddWithValue("@IHeritage_25 ", Txt_IHeritage_25.Text)
command.Parameters.AddWithValue("@IHeritage_35 ", Txt_IHeritage_35.Text)
command.Parameters.AddWithValue("@Total_IHeritage ", Txt_Total_IHeritage.Text)
command.Parameters.AddWithValue("@IEducation_15 ", Txt_IEducation_15.Text)
command.Parameters.AddWithValue("@IEducation_25 ", Txt_IEducation_25.Text)
command.Parameters.AddWithValue("@IEducation_35 ", Txt_IEducation_35.Text)
command.Parameters.AddWithValue("@Total_IEducation ", Txt_Total_IEducation.Text)
command.Parameters.AddWithValue("@IHealth_15 ", Txt_IHealth_15.Text)
command.Parameters.AddWithValue("@IHealth_25 ", Txt_IHealth_25.Text)
command.Parameters.AddWithValue("@IHealth_35 ", Txt_IHealth_35.Text)
command.Parameters.AddWithValue("@Total_IHealth ", Txt_Total_IHealth.Text)
command.Parameters.AddWithValue("@ISocialIOP_15 ", Txt_ISocialIOP_15.Text)
command.Parameters.AddWithValue("@ISocialIOP_25 ", Txt_ISocialIOP_25.Text)
command.Parameters.AddWithValue("@ISocialIOP_35 ", Txt_ISocialIOP_35.Text)
command.Parameters.AddWithValue("@Total_ISocialIOP ", Txt_Total_SocialIOP.Text)
command.ExecuteNonQuery()
MsgBox("Record Save")
End If
GVBind()
callclear()
' callclear()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Dim dt1 As DataTable = CType(ViewState("dtList"), DataTable)
Dim dt1 As DataTable = Session("dt")
If dt1 Is Nothing Then
Throw New Exception("No Records to Export")
End If
Dim Path As String = "\myexcelfile_" + DateTime.Now.Day.ToString() + "_" + DateTime.Now.Month.ToString() + ".xls"
Dim FI As FileInfo = New FileInfo(Path)
Dim stringWriter As StringWriter = New StringWriter()
Dim htmlWrite As HtmlTextWriter = New HtmlTextWriter(stringWriter)
Dim DataGrd As DataGrid = New DataGrid()
DataGrd.DataSource = dt1
DataGrd.DataBind()
DataGrd.RenderControl(htmlWrite)
' Dim directory As String = Path.Substring(0, Path.LastIndexOf("\")) ' GetDirectory(Path);
'If Not directory.Exists(directory) Then
' directory.CreateDirectory(directory)
'End If
Dim vw As System.IO.StreamWriter = New System.IO.StreamWriter(Path, True)
stringWriter.ToString().Normalize()
vw.Write(stringWriter.ToString())
vw.Flush()
vw.Close()
WriteAttachment(FI.Name, "application/vnd.ms-excel", stringWriter.ToString())
Catch ex As Exception
'throw new Exception(ex.Message);
End Try
End Sub
Public Shared Sub WriteAttachment(ByVal FileName As String, ByVal FileType As String, ByVal content As String)
Dim Response As HttpResponse = System.Web.HttpContext.Current.Response
Response.ClearHeaders()
Response.AppendHeader("Content-Disposition", "attachment; filename=" + FileName)
Response.ContentType = FileType
Response.Write(content)
Response.End()
End Sub
Private Sub callclear()
DD_CompanyName.SelectedIndex = -1
DD_Division.SelectedIndex = -1
DD_Distrit.SelectedIndex = -1
DD_CityULB.SelectedIndex = -1
Txt_Municipal.Text = 0.0
Txt_Population.Text = 0.0
Txt_IWaterS_2015.Text = 0.0
Txt_IwaterS_2025.Text = 0.0
Txt_IWaterS_2035.Text = 0.0
Txt_Total_WaterS.Text = 0.0
Txt_ISewerage_15.Text = 0.0
Txt_ISewrege_25.Text = 0.0
TXt_ISewerage_35.Text = 0.0
Txt_Total_ISewerage.Text = 0.0
Txt_IStormWaterDrain_15.Text = 0.0
Txt_IStromWaterDrain_25.Text = 0.0
Txt_IStromWaterDrain_35.Text = 0.0
Txt_Total_StromWaterDrain.Text = 0.0
Txt_ISolideWastMgt_15.Text = 0.0
Txt_ISolidWastMgt_25.Text = 0.0
Txt_ISolidWastMgt_35.Text = 0.0
Txt_TotalSolidWastMgt.Text = 0.0
Txt_ISanitation_15.Text = 0.0
Txt_ISanition_25.Text = 0.0
Txt_ISanitation_35.Text = 0.0
Txt_Total_Sanition.Text = 0.0
Txt_Trafic_Trans_15.Text = 0.0
Txt_ITrafficTrans_25.Text = 0.0
Txt_ITraffiTrans_35.Text = 0.0
Txt_Total_TraficTrans.Text = 0.0
Txt_IElectriStrit_15.Text = 0.0
Txt_IElectriStreet_25.Text = 0.0
Txt_IElectricStreet_35.Text = 0.0
Txt_Total_ElectricStreet.Text = 0.0
Txt_IFire_Fit_15.Text = 0.0
Txt_IFire_Fit_25.Text = 0.0
Txt_IFire_Fit_35.Text = 0.0
Txt_Total_Fire_Fit.Text = 0.0
Txt_BasicSerUP_15.Text = 0.0
Txt_BasicSerUP_25.Text = 0.0
Txt_BasicSerUP_35.Text = 0.0
Txt_Total_BasicSerUP.Text = 0.0
Txt_IEnvironment_15.Text = 0.0
Txt_IEnvironment_25.Text = 0.0
Txt_IEnvironment_35.Text = 0.0
Txt_Total_Environment.Text = 0.0
Txt_IUrbanGov_15.Text = 0.0
Txt_IUrbanGov_25.Text = 0.0
Txt_IUrbanGov_35.Text = 0.0
Txt_Total_IUrbanGov.Text = 0.0
Txt_IHeritage_15.Text = 0.0
Txt_IHeritage_25.Text = 0.0
Txt_IHeritage_35.Text = 0.0
Txt_Total_IHeritage.Text = 0.0
Txt_IEducation_15.Text = 0.0
Txt_IEducation_25.Text = 0.0
Txt_IEducation_35.Text = 0.0
Txt_Total_IEducation.Text = 0.0
Txt_IHealth_15.Text = 0.0
Txt_IHealth_25.Text = 0.0
Txt_IHealth_35.Text = 0.0
Txt_Total_IHealth.Text = 0.0
Txt_ISocialIOP_15.Text = 0.0
Txt_ISocialIOP_25.Text = 0.0
Txt_ISocialIOP_35.Text = 0.0
Txt_Total_SocialIOP.Text = 0.0
End Sub
Protected Sub Txt_IWaterS_2015_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_IWaterS_2015.TextChanged
' Txt_Total_WaterS.Text = Txt_IWaterS_2015.Text + Txt_IwaterS_2025.Text + Txt_IWaterS_2035.Text
End Sub
Protected Sub Txt_Total_WaterS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Total_WaterS.TextChanged
' Txt_Total_WaterS.Text = Txt_IWaterS_2015.Text + Txt_IwaterS_2025.Text + Txt_IWaterS_2035.Text
End Sub
'----------------------------------------------------------------------------
Protected Sub GVULB_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GVULB.PageIndexChanging
GVULB.PageIndex = e.NewPageIndex
GVBind()
End Sub
Protected Sub GVULB_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GVULB.Sorting
Dim dataTable As Data.DataTable = DirectCast(Session("dt"), Data.DataTable)
If dataTable IsNot Nothing Then
'Create new dataview instance and pass datatable
Dim dataView As New Data.DataView(dataTable)
'get sort direction from the get sort direction method
Dim sortDirection As String = GetSortDirection()
'Sort dataview data based on the sort directin value
dataView.Sort = Convert.ToString(e.SortExpression) & " " & sortDirection
'Assign datasource and bind data to grid view
GVULB.DataSource = dataView
GVULB.DataBind()
If Session("dir") = "DESC" Then
Session("dir") = "ASC"
Else
Session("dir") = "DESC"
End If
End If
End Sub
Private Property GVSortDirection() As String
Get
'If ViewState("SortDirection") Then
' ViewState("SortDirection") = "DESC"
'End If
'If (TryCast(ViewState("SortDirection"), String)) Then
If Session("dir") = "ASC" Then
Session("dir") = "ASC"
Else
Session("dir") = "DESC"
End If
Return Session("dir")
'End If
'Return ViewState("SortDirection") '.ToString() 'If(TryCast(ViewState("SortDirection"), String), "DESC")
End Get
Set(ByVal value As String)
Session("dir") = value
End Set
End Property
Private Function GetSortDirection() As String
Select Case GVSortDirection
'If previous sort direction if ascending order then assign new direction as descending order
Case "ASC"
GVSortDirection = "DESC"
Exit Select
'If previous sort direction if descending order then assign new direction as ascending order
Case "DESC"
GVSortDirection = "ASC"
Exit Select
End Select
Return GVSortDirection
End Function
Protected Sub GVULB_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVULB.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
For i As Integer = 0 To e.Row.Cells.Count - 1
If e.Row.Cells(i).Controls.Count > 0 Then
Dim Link As LinkButton = DirectCast(e.Row.Cells(i).Controls(0), LinkButton)
Link.Attributes.Add("style", "text-decoration:none;")
End If
Next
End If
End Sub
Private Sub Gformate()
GVULB.Columns(0).ControlStyle.Width = 10
GVULB.Columns(1).ControlStyle.Width = 100
GVULB.Columns(2).ControlStyle.Width = 50
GVULB.Columns(3).ControlStyle.Width = 50
GVULB.Columns(4).ControlStyle.Width = 50
GVULB.Columns(5).ControlStyle.Width = 50
' GVULB.Columns(1).ControlStyle.Width = 50
GVULB.Columns(7).ControlStyle.Width = 150
GVULB.Columns(8).ControlStyle.Width = 150
GVULB.Columns(9).ControlStyle.Width = 50
GVULB.Columns(10).ControlStyle.Width = 50
GVULB.Columns(11).ControlStyle.Width = 50
GVULB.Columns(12).ControlStyle.Width = 50
GVULB.Columns(13).ControlStyle.Width = 50
GVULB.Columns(14).ControlStyle.Width = 50
GVULB.Columns(15).ControlStyle.Width = 50
GVULB.Columns(16).ControlStyle.Width = 50
GVULB.Columns(17).ControlStyle.Width = 50
GVULB.Columns(18).ControlStyle.Width = 50
GVULB.Columns(19).ControlStyle.Width = 50
GVULB.Columns(20).ControlStyle.Width = 50
GVULB.Columns(21).ControlStyle.Width = 50
GVULB.Columns(22).ControlStyle.Width = 50
GVULB.Columns(23).ControlStyle.Width = 50
GVULB.Columns(24).ControlStyle.Width = 50
GVULB.Columns(25).ControlStyle.Width = 50
End Sub
Private Function GVBind()
_loginID = GetLOfinId()
Dim dsAdmin As New Data.DataSet()
Dim dt As New Data.DataTable()
Global.Command.CreateSqlConnection()
Dim da As New Data.SqlClient.SqlDataAdapter(" SELECT * FROM Vew_CDP where LoginID=" & _loginID & "", Global.Command.CreateSqlConnection())
' DataTable dt = new DataTable();
da.Fill(dsAdmin, "Admin")
Dim myDataTable As Data.DataTable = dsAdmin.Tables(0)
If myDataTable.Rows.Count > 0 Then
Session("dt") = myDataTable
GVULB.DataSource = myDataTable
GVULB.DataBind()
End If
da.Dispose()
myDataTable.Dispose()
End Function
'------------------------------------
Sub Bindgrid()
'Trace.Write("BindData - Start " & Now.ToString)
'Dim Filter As New StringBuilder
_loginID = GetLOfinId()
Dim sql As String = " SELECT * FROM Vew_CDP where LoginID=" & _loginID & "" '"Select ID, IP_Address from tblIPAddressWhitelist"
'If Filter.ToString().Length > 0 Then
' sql = sql
'End If
'Trace.Write(sql)
Me.sdcIPAddress.SelectCommand = sql
Me.grdCDP.DataSource = sdcIPAddress
Me.grdCDP.DataBind()
'Trace.Write("BindData - End " & Now.ToString)
' rec_count()
End Sub
Protected Sub grdCDP_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grdCDP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim lc As System.Web.UI.Control = e.Row.Cells(2).Controls(0)
If TypeOf (lc) Is DataBoundLiteralControl Then
If CType(lc, DataBoundLiteralControl).Text.Contains("#") Then
e.Row.Visible = False
End If
ElseIf TypeOf (lc) Is LiteralControl Then
If CType(lc, LiteralControl).Text.Contains("#") Then
e.Row.Visible = False
End If
End If
End If
End Sub
Protected Sub grdCDP_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grdCDP.RowDeleting
Dim rndx As Int32 = e.RowIndex
Dim a As Integer
a = rndx + 1
Dim str() As String
str = Me.grdCDP.DataKeyNames
Me.sdcIPAddress.DeleteParameters("INV_ID").DefaultValue = a
End Sub
Protected Sub grdCDP_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grdCDP.RowUpdating
Dim tsty, tsty1, tsty2, tsty3, tsty4, tsty5, tsty6, tsty7, tsty8, tsty9, tsty10, tsty11, tsty12, tsty13, tsty14, tsty15, tsty16, tsty17, tsty18, tsty19, tsty20, tsty21, tsty22, tsty23, tsty24, tsty25, tsty26, tsty27, tsty28, tsty29, tsty30, tsty31, tsty32, tsty33, tsty34, tsty35, tsty36, tsty37, tsty38, tsty39, tsty40, tsty41, tsty42, tsty43, tsty44, tsty45, tsty46, tsty47, tsty48, tsty49, tsty50, tsty51, tsty52, tsty53, tsty54, tsty55, tsty56, tsty57, tsty58, tsty59, tsty60, tsty61 As TextBox
Dim s, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35, s36, s37, s38, s39, s40, s41, s42, s43, s44, s45, s46, s47, s48, s49, s50, s51, s52, s53, s54, s55, s56, s57, s58, s59, s60, s61, s62 As Object
tsty = grdCDP.Rows(e.RowIndex).Cells(8).Controls(1)
tsty1 = grdCDP.Rows(e.RowIndex).Cells(9).Controls(1)
tsty2 = grdCDP.Rows(e.RowIndex).Cells(10).Controls(1)
tsty3 = grdCDP.Rows(e.RowIndex).Cells(11).Controls(1)
tsty4 = grdCDP.Rows(e.RowIndex).Cells(12).Controls(1)
tsty5 = grdCDP.Rows(e.RowIndex).Cells(13).Controls(1)
tsty6 = grdCDP.Rows(e.RowIndex).Cells(14).Controls(1)
tsty7 = grdCDP.Rows(e.RowIndex).Cells(15).Controls(1)
tsty8 = grdCDP.Rows(e.RowIndex).Cells(16).Controls(1)
tsty9 = grdCDP.Rows(e.RowIndex).Cells(17).Controls(1)
tsty10 = grdCDP.Rows(e.RowIndex).Cells(18).Controls(1)
tsty11 = grdCDP.Rows(e.RowIndex).Cells(19).Controls(1)
tsty12 = grdCDP.Rows(e.RowIndex).Cells(20).Controls(1)
tsty13 = grdCDP.Rows(e.RowIndex).Cells(21).Controls(1)
tsty14 = grdCDP.Rows(e.RowIndex).Cells(22).Controls(1)
tsty15 = grdCDP.Rows(e.RowIndex).Cells(23).Controls(1)
tsty16 = grdCDP.Rows(e.RowIndex).Cells(24).Controls(1)
tsty17 = grdCDP.Rows(e.RowIndex).Cells(25).Controls(1)
tsty18 = grdCDP.Rows(e.RowIndex).Cells(26).Controls(1)
tsty19 = grdCDP.Rows(e.RowIndex).Cells(27).Controls(1)
tsty20 = grdCDP.Rows(e.RowIndex).Cells(28).Controls(1)
tsty21 = grdCDP.Rows(e.RowIndex).Cells(29).Controls(1)
tsty22 = grdCDP.Rows(e.RowIndex).Cells(30).Controls(1)
tsty23 = grdCDP.Rows(e.RowIndex).Cells(31).Controls(1)
tsty24 = grdCDP.Rows(e.RowIndex).Cells(32).Controls(1)
tsty25 = grdCDP.Rows(e.RowIndex).Cells(33).Controls(1)
tsty26 = grdCDP.Rows(e.RowIndex).Cells(34).Controls(1)
tsty27 = grdCDP.Rows(e.RowIndex).Cells(35).Controls(1)
tsty28 = grdCDP.Rows(e.RowIndex).Cells(36).Controls(1)
tsty29 = grdCDP.Rows(e.RowIndex).Cells(37).Controls(1)
tsty30 = grdCDP.Rows(e.RowIndex).Cells(38).Controls(1)
tsty31 = grdCDP.Rows(e.RowIndex).Cells(39).Controls(1)
tsty32 = grdCDP.Rows(e.RowIndex).Cells(40).Controls(1)
tsty33 = grdCDP.Rows(e.RowIndex).Cells(41).Controls(1)
tsty34 = grdCDP.Rows(e.RowIndex).Cells(42).Controls(1)
tsty35 = grdCDP.Rows(e.RowIndex).Cells(43).Controls(1)
tsty36 = grdCDP.Rows(e.RowIndex).Cells(44).Controls(1)
tsty37 = grdCDP.Rows(e.RowIndex).Cells(45).Controls(1)
tsty38 = grdCDP.Rows(e.RowIndex).Cells(46).Controls(1)
tsty39 = grdCDP.Rows(e.RowIndex).Cells(47).Controls(1)
tsty40 = grdCDP.Rows(e.RowIndex).Cells(48).Controls(1)
tsty41 = grdCDP.Rows(e.RowIndex).Cells(49).Controls(1)
tsty42 = grdCDP.Rows(e.RowIndex).Cells(50).Controls(1)
tsty43 = grdCDP.Rows(e.RowIndex).Cells(51).Controls(1)
tsty44 = grdCDP.Rows(e.RowIndex).Cells(52).Controls(1)
tsty45 = grdCDP.Rows(e.RowIndex).Cells(53).Controls(1)
tsty46 = grdCDP.Rows(e.RowIndex).Cells(54).Controls(1)
tsty47 = grdCDP.Rows(e.RowIndex).Cells(55).Controls(1)
tsty48 = grdCDP.Rows(e.RowIndex).Cells(56).Controls(1)
tsty49 = grdCDP.Rows(e.RowIndex).Cells(57).Controls(1)
tsty50 = grdCDP.Rows(e.RowIndex).Cells(58).Controls(1)
tsty51 = grdCDP.Rows(e.RowIndex).Cells(59).Controls(1)
tsty52 = grdCDP.Rows(e.RowIndex).Cells(60).Controls(1)
tsty53 = grdCDP.Rows(e.RowIndex).Cells(61).Controls(1)
tsty54 = grdCDP.Rows(e.RowIndex).Cells(62).Controls(1)
tsty55 = grdCDP.Rows(e.RowIndex).Cells(63).Controls(1)
tsty56 = grdCDP.Rows(e.RowIndex).Cells(64).Controls(1)
tsty57 = grdCDP.Rows(e.RowIndex).Cells(65).Controls(1)
tsty58 = grdCDP.Rows(e.RowIndex).Cells(66).Controls(1)
tsty59 = grdCDP.Rows(e.RowIndex).Cells(67).Controls(1)
tsty60 = grdCDP.Rows(e.RowIndex).Cells(68).Controls(1)
tsty61 = grdCDP.Rows(e.RowIndex).Cells(69).Controls(1)
' tsty62 = grdCDP.Rows(e.RowIndex).Cells(69).Controls(1)
' tsty62 = grdCDP.Rows(e.RowIndex).Cells(70).Controls(1)
Dim t As TextBox = tsty
s = (t.Text).Trim
If s.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t1 As TextBox = tsty1
s1 = (t1.Text).Trim
If s1.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t2 As TextBox = tsty2
s2 = (t2.Text).Trim
If s2.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t3 As TextBox = tsty3
s3 = (t3.Text).Trim
If s3.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t4 As TextBox = tsty4
s4 = (t4.Text).Trim
If s4.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t5 As TextBox = tsty5
s5 = (t5.Text).Trim
If s5.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t6 As TextBox = tsty6
s6 = (t6.Text).Trim
If s6.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t7 As TextBox = tsty7
s7 = (t7.Text).Trim
If s7.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t8 As TextBox = tsty8
s8 = (t8.Text).Trim
If s8.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t9 As TextBox = tsty9
s9 = (t9.Text).Trim
If s8.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t10 As TextBox = tsty10
s10 = (t10.Text).Trim
If s10.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t11 As TextBox = tsty11
s11 = (t11.Text).Trim
If s11.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t12 As TextBox = tsty12
s12 = (t12.Text).Trim
If s12.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t13 As TextBox = tsty13
s13 = (t13.Text).Trim
If s13.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t14 As TextBox = tsty14
s14 = (t14.Text).Trim
If s14.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t15 As TextBox = tsty15
s15 = (t15.Text).Trim
If s15.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t16 As TextBox = tsty16
s16 = (t16.Text).Trim
If s16.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t17 As TextBox = tsty17
s17 = (t17.Text).Trim
If s17.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t18 As TextBox = tsty18
s18 = (t18.Text).Trim
If s18.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t19 As TextBox = tsty19
s19 = (t19.Text).Trim
If s19.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t20 As TextBox = tsty20
s20 = (t20.Text).Trim
If s20.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t21 As TextBox = tsty21
s21 = (t21.Text).Trim
If s21.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t22 As TextBox = tsty22
s22 = (t22.Text).Trim
If s22.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t23 As TextBox = tsty23
s23 = (t23.Text).Trim
If s23.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t24 As TextBox = tsty24
s24 = (t24.Text).Trim
If s24.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t25 As TextBox = tsty25
s25 = (t25.Text).Trim
If s25.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t26 As TextBox = tsty26
s26 = (t26.Text).Trim
If s26.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t27 As TextBox = tsty27
s27 = (t27.Text).Trim
If s27.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t28 As TextBox = tsty28
s28 = (t28.Text).Trim
If s28.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t29 As TextBox = tsty29
s29 = (t29.Text).Trim
If s29.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t30 As TextBox = tsty30
s30 = (t30.Text).Trim
If s30.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t31 As TextBox = tsty31
s31 = (t31.Text).Trim
If s31.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t32 As TextBox = tsty32
s32 = (t32.Text).Trim
If s32.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t33 As TextBox = tsty33
s33 = (t33.Text).Trim
If s33.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t34 As TextBox = tsty34
s34 = (t34.Text).Trim
If s34.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t35 As TextBox = tsty35
s35 = (t35.Text).Trim
If s35.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t36 As TextBox = tsty36
s36 = (t36.Text).Trim
If s36.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t37 As TextBox = tsty37
s37 = (t37.Text).Trim
If s37.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t38 As TextBox = tsty38
s38 = (t38.Text).Trim
If s38.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t39 As TextBox = tsty39
s39 = (t39.Text).Trim
If s39.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t40 As TextBox = tsty40
s40 = (t40.Text).Trim
If s40.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t41 As TextBox = tsty41
s41 = (t41.Text).Trim
If s41.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t42 As TextBox = tsty42
s42 = (t42.Text).Trim
If s42.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t43 As TextBox = tsty43
s43 = (t43.Text).Trim
If s43.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t44 As TextBox = tsty44
s44 = (t44.Text).Trim
If s44.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t45 As TextBox = tsty45
s45 = (t45.Text).Trim
If s45.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t46 As TextBox = tsty46
s46 = (t46.Text).Trim
If s46.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t47 As TextBox = tsty47
s47 = (t47.Text).Trim
If s47.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t48 As TextBox = tsty48
s48 = (t48.Text).Trim
If s48.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t49 As TextBox = tsty49
s49 = (t49.Text).Trim
If s49.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t50 As TextBox = tsty50
s50 = (t50.Text).Trim
If s50.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t51 As TextBox = tsty51
s51 = (t51.Text).Trim
If s51.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t52 As TextBox = tsty52
s52 = (t52.Text).Trim
If s52.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t53 As TextBox = tsty53
s53 = (t53.Text).Trim
If s53.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t54 As TextBox = tsty54
s54 = (t54.Text).Trim
If s54.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t55 As TextBox = tsty55
s55 = (t55.Text).Trim
If s55.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t56 As TextBox = tsty56
s56 = (t56.Text).Trim
If s56.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t57 As TextBox = tsty57
s57 = (t57.Text).Trim
If s57.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t58 As TextBox = tsty58
s58 = (t58.Text).Trim
If s58.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t59 As TextBox = tsty59
s59 = (t59.Text).Trim
If s59.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t60 As TextBox = tsty60
s60 = (t60.Text).Trim
If s60.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t61 As TextBox = tsty61
s61 = (t61.Text).Trim
If s61.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Me.sdcIPAddress.UpdateParameters("INV_ID").DefaultValue = grdCDP.DataKeys(e.RowIndex).Value
Me.sdcIPAddress.UpdateParameters("Ia").DefaultValue = s
Me.sdcIPAddress.UpdateParameters("Ia1").DefaultValue = s1
Me.sdcIPAddress.UpdateParameters("Ia2").DefaultValue = s2
Me.sdcIPAddress.UpdateParameters("Ia3").DefaultValue = s3
Me.sdcIPAddress.UpdateParameters("Ia4").DefaultValue = s4
s5 = Convert.ToInt32(s2) + Convert.ToDouble(s3) + Convert.ToDouble(s4)
Me.sdcIPAddress.UpdateParameters("Ia5").DefaultValue = s5
Me.sdcIPAddress.UpdateParameters("Ia6").DefaultValue = s6
Me.sdcIPAddress.UpdateParameters("Ia7").DefaultValue = s7
Me.sdcIPAddress.UpdateParameters("Ia8").DefaultValue = s8
s9 = Convert.ToDouble(s6) + Convert.ToDouble(s7) + Convert.ToDouble(s8)
Me.sdcIPAddress.UpdateParameters("Ia9").DefaultValue = s9
Me.sdcIPAddress.UpdateParameters("Ia10").DefaultValue = s10
Me.sdcIPAddress.UpdateParameters("Ia11").DefaultValue = s11
Me.sdcIPAddress.UpdateParameters("Ia12").DefaultValue = s12
s13 = Convert.ToDouble(s10) + Convert.ToDouble(s11) + Convert.ToDouble(s12)
Me.sdcIPAddress.UpdateParameters("Ia13").DefaultValue = s13
Me.sdcIPAddress.UpdateParameters("Ia14").DefaultValue = s14
Me.sdcIPAddress.UpdateParameters("Ia15").DefaultValue = s15
Me.sdcIPAddress.UpdateParameters("Ia16").DefaultValue = s16
s17 = Convert.ToDouble(s14) + Convert.ToDouble(s15) + Convert.ToDouble(s16)
Me.sdcIPAddress.UpdateParameters("Ia17").DefaultValue = s17
Me.sdcIPAddress.UpdateParameters("Ia18").DefaultValue = s18
Me.sdcIPAddress.UpdateParameters("Ia19").DefaultValue = s19
Me.sdcIPAddress.UpdateParameters("Ia20").DefaultValue = s20
s21 = Convert.ToDouble(s18) + Convert.ToDouble(s19) + Convert.ToDouble(s20)
Me.sdcIPAddress.UpdateParameters("Ia21").DefaultValue = s21
Me.sdcIPAddress.UpdateParameters("Ia22").DefaultValue = s22
Me.sdcIPAddress.UpdateParameters("Ia23").DefaultValue = s23
Me.sdcIPAddress.UpdateParameters("Ia24").DefaultValue = s24
s25 = Convert.ToDouble(s22) + Convert.ToDouble(s23) + Convert.ToDouble(s24)
Me.sdcIPAddress.UpdateParameters("Ia25").DefaultValue = s25
Me.sdcIPAddress.UpdateParameters("Ia26").DefaultValue = s26
Me.sdcIPAddress.UpdateParameters("Ia27").DefaultValue = s27
Me.sdcIPAddress.UpdateParameters("Ia28").DefaultValue = s28
s29 = Convert.ToDouble(s26) + Convert.ToDouble(s28) + Convert.ToDouble(s28)
Me.sdcIPAddress.UpdateParameters("Ia29").DefaultValue = s29
Me.sdcIPAddress.UpdateParameters("Ia30").DefaultValue = s30
Me.sdcIPAddress.UpdateParameters("Ia31").DefaultValue = s31
Me.sdcIPAddress.UpdateParameters("Ia32").DefaultValue = s32
s33 = Convert.ToDouble(s30) + Convert.ToDouble(s31) + Convert.ToDouble(s32)
Me.sdcIPAddress.UpdateParameters("Ia33").DefaultValue = s33
Me.sdcIPAddress.UpdateParameters("Ia34").DefaultValue = s34
Me.sdcIPAddress.UpdateParameters("Ia35").DefaultValue = s35
Me.sdcIPAddress.UpdateParameters("Ia36").DefaultValue = s36
s37 = Convert.ToDouble(s34) + Convert.ToDouble(s35) + Convert.ToDouble(s36)
Me.sdcIPAddress.UpdateParameters("Ia37").DefaultValue = s37
Me.sdcIPAddress.UpdateParameters("Ia38").DefaultValue = s38
Me.sdcIPAddress.UpdateParameters("Ia39").DefaultValue = s39
Me.sdcIPAddress.UpdateParameters("Ia40").DefaultValue = s40
s41 = Convert.ToDouble(s38) + Convert.ToDouble(s39) + Convert.ToDouble(s40)
Me.sdcIPAddress.UpdateParameters("Ia41").DefaultValue = s41
Me.sdcIPAddress.UpdateParameters("Ia42").DefaultValue = s42
Me.sdcIPAddress.UpdateParameters("Ia43").DefaultValue = s43
Me.sdcIPAddress.UpdateParameters("Ia44").DefaultValue = s44
s45 = Convert.ToDouble(s42) + Convert.ToDouble(s43) + Convert.ToDouble(s44)
Me.sdcIPAddress.UpdateParameters("Ia45").DefaultValue = s45
Me.sdcIPAddress.UpdateParameters("Ia46").DefaultValue = s46
Me.sdcIPAddress.UpdateParameters("Ia47").DefaultValue = s47
Me.sdcIPAddress.UpdateParameters("Ia48").DefaultValue = s48
s49 = Convert.ToDouble(s46) + Convert.ToDouble(s47) + Convert.ToDouble(s48)
Me.sdcIPAddress.UpdateParameters("Ia49").DefaultValue = s49
Me.sdcIPAddress.UpdateParameters("Ia50").DefaultValue = s50
Me.sdcIPAddress.UpdateParameters("Ia51").DefaultValue = s51
Me.sdcIPAddress.UpdateParameters("Ia52").DefaultValue = s52
s53 = Convert.ToDouble(s50) + Convert.ToDouble(s51) + Convert.ToDouble(s52)
Me.sdcIPAddress.UpdateParameters("Ia53").DefaultValue = s53
Me.sdcIPAddress.UpdateParameters("Ia54").DefaultValue = s54
Me.sdcIPAddress.UpdateParameters("Ia55").DefaultValue = s55
Me.sdcIPAddress.UpdateParameters("Ia56").DefaultValue = s56
s57 = Convert.ToDouble(s54) + Convert.ToDouble(s55) + Convert.ToDouble(s56)
Me.sdcIPAddress.UpdateParameters("Ia57").DefaultValue = s57
Me.sdcIPAddress.UpdateParameters("Ia58").DefaultValue = s58
Me.sdcIPAddress.UpdateParameters("Ia59").DefaultValue = s59
Me.sdcIPAddress.UpdateParameters("Ia60").DefaultValue = s60
s61 = Convert.ToDouble(s58) + Convert.ToDouble(s59) + Convert.ToDouble(s60)
Me.sdcIPAddress.UpdateParameters("Ia61").DefaultValue = s61
Me.sdcIPAddress.Update()
' Else
' Me.LblError.Text = "* " & s & " IP_Address already exists"
' Me.LblError.Visible = True
' e.Cancel = True
' End If
' IPadrs = Nothing
'End If
'IPADD = Nothing
'om = Nothing
End Sub
'Sub rec_count()
' Dim con As New SqlConnection(Config.Dsn)
' con.Open()
' Dim cmd2 As SqlCommand
' Dim rcount As Integer
' cmd2 = New SqlCommand("select count(*) from tblIPAddressWhitelist ", con)
' rcount = cmd2.ExecuteScalar
' con.Close()
' If rcount = 0 Then
' lblRecordCount.Text = ""
' Else
' lblRecordCount.Text = "Total Records:" & rcount
' End If
'End Sub
End Class
Discord hacker0088#9402
FSecurity.org