Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : SideProduct.ascx.vb

Imports System.IO
Imports System.Net.Mail
Imports System.Net
Imports System.Web.Services
Imports System.Web.UI.WebControls
Imports System.Data.SqlClient
Imports System.Data
Partial Class UserControl_SideProduct
    Inherits System.Web.UI.UserControl
    Dim _conn As SqlConnection
    Dim cmd As SqlCommand
    Dim dr As SqlDataReader
    Dim da As SqlDataAdapter
    Dim ds As New DataSet
    Public conn As String
    Dim catid As Integer
    Dim cID As Integer
    Dim path3 As String
    Dim ds1 As New DataSet()
    Dim da1 As SqlDataAdapter
    Dim da2 As SqlDataAdapter
    Dim ds2 As New DataSet()
    Dim IDD As Integer = 0
    Public Seourl As String
    Public Caturl As String
    Dim mainid As Integer
    Dim Productcatagory As String
    Dim categoryid As String

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        conn = ConfigurationManager.ConnectionStrings("connectionString").ConnectionString
        _conn = New SqlConnection(conn)
        If Not IsPostBack Then
            'Seourl = Request.QueryString("seourl")
            Caturl = Me.Page.RouteData.Values("caturl")
            If Caturl = "" Then
                Caturl = Me.Page.RouteData.Values("seourl")
            End If
            Seourl = Me.Page.RouteData.Values("seourl")

BindRepeater()
        End If
    End Sub

Protected Sub BindRepeater()
        DoValidate.openConn(_conn)
        ' ''Dim cmd As New SqlCommand("SELECT top 5 tblCategory.*, tblProduct.*, tblProduct_Image.* FROM tblProduct_Image INNER JOIN tblProduct ON tblProduct_Image.Product_Id = tblProduct.Product_Id INNER JOIN tblCategory ON tblProduct.Product_CategoryId = tblCategory.PrdCategory_ID  where tblProduct.BSeoUrl<>'" + Seourl + "'", _conn)
        'Dim cmd As New SqlCommand("SELECT top 5 tblCategory.*, tblProduct.*,    " _
        '                        & "isnull((Select top 1 Image_Url from tblProduct_Image where tblProduct_Image.Product_Id = tblProduct.Product_Id ),'/img/Noimg.png')as Image_Url    " _
        '                        & "FROM tblProduct INNER JOIN tblCategory ON tblProduct.Product_CategoryId = tblCategory.PrdCategory_ID  where tblProduct.BSeoUrl<>'" + Seourl + "'", _conn)
        Dim cmdA As String
        If Caturl = "" Then
            cmdA = "SELECT top 5 tblCategory.*, tblProduct.*,       " _
                               & " isnull((Select top 1 Image_Url from tblProduct_Image where tblProduct_Image.Product_Id = tblProduct.Product_Id  AND tblProduct_Image.ProdImg_Del='False' ),'/img/Noimg.png')as Image_Url        " _
                               & " FROM tblProduct INNER JOIN tblCategory ON tblProduct.Product_CategoryId = tblCategory.PrdCategory_ID      " _
                               & " where tblProduct.BSeoUrl<>'" + Seourl + "'  and Product_Popular='True' "
        Else
            cmdA = "SELECT top 5 tblCategory.*, tblProduct.*,       " _
                                & " isnull((Select top 1 Image_Url from tblProduct_Image where tblProduct_Image.Product_Id = tblProduct.Product_Id  AND tblProduct_Image.ProdImg_Del='False' ),'/img/Noimg.png')as Image_Url        " _
                                & " FROM tblProduct INNER JOIN tblCategory ON tblProduct.Product_CategoryId = tblCategory.PrdCategory_ID      " _
                                & " where tblCategory.SeoUrl= '" + Caturl + "'  and tblProduct.BSeoUrl<>'" + Seourl + "'  and Product_Popular='True' "
        End If
        Dim cmd As New SqlCommand(cmdA, _conn)
        'Dim cmd As New SqlCommand("SELECT top 5 tblCategory.*, tblProduct.*,       " _
        '                        & " isnull((Select top 1 Image_Url from tblProduct_Image where tblProduct_Image.Product_Id = tblProduct.Product_Id  AND tblProduct_Image.ProdImg_Del='False' ),'/img/Noimg.png')as Image_Url        " _
        '                        & " FROM tblProduct INNER JOIN tblCategory ON tblProduct.Product_CategoryId = tblCategory.PrdCategory_ID      " _
        '                        & " where tblCategory.SeoUrl= '" + Caturl + "'  and tblProduct.BSeoUrl<>'" + Seourl + "'", _conn)
        Dim da As New SqlDataAdapter(cmd)
        da.Fill(ds1)
        DoValidate.closeConn(_conn)
        If ds1.Tables(0).Rows.Count > 0 Then
            rrsideproduct.DataSource = ds1
            rrsideproduct.DataBind()
        Else
            ds1.Tables(0).Rows.Add(ds1.Tables(0).NewRow())
            rrsideproduct.DataSource = ds1
            rrsideproduct.DataBind()
        End If
    End Sub
    Public Function checkrate(ByVal rate As Double, ByVal dicount As Double) As String
        Try
            If rate = dicount Then
                Return "discount-price hiderate"
            Else
                Return "discount-price"
            End If
        Catch ex As Exception

End Try
    End Function
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2018-10-03 11:01:03
..	dir	-	0/0	0777	2025-11-19 01:53:22
Back	dir	-	0/0	0777	2018-10-03 11:01:03
SideProduct.ascx	text/html	1.96 KB	0/0	0666	2020-07-30 06:40:56
SideProduct.ascx.vb	text/plain	4.82 KB	0/0	0666	2020-07-30 06:40:56

Team Anon Force

https://t.me/Professor6T9x