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/ContactUs.aspx.vb

Imports System.Data
Imports System.Data.SqlClient

Partial Class ContactUs
    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

    Private Sub DataToGrid()

        Dim DataReader As SqlDataReader

        Dim mSPName As String = ""
        Dim mTableName As String = ""
        Dim mFieldName As String = ""

        mSPName = "SPGenericSelect"
        mTableName = "MasterContactUs"

        If Session("MyCulture") = "en" Then
            mFieldName = "ContactUsNameE AS ContactUsName"
        ElseIf Session("MyCulture") = "hi" Then
            mFieldName = "ContactUsNameH AS ContactUsName"
        Else
            mFieldName = "ContactUsNameE AS ContactUsName"
        End If

        DataReader = ObjClassDB.GetDataReaderSelectSP("SPGenericSelect", mTableName, mFieldName, "", "")

        If DataReader.Read Then
            LblContactUs.Text = DataReader("ContactUsName").ToString.Replace(vbCrLf, "<br/>")
        End If
        DataReader.Close()
    End Sub
End Class

Discord hacker0088#9402

FSecurity.org