KucukHacker0088 Shell

Current Path : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/

Windows NT SG2NWVPWEB022 10.0 build 17763 (Windows Server 2016) i586 Upload File :

Current File : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/Team.aspx.vb

Imports System.Data
Imports System.Data.SqlClient

Partial Class Team
    Inherits System.Web.UI.Page

    Dim ObjClassDB As New ClassDB

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ObjClassDB.ConnectDB()
        If Page.IsPostBack = False Then
            Call DataToGrid()
        End If
    End Sub

    Protected Sub GVTeamPanel_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GVTeamPanel.PageIndexChanging
        GVTeamPanel.PageIndex = e.NewPageIndex
        Call DataToGrid()
    End Sub

    Private Sub DataToGrid()

        Dim DS As New DataSet

        Dim ObjReturnValue As New ClassReturnValueSelectToGrid

        Dim mSPName As String = ""
        Dim mTableName As String = ""
        Dim mFieldName As String = ""
        Dim mWhereClause As String = ""
        Dim mOrderByClause As String = ""
        Dim mTexttoSearch As String = ""

        mWhereClause = ""

        mSPName = "SPGenericSelect"
        mTableName = "MasterTeamPanel"

        If Session("MyCulture") = "en" Then
            mFieldName = "TeamPID, TeamPNameE AS TeamPName, TeamPDesignationE AS TeamPDesignation, TeamPContact, TeamPEmail, ImagePath"
            mOrderByClause = "ORDER BY OrderOfDisplay"
        ElseIf Session("MyCulture") = "hi" Then
            mFieldName = "TeamPID, TeamPNameH AS TeamPName, TeamPDesignationH AS TeamPDesignation, TeamPContact, TeamPEmail, ImagePath"
            mOrderByClause = "ORDER BY OrderOfDisplay"
        Else
            mFieldName = "TeamPID, TeamPNameE AS TeamPName, TeamPDesignationE AS TeamPDesignation, TeamPContact, TeamPEmail, ImagePath"
            mOrderByClause = "ORDER BY OrderOfDisplay"
        End If

        ObjReturnValue = ObjClassDB.ExecuteSelectToGridSP(mSPName, mTableName, mFieldName, mWhereClause, mOrderByClause)

        DS = ObjReturnValue.Dataset
        GVTeamPanel.DataSource = DS.Tables(mTableName).DefaultView
        GVTeamPanel.DataBind()
    End Sub
End Class

Discord hacker0088#9402

FSecurity.org