Imports System.Data.SqlClient
Imports System.Data
Imports System
Imports System.Web.UI.WebControls
Imports System.Text



Partial Class SiteMap
    Inherits System.Web.UI.Page
    'Protected WithEvents lnkSearchProduct As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkForServices As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkForBusinessAssociates As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkCategories As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkForSuppliers As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkAboutAtcomaart As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkSearchProducts As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkRegister As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkRegisterSupplier As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkListyourproduct As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkYouraccount As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkFAQ As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkDirectSalesServices As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkFranchiseeStores As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkWarehouse As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkwebstore As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkcatalogue As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkHome As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkCompanyInfo As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkVissionMission As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkCareers As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkContactUs As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkSiteMap As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkPrivacyPolicy As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents TermsofAccess As System.Web.UI.WebControls.HyperLink
    'Protected WithEvents lnkTermsofPurchase As System.Web.UI.WebControls.HyperLink

    'Protected WithEvents lnkByres As System.Web.UI.WebControls.HyperLink
    Dim constr As String = ConfigurationSettings.AppSettings.Item("ConnectionString")
    Protected WithEvents tdDisp1 As System.Web.UI.HtmlControls.HtmlTableCell
    Dim con As New SqlConnection(constr)

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ''Put user code to initialize the page here
        'If Not IsPostBack Then
        '    LoadData()
        '    If IsNothing(Session("Jitha")) Then

        '    Else

        '    End If
        'End If
    End Sub
    'Private Sub LoadData()
    '    Dim strbld As New StringBuilder()
    '    If con.State = Data.ConnectionState.Open Then
    '        con.Close()
    '        'Else
    '        '    con.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    '    End If
    '    con.Open()
    '    Dim cmd As New SqlCommand("select * from category_master where Category_ParentId='Root Category' order by category_Name", con)
    '    Dim mReder As SqlDataReader = cmd.ExecuteReader
    '    strbld.Append("<Table border=0>")
    '    While mReder.Read
    '        strbld.Append("<tr><td>")
    '        strbld.Append("<a href=./information.aspx?Id=")
    '        strbld.Append(mReder("Category_kid"))
    '        strbld.Append("><p>")
    '        strbld.Append("")
    '        strbld.Append(mReder("Category_Name"))
    '        strbld.Append("</p></a>")
    '        strbld.Append("</td></tr>")
    '        strbld.Append("<tr><td></td></tr>")
    '    End While
    '    strbld.Append("</Table>")
    '    tdDisp.InnerHtml = strbld.ToString
    'End Sub

End Class
