Imports System Imports System.Data Imports System.Data.SqlClient Imports System.IO Imports ModCommon Imports CommonData Partial Class WebUserControl Inherits System.Web.UI.UserControl Dim productKid As String Dim productKid1 As String Dim productKid2 As String Shared g_Company As String Shared g_User As String Dim Sel1 As String Dim cmd As New SqlCommand Dim Cat1 As String Dim Ima1 As String Dim ima2 As String Dim ima3 As String Shared Brand1 As String Dim catid As String Dim name As String Dim dr As SqlDataReader Dim name1 As String Dim name2 As String Shared valuee1, valuee2, valuee3 As String Shared ddlRepeat As Boolean = False Shared val1, val2, val3 As Boolean Shared i As Integer Shared val(10) As String Shared ddl2Text As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try If Request.QueryString("Product_Id") = Nothing Then Dim hashTable As New Hashtable hashTable = CType(Session("ItemMaxMin"), Hashtable) Dim i As Integer = hashTable.Count productKid = hashTable.Item("ItemMaxMin0").ToString.Trim productKid1 = hashTable.Item("ItemMaxMin1").ToString.Trim If i > 2 Then productKid2 = hashTable.Item("ItemMaxMin2").ToString.Trim End If Else productKid = Request.QueryString("Product_Id") End If If Not Page.IsPostBack Then 'g_Company = Session("g_Compnay") 'g_User = Session("g_User") loadcategory() First_Combo() If productKid1 <> Nothing Then Dim productName2 As String = ReturnValue("SELECT Product_Name FROM Product_Master WHERE Product_Kid = '" & CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim & "' and Product_Isdeleted='0' and Product_Approved='Y' ") ddlPro2.Items.Clear() ddlPro2.Items.Insert(0, New ListItem(productName2, CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim)) ddlPro2.SelectedValue = CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim ' ddlPro2_SelectedIndexChanged(Nothing, Nothing) DisplayData2(CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim) End If If productKid2 <> Nothing Then Dim productName3 As String = ReturnValue("SELECT Product_Name FROM Product_Master WHERE Product_Kid = '" & CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim & "' and Product_Isdeleted='0' and Product_Approved='Y'") ddlPro3.Items.Clear() ddlPro3.Items.Insert(0, New ListItem(productName3, CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim)) ddlPro3.SelectedValue = CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim ' ddlPro3_SelectedIndexChanged(Nothing, Nothing) DisplayData3(CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim) End If If Request.QueryString("Product_Id") = Nothing Then Dim hashTable As New Hashtable hashTable = CType(Session("ItemMaxMin"), Hashtable) Dim i As Integer = hashTable.Count If i > 2 Then Else ddlPro3.Items.Clear() ddlPro3.Items.Insert(0, New ListItem("No Product", "No Product")) End If End If RowVisisbal(True) RowNotVisible() End If Catch ex As Exception End Try End Sub Private Sub First_Combo() Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") Dim str As String str = "Select Product_Kid,Product_Name from Product_Master where Product_KId ='" & productKid & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand cmd = New SqlCommand(str, con) Dim dr As SqlDataReader con.Open() dr = cmd.ExecuteReader While dr.Read ddlPro1.Items.Add(New ListItem(dr(1), dr(0))) End While ddlPro1.Items.FindByValue(productKid).Selected = True FirstCombo_SelectedIndex() con.Close() dr.Close() End Sub Private Sub FirstCombo_SelectedIndex() DisplayData1(ddlPro1.SelectedValue) End Sub Private Sub loadcategory() Try Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") Dim Str As String Str = "select Category_Kid,Category_Name from Category_Master where Category_ParentId='Root Category' and Category_Isdeleted='0' order by category_name asc" If con.State = Data.ConnectionState.Open Then con.Close() End If con.Open() Dim cmd As New SqlCommand(Str, con) Dim dr As SqlDataReader = cmd.ExecuteReader ddl1.DataSource = dr If dr.HasRows = True Then ddl1.DataTextField = "Category_Name" ddl1.DataValueField = "Category_Kid" ddl1.DataBind() Else RowVisisbal(True) End If con.Close() Catch ex As Exception ex.Message.ToString() End Try End Sub Public Sub fillsubgrid(ByVal catid As String) Dim con1 As New SqlConnection con1.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") Dim Strr As String Strr = "select Category_Kid,Category_Name from Category_Master where Category_ParentId ='" & catid & "' and Category_Isdeleted='0'" If con1.State = Data.ConnectionState.Open Then con1.Close() End If con1.Open() Dim cmd1 As New SqlCommand(Strr, con1) Dim dr1 As SqlDataReader = cmd1.ExecuteReader ddl2.DataSource = dr1 If dr1.HasRows = True Then ddl2.DataTextField = "Category_Name" ddl2.DataValueField = "Category_Kid" ddl2.DataBind() Else RowVisisbal(True) 'Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_CompanyId = '" & g_Company & "' and Product_IsDeleted = '0' and Product_CategoryId = '" & catid & "' ", ddlPro1) Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_IsDeleted = '0' and Product_Approved='Y' and Product_CategoryId = '" & catid & "' and Product_kid !='' ", ddlPro1) Dim Kid As String = ReturnValue("Select Product_Kid from Product_Master where Product_IsDeleted = '0' and Product_CategoryId = '" & catid & "'") If Kid = Nothing Then ddlPro1.Items.Clear() Dim myList As ListItem = New ListItem myList.Text = "Product Not Found" myList.Value = "0" ddlPro1.Items.Insert(0, myList) End If ClearLabel() Image1.Visible = False End If con1.Close() End Sub Public Sub fillsubgrid1(ByVal catid As String) 'ddl3.Items.Clear() 'ddl3.Items.Insert(0, New ListItem("Select", "0")) Dim con1 As New SqlConnection con1.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") Dim Strr As String Strr = "select * from Category_Master where Category_ParentId ='" & catid & "'" If con1.State = Data.ConnectionState.Open Then con1.Close() End If con1.Open() Dim cmd1 As New SqlCommand(Strr, con1) Dim dr1 As SqlDataReader = cmd1.ExecuteReader If dr1.HasRows = True Then ddl3.DataSource = dr1 ddl3.DataTextField = "Category_Name" ddl3.DataValueField = "Category_Kid" ddl3.DataBind() Else RowVisisbal(True) 'Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_CompanyId = '" & g_Company & "' and Product_IsDeleted = '0' and Product_CategoryId = '" & catid & "'", ddlPro1) Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_IsDeleted = '0' and Product_Approved='Y' and Product_Kid !='' and Product_CategoryId = '" & catid & "'", ddlPro1) Dim Kid As String = ReturnValue("Select Product_Kid from Product_Master where Product_IsDeleted = '0' and Product_CategoryId = '" & catid & "'") If Kid = Nothing Then ddlPro1.Items.Clear() Dim myList As ListItem = New ListItem myList.Text = "Product Not Found" myList.Value = "0" ddlPro1.Items.Insert(0, myList) End If ClearLabel() Image1.Visible = False End If con1.Close() End Sub Protected Sub ddlPro1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPro1.SelectedIndexChanged FirstCombo_SelectedIndex() Image1.Visible = True End Sub Protected Sub ddlPro2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPro2.SelectedIndexChanged DisplayData2(ddlPro2.SelectedValue) End Sub Protected Sub ddlPro3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPro3.SelectedIndexChanged DisplayData3(ddlPro3.SelectedValue) End Sub Public Sub DisplayData1(ByVal StrVal As String) Try Sel1 = ddlPro1.SelectedValue Dim imgpath As String = "" Cat1 = ReturnValue("SELECT Product_CategoryId FROM Product_Master WHERE Product_Kid = '" & Sel1 & "' and Product_Isdeleted='0' and Product_Approved='Y'") Ima1 = ReturnValue("SELECT Product_Image FROM Product_Master WHERE Product_Kid = '" & Sel1 & "' and Product_Isdeleted='0' and Product_Approved='Y'") Fill_Combo("SELECT Product_Kid, Product_Name FROM Product_Master WHERE Product_Kid <> '" & Sel1 & "' AND Product_CategoryId = '" & Cat1 & "' and Product_Isdeleted='0' and Product_Approved='Y'", ddlPro2) Fill_Combo("SELECT Product_Kid, Product_Name FROM Product_Master WHERE Product_Kid <> '" & Sel1 & "' AND Product_CategoryId = '" & Cat1 & "' and Product_Isdeleted='0' and Product_Approved='Y'", ddlPro3) Image1.ImageUrl = Path.Combine("~/Upload Image/Product Image/UploadImages/", Ima1) imgpath = Server.MapPath(Path.Combine("~/Upload Image/Product Image/UploadImages/", Ima1)) KeepAspectRatioNew(Image1, imgpath, 160, 150) Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim qry As String = "Select * From Compare_Product where Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand(qry, con) Dim dr As SqlDataReader dr = cmd.ExecuteReader While dr.Read Brand1 = dr("Product_BrandId").ToString Label18.Text = dr("Product_Name").ToString Label19.Text = dr("Product_Code").ToString Label20.Text = dr("Product_AtcoPrice").ToString Label22.Text = dr("Product_ModelNo").ToString Label23.Text = dr("Product_MinOrderQty").ToString Label24.Text = dr("Product_Weight").ToString Label25.Text = dr("Product_Dimension").ToString Label70.Text = dr("Product_ShippingQty").ToString Label26.Text = dr("Product_PcsPerKg").ToString Label27.Text = dr("Product_DeliveryPeriod").ToString Label77.Text = dr("Product_PackagingCharge").ToString End While dr.Close() Label21.Text = ReturnValue("SELECT Brand_Name FROM Brand_Master WHERE Brand_Kid = '" & Trim(Brand1) & "'") Dim qry1 As String = "SELECT ProdFeatures_Features FROM ProductFeatures WHERE ProdFeatures_ProductId = '" & StrVal & "'" Dim cmd1 As New SqlCommand(qry1, con) Dim dr1 As SqlDataReader = cmd1.ExecuteReader Label28.Text = "" While dr1.Read Label28.Text &= "
  • " & dr1("ProdFeatures_Features").ToString & "
    " End While dr1.Close() Dim qry2 As String = "SELECT ProdApp_Application FROM ProductApplication WHERE ProdApp_ProductId = '" & StrVal & "'" Dim cmd2 As New SqlCommand(qry2, con) Dim dr2 As SqlDataReader = cmd2.ExecuteReader Label29.Text = "" While dr2.Read Label29.Text &= "
  • " & dr2("ProdApp_Application").ToString & "
    " End While dr2.Close() Dim qry3 As String = "SELECT TechSpec_parameter+' - '+TechSpec_value as [TechSpec_parameter] FROM ProductTechnicalSpecification WHERE TechSpec_ProductId = '" & StrVal & "'" Dim cmd3 As New SqlCommand(qry3, con) Dim dr3 As SqlDataReader = cmd3.ExecuteReader Label30.Text = "" While dr3.Read Label30.Text &= "
  • " & dr3("TechSpec_parameter").ToString & "
    " End While dr3.Close() Dim qry4 As String = "SELECT Product_Master.Product_Name, Product_Master.Product_ModelNo FROM OtherDetail_IncludedAccessories INNER JOIN Product_Master ON OtherDetail_IncludedAccessories.ODTIA_InAccessId = Product_Master.Product_Kid WHERE OtherDetail_IncludedAccessories.ODTIA_ProductId ='" & StrVal & "'" Dim cmd4 As New SqlCommand(qry4, con) Dim dr4 As SqlDataReader = cmd4.ExecuteReader Label31.Text = "" While dr4.Read Label31.Text &= "
  • " & dr4("Product_Name").ToString & "
    " End While dr4.Close() Dim qry5 As String = "SELECT ProdStdApproval_StandardName FROM ProductStandardApproval WHERE ProdStdApproval_ProductId = '" & StrVal & "'" Dim cmd5 As New SqlCommand(qry5, con) Dim dr5 As SqlDataReader = cmd5.ExecuteReader Label32.Text = "" While dr5.Read Label32.Text &= "
  • " & dr5("ProdStdApproval_StandardName").ToString & "
    " End While dr5.Close() Dim qry6 As String = "SELECT ProductInstallationCommissioning.InstallationComm_IsRequired, ProductInstallationCommissioning.InstallationComm_IsChargeable,ProductInstallationCommissioning.InstallationComm_Amount, ProductInstallationCommissioning.InstallationComm_IsMaintenanceTraining,ProductInstallationCommissioning.InstallationComm_IsAMCAvailable FROM ProductInstallationCommissioning INNER JOIN Product_Master ON ProductInstallationCommissioning.InstallationComm_ProductId = Product_Master.Product_Kid WHERE InstallationComm_ProductId = '" & StrVal & "'" Dim cmd6 As New SqlCommand(qry6, con) Dim dr6 As SqlDataReader = cmd6.ExecuteReader Label73.Text = "" If dr6.Read Then If dr6("InstallationComm_IsRequired").ToString = "N" Then Label73.Text = "Not Applicable" ElseIf dr6("InstallationComm_IsChargeable").ToString = "N" Then Label73.Text = "Not Chargeable" Else Label73.Text = "
  • Rs. " & dr6("InstallationComm_Amount").ToString & "
    " If dr6("InstallationComm_IsAMCAvailable").ToString = "Y" Then Label73.Text += "
  • AMC Available.
    " End If End If ' Label73.Text &= "
  • " & dr6("ProdStdApproval_StandardName").ToString & "
    " End If dr6.Close() Dim qry7 As String = "SELECT ProductVat.ProductVat_EduCess, ProductVat.ProductVat_HigherEduCess, ProductVat.ProductVat_ExciseDuty, ProductVat.ProductVat_CSTAgainstC FROM Product_Master INNER JOIN ProductVat ON Product_Master.Product_Kid = ProductVat.ProductVat_ProductId WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd7 As New SqlCommand(qry7, con) Dim dr7 As SqlDataReader = cmd7.ExecuteReader Label80.Text = "" Label83.Text = "" Label86.Text = "" Label89.Text = "" While dr7.Read If dr7("ProductVat_ExciseDuty").ToString = "No" Then Label80.Text = "Not Applicable" Label83.Text = "Not Applicable" Label86.Text = "Not Applicable" Else Label80.Text = dr7("ProductVat_ExciseDuty").ToString & " % " If dr7("ProductVat_EduCess").ToString = "No" Then Label83.Text = "Not Applicable" Else Label83.Text = dr7("ProductVat_EduCess").ToString & " % " End If If dr7("ProductVat_HigherEduCess") = "No" Then Label86.Text = "Not Applicable" Else Label86.Text = dr7("ProductVat_HigherEduCess").ToString & " %" End If End If If dr7("ProductVat_CSTAgainstC").ToString = "No" Then Label89.Text = "Not Applicable" ElseIf dr7("ProductVat_CSTAgainstC").ToString <> "" Then Label89.Text = dr7("ProductVat_CSTAgainstC").ToString & " %" Else Label89.Text = "" End If End While dr7.Close() ' ======================= Dim qry8 As String = " SELECT Product_GuarantyWarrantydetails.gwd_pguarentee1, Product_GuarantyWarrantydetails.gwd_pguarentee1 + ' ' + Unit_Master.Unit_Name AS gwd_pguarentee,Product_GuarantyWarrantydetails.gwd_pwarranty1, Product_GuarantyWarrantydetails.gwd_pwarranty1 + ' ' + Unit_Master_1.Unit_Name AS gwd_pwarranty, Product_GuarantyWarrantydetails.gwd_Gdesc, Product_GuarantyWarrantydetails.gwd_Wdesc, Product_GuarantyWarrantydetails.gwd_wtype, Product_GuarantyWarrantydetails.gwd_wfor FROM Product_Master INNER JOIN Product_GuarantyWarrantydetails ON Product_Master.Product_Kid = Product_GuarantyWarrantydetails.gwd_ProductId INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pguarentee2 = Unit_Master.Unit_Kid INNER JOIN Unit_Master AS Unit_Master_1 ON Product_GuarantyWarrantydetails.gwd_pwarranty2 = Unit_Master_1.Unit_Kid WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd8 As New SqlCommand(qry8, con) Dim dr8 As SqlDataReader = cmd8.ExecuteReader Label33.Text = "" Label34.Text = "" While dr8.Read If dr8("gwd_pguarentee1").ToString = "0" Or dr8("gwd_pguarentee1").ToString = "" Then Label33.Text = "" If dr8("gwd_Gdesc").ToString <> "" Then Label33.Text &= "
  • " & dr8("gwd_Gdesc").ToString & "

    • " End If Else Label33.Text &= "
  • " & dr8("gwd_pguarentee").ToString & "

    • " If dr8("gwd_Gdesc").ToString <> "" Then Label33.Text &= "
  • " & dr8("gwd_Gdesc").ToString & "

    • " End If End If If dr8("gwd_pwarranty1").ToString = "0" Or dr8("gwd_pwarranty1").ToString = "" Then Label34.Text = "" If dr8("gwd_Wdesc").ToString <> "" Then Label34.Text &= "
  • " & dr8("gwd_Wdesc").ToString & "

    • " End If Else Label34.Text &= "
  • " & dr8("gwd_pwarranty").ToString & "

    • " If dr8("gwd_Wdesc").ToString <> "" Then Label34.Text &= "
  • " & dr8("gwd_Wdesc").ToString & "

    • " End If End If End While dr8.Close() RowVisisbal(True) RowNotVisible() Catch ex As Exception End Try End Sub Public Sub DisplayData2(ByVal StrVal As String) Try Image2.Visible = True Dim imgpath As String = "" ima2 = ReturnValue("SELECT Product_Image FROM Product_Master WHERE Product_Kid = '" & ddlPro2.SelectedValue & "' and Product_Isdeleted='0' and Product_Approved='Y'") Image2.ImageUrl = Path.Combine("~/Upload Image/Product Image/UploadImages/", ima2) imgpath = Server.MapPath(Path.Combine("~/Upload Image/Product Image/UploadImages/", ima2)) KeepAspectRatioNew(Image2, imgpath, 160, 150) Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim qry As String = "Select * From Compare_Product where Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand(qry, con) Dim dr As SqlDataReader dr = cmd.ExecuteReader While dr.Read Brand1 = dr("Product_BrandId").ToString Label35.Text = dr("Product_Name").ToString Label36.Text = dr("Product_Code").ToString Label37.Text = dr("Product_AtcoPrice").ToString Label39.Text = dr("Product_ModelNo").ToString Label40.Text = dr("Product_MinOrderQty").ToString Label42.Text = dr("Product_Dimension").ToString Label71.Text = dr("Product_ShippingQty").ToString Label41.Text = dr("Product_Weight").ToString Label43.Text = dr("Product_PcsPerKg").ToString Label44.Text = dr("Product_DeliveryPeriod").ToString Label78.Text = dr("Product_PackagingCharge").ToString End While dr.Close() Label38.Text = ReturnValue("SELECT Brand_Name FROM Brand_Master WHERE Brand_Kid = '" & Trim(Brand1) & "'") Dim qry1 As String = "SELECT ProdFeatures_Features FROM ProductFeatures WHERE ProdFeatures_ProductId = '" & StrVal & "'" Dim cmd1 As New SqlCommand(qry1, con) Dim dr1 As SqlDataReader = cmd1.ExecuteReader Label45.Text = "" While dr1.Read Label45.Text &= "
  • " & dr1("ProdFeatures_Features").ToString & "
    " End While dr1.Close() Dim qry2 As String = "SELECT ProdApp_Application FROM ProductApplication WHERE ProdApp_ProductId = '" & StrVal & "'" Dim cmd2 As New SqlCommand(qry2, con) Dim dr2 As SqlDataReader = cmd2.ExecuteReader Label46.Text = "" While dr2.Read Label46.Text &= "
  • " & dr2("ProdApp_Application").ToString & "
    " End While dr2.Close() Dim qry3 As String = "SELECT TechSpec_parameter+' - '+TechSpec_value as [TechSpec_parameter] FROM ProductTechnicalSpecification WHERE TechSpec_ProductId = '" & StrVal & "'" Dim cmd3 As New SqlCommand(qry3, con) Dim dr3 As SqlDataReader = cmd3.ExecuteReader Label47.Text = "" While dr3.Read Label47.Text &= "
  • " & dr3("TechSpec_parameter").ToString & "
    " End While dr3.Close() Dim qry4 As String = "SELECT Product_Master.Product_Name, Product_Master.Product_ModelNo FROM OtherDetail_IncludedAccessories INNER JOIN Product_Master ON OtherDetail_IncludedAccessories.ODTIA_InAccessId = Product_Master.Product_Kid WHERE OtherDetail_IncludedAccessories.ODTIA_ProductId ='" & StrVal & "'" Dim cmd4 As New SqlCommand(qry4, con) Dim dr4 As SqlDataReader = cmd4.ExecuteReader Label48.Text = "" While dr4.Read Label48.Text &= "
  • " & dr4("Product_Name").ToString & "
    " End While dr4.Close() Dim qry5 As String = "SELECT ProdStdApproval_StandardName FROM ProductStandardApproval WHERE ProdStdApproval_ProductId = '" & StrVal & "'" Dim cmd5 As New SqlCommand(qry5, con) Dim dr5 As SqlDataReader = cmd5.ExecuteReader Label49.Text = "" While dr5.Read Label49.Text &= "
  • " & dr5("ProdStdApproval_StandardName").ToString & "
    " End While dr5.Close() Dim qry6 As String = "SELECT ProductInstallationCommissioning.InstallationComm_IsRequired, ProductInstallationCommissioning.InstallationComm_IsChargeable,ProductInstallationCommissioning.InstallationComm_Amount, ProductInstallationCommissioning.InstallationComm_IsMaintenanceTraining,ProductInstallationCommissioning.InstallationComm_IsAMCAvailable FROM ProductInstallationCommissioning INNER JOIN Product_Master ON ProductInstallationCommissioning.InstallationComm_ProductId = Product_Master.Product_Kid WHERE InstallationComm_ProductId = '" & StrVal & "'" Dim cmd6 As New SqlCommand(qry6, con) Dim dr6 As SqlDataReader = cmd6.ExecuteReader Label74.Text = "" If dr6.Read Then If dr6("InstallationComm_IsRequired").ToString = "N" Then Label74.Text = "Not Applicable" ElseIf dr6("InstallationComm_IsChargeable").ToString = "N" Then Label74.Text = "Not Chargeable" Else Label74.Text = "
  • Rs. " & dr6("InstallationComm_Amount").ToString & "
    " If dr6("InstallationComm_IsAMCAvailable").ToString = "Y" Then Label74.Text += "
  • AMC Available.
    " End If End If ' Label73.Text &= "
  • " & dr6("ProdStdApproval_StandardName").ToString & "
    " End If dr6.Close() Dim qry7 As String = "SELECT ProductVat.ProductVat_EduCess, ProductVat.ProductVat_HigherEduCess, ProductVat.ProductVat_ExciseDuty, ProductVat.ProductVat_CSTAgainstC FROM Product_Master INNER JOIN ProductVat ON Product_Master.Product_Kid = ProductVat.ProductVat_ProductId WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd7 As New SqlCommand(qry7, con) Dim dr7 As SqlDataReader = cmd7.ExecuteReader Label81.Text = "" Label84.Text = "" Label87.Text = "" Label90.Text = "" While dr7.Read If dr7("ProductVat_ExciseDuty").ToString = "No" Then Label81.Text = "Not Applicable" Label84.Text = "Not Applicable" Label87.Text = "Not Applicable" ElseIf dr7("ProductVat_ExciseDuty").ToString = "" Then Label81.Text = "" Label84.Text = "" Label87.Text = "" Else Label81.Text = dr7("ProductVat_ExciseDuty").ToString & " %" If dr7("ProductVat_EduCess").ToString = "No" Then Label84.Text = "Not Applicable" Else Label84.Text = dr7("ProductVat_EduCess").ToString & " % " End If If dr7("ProductVat_HigherEduCess").ToString = "No" Then Label87.Text = "Not Applicable" Else Label87.Text = dr7("ProductVat_HigherEduCess").ToString & " %" End If End If If dr7("ProductVat_CSTAgainstC").ToString = "No" Then Label90.Text = "Not Applicable" ElseIf dr7("ProductVat_CSTAgainstC").ToString <> "" Then Label90.Text = dr7("ProductVat_CSTAgainstC").ToString & " %" Else Label90.Text = "" End If End While dr7.Close() cmd7.Dispose() ' ======================= Dim qry8 As String = " SELECT Product_GuarantyWarrantydetails.gwd_pguarentee1, Product_GuarantyWarrantydetails.gwd_pguarentee1 + ' ' + Unit_Master.Unit_Name AS gwd_pguarentee,Product_GuarantyWarrantydetails.gwd_pwarranty1, Product_GuarantyWarrantydetails.gwd_pwarranty1 + ' ' + Unit_Master_1.Unit_Name AS gwd_pwarranty, Product_GuarantyWarrantydetails.gwd_Gdesc, Product_GuarantyWarrantydetails.gwd_Wdesc, Product_GuarantyWarrantydetails.gwd_wtype, Product_GuarantyWarrantydetails.gwd_wfor FROM Product_Master INNER JOIN Product_GuarantyWarrantydetails ON Product_Master.Product_Kid = Product_GuarantyWarrantydetails.gwd_ProductId INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pguarentee2 = Unit_Master.Unit_Kid INNER JOIN Unit_Master AS Unit_Master_1 ON Product_GuarantyWarrantydetails.gwd_pwarranty2 = Unit_Master_1.Unit_Kid WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd8 As New SqlCommand(qry8, con) Dim dr8 As SqlDataReader = cmd8.ExecuteReader Label50.Text = "" Label51.Text = "" While dr8.Read If dr8("gwd_pguarentee1").ToString = "0" Or dr8("gwd_pguarentee1").ToString = "" Then Label50.Text = "" If dr8("gwd_Gdesc").ToString <> "" Then Label50.Text &= "
  • " & dr8("gwd_Gdesc").ToString & "

    • " End If Else Label50.Text &= "
  • " & dr8("gwd_pguarentee").ToString & "

    • " If dr8("gwd_Gdesc").ToString <> "" Then Label50.Text &= "
  • " & dr8("gwd_Gdesc").ToString & "

    • " End If End If If dr8("gwd_pwarranty1").ToString = "0" Or dr8("gwd_pwarranty1").ToString = "" Then Label51.Text = "" If dr8("gwd_Wdesc").ToString <> "" Then Label51.Text &= "
  • " & dr8("gwd_Wdesc").ToString & "

    • " End If Else Label51.Text &= "
  • " & dr8("gwd_pwarranty").ToString & "

    • " If dr8("gwd_Wdesc").ToString <> "" Then Label51.Text &= "
  • " & dr8("gwd_Wdesc").ToString & "

    • " End If End If End While dr8.Close() RowVisisbal(True) RowNotVisible() Catch ex As Exception End Try End Sub Public Sub DisplayData3(ByVal StrVal As String) Try Image3.Visible = True Dim imgpath As String = "" ima3 = ReturnValue("SELECT Product_Image FROM Product_Master WHERE Product_Kid = '" & ddlPro3.SelectedValue & "' and Product_Isdeleted='0' and Product_Approved='Y'") Image3.ImageUrl = Path.Combine("~/Upload Image/Product Image/UploadImages/", ima3) imgpath = Server.MapPath(Path.Combine("~/Upload Image/Product Image/UploadImages/", ima3)) KeepAspectRatioNew(Image3, imgpath, 160, 150) Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim qry As String = "Select * From Compare_Product where Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand(qry, con) Dim dr As SqlDataReader dr = cmd.ExecuteReader While dr.Read Brand1 = dr("Product_BrandId").ToString Label52.Text = dr("Product_Name").ToString Label53.Text = dr("Product_Code").ToString Label54.Text = dr("Product_AtcoPrice").ToString Label56.Text = dr("Product_ModelNo").ToString Label57.Text = dr("Product_MinOrderQty").ToString Label59.Text = dr("Product_Dimension").ToString Label72.Text = dr("Product_ShippingQty").ToString Label58.Text = dr("Product_Weight").ToString Label60.Text = dr("Product_PcsPerKg").ToString Label61.Text = dr("Product_DeliveryPeriod").ToString Label79.Text = dr("Product_PackagingCharge").ToString End While dr.Close() Label55.Text = ReturnValue("SELECT Brand_Name FROM Brand_Master WHERE Brand_Kid = '" & Trim(Brand1) & "'") Dim qry1 As String = "SELECT ProdFeatures_Features FROM ProductFeatures WHERE ProdFeatures_ProductId = '" & StrVal & "'" Dim cmd1 As New SqlCommand(qry1, con) Dim dr1 As SqlDataReader = cmd1.ExecuteReader Label62.Text = "" While dr1.Read Label62.Text &= "
  • " & dr1("ProdFeatures_Features").ToString & "
    " End While dr1.Close() Dim qry2 As String = "SELECT ProdApp_Application FROM ProductApplication WHERE ProdApp_ProductId = '" & StrVal & "'" Dim cmd2 As New SqlCommand(qry2, con) Dim dr2 As SqlDataReader = cmd2.ExecuteReader Label63.Text = "" While dr2.Read Label63.Text &= "
  • " & dr2("ProdApp_Application").ToString & "
    " End While dr2.Close() Dim qry3 As String = "SELECT TechSpec_parameter+' - '+TechSpec_value as [TechSpec_parameter] FROM ProductTechnicalSpecification WHERE TechSpec_ProductId = '" & StrVal & "'" Dim cmd3 As New SqlCommand(qry3, con) Dim dr3 As SqlDataReader = cmd3.ExecuteReader Label64.Text = "" While dr3.Read Label64.Text &= "
  • " & dr3("TechSpec_parameter").ToString & "
    " End While dr3.Close() Dim qry4 As String = "SELECT Product_Master.Product_Name, Product_Master.Product_ModelNo FROM OtherDetail_IncludedAccessories INNER JOIN Product_Master ON OtherDetail_IncludedAccessories.ODTIA_InAccessId = Product_Master.Product_Kid WHERE OtherDetail_IncludedAccessories.ODTIA_ProductId ='" & StrVal & "'" Dim cmd4 As New SqlCommand(qry4, con) Dim dr4 As SqlDataReader = cmd4.ExecuteReader Label65.Text = "" While dr4.Read Label65.Text &= "
  • " & dr4("Product_Name").ToString & "
    " End While dr4.Close() Dim qry5 As String = "SELECT ProdStdApproval_StandardName FROM ProductStandardApproval WHERE ProdStdApproval_ProductId = '" & StrVal & "'" Dim cmd5 As New SqlCommand(qry5, con) Dim dr5 As SqlDataReader = cmd5.ExecuteReader Label66.Text = "" While dr5.Read Label66.Text &= "
  • " & dr5("ProdStdApproval_StandardName").ToString & "
    " End While dr5.Close() Dim qry6 As String = "SELECT ProductInstallationCommissioning.InstallationComm_IsRequired, ProductInstallationCommissioning.InstallationComm_IsChargeable,ProductInstallationCommissioning.InstallationComm_Amount, ProductInstallationCommissioning.InstallationComm_IsMaintenanceTraining,ProductInstallationCommissioning.InstallationComm_IsAMCAvailable FROM ProductInstallationCommissioning INNER JOIN Product_Master ON ProductInstallationCommissioning.InstallationComm_ProductId = Product_Master.Product_Kid WHERE InstallationComm_ProductId = '" & StrVal & "'" Dim cmd6 As New SqlCommand(qry6, con) Dim dr6 As SqlDataReader = cmd6.ExecuteReader Label75.Text = "" If dr6.Read Then If dr6("InstallationComm_IsRequired").ToString = "N" Then Label75.Text = "Not Applicable" ElseIf dr6("InstallationComm_IsChargeable").ToString = "N" Then Label75.Text = "Not Chargeable" Else Label75.Text = "
  • Rs. " & dr6("InstallationComm_Amount").ToString & "
    " If dr6("InstallationComm_IsAMCAvailable").ToString = "Y" Then Label75.Text += "
  • AMC Available.
    " End If End If ' Label73.Text &= "
  • " & dr6("ProdStdApproval_StandardName").ToString & "
    " End If dr6.Close() Dim qry7 As String = "SELECT ProductVat.ProductVat_EduCess, ProductVat.ProductVat_HigherEduCess, ProductVat.ProductVat_ExciseDuty, ProductVat.ProductVat_CSTAgainstC FROM Product_Master INNER JOIN ProductVat ON Product_Master.Product_Kid = ProductVat.ProductVat_ProductId WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd7 As New SqlCommand(qry7, con) Dim dr7 As SqlDataReader = cmd7.ExecuteReader Label82.Text = "" Label85.Text = "" Label88.Text = "" Label91.Text = "" While dr7.Read If dr7("ProductVat_ExciseDuty").ToString = "No" Then Label82.Text = "Not Applicable" Label85.Text = "Not Applicable" Label88.Text = "Not Applicable" Else Label82.Text = dr7("ProductVat_ExciseDuty").ToString & " %" If dr7("ProductVat_EduCess").ToString = "No" Then Label85.Text = "Not Applicable" Else Label85.Text = dr7("ProductVat_EduCess").ToString & " % " End If If dr7("ProductVat_HigherEduCess") = "No" Then Label88.Text = "Not Applicable" Else Label88.Text = dr7("ProductVat_HigherEduCess").ToString & " %" End If End If If dr7("ProductVat_CSTAgainstC").ToString = "No" Then Label91.Text = "Not Applicable" ElseIf dr7("ProductVat_CSTAgainstC").ToString <> "" Then Label91.Text = dr7("ProductVat_CSTAgainstC").ToString & " %" Else Label91.Text = "" End If End While dr7.Close() cmd7.Dispose() ' ======================= Dim qry8 As String = " SELECT Product_GuarantyWarrantydetails.gwd_pguarentee1, Product_GuarantyWarrantydetails.gwd_pguarentee1 + ' ' + Unit_Master.Unit_Name AS gwd_pguarentee,Product_GuarantyWarrantydetails.gwd_pwarranty1, Product_GuarantyWarrantydetails.gwd_pwarranty1 + ' ' + Unit_Master_1.Unit_Name AS gwd_pwarranty, Product_GuarantyWarrantydetails.gwd_Gdesc, Product_GuarantyWarrantydetails.gwd_Wdesc, Product_GuarantyWarrantydetails.gwd_wtype, Product_GuarantyWarrantydetails.gwd_wfor FROM Product_Master INNER JOIN Product_GuarantyWarrantydetails ON Product_Master.Product_Kid = Product_GuarantyWarrantydetails.gwd_ProductId INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pguarentee2 = Unit_Master.Unit_Kid INNER JOIN Unit_Master AS Unit_Master_1 ON Product_GuarantyWarrantydetails.gwd_pwarranty2 = Unit_Master_1.Unit_Kid WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd8 As New SqlCommand(qry8, con) Dim dr8 As SqlDataReader = cmd8.ExecuteReader Label67.Text = "" Label68.Text = "" While dr8.Read If dr8("gwd_pguarentee1").ToString = "0" Or dr8("gwd_pguarentee1").ToString = "" Then Label67.Text = "" If dr8("gwd_Gdesc").ToString <> "" Then Label67.Text &= "
  • " & dr8("gwd_Gdesc").ToString & "

    • " End If Else Label67.Text &= "
  • " & dr8("gwd_pguarentee").ToString & "

    • " If dr8("gwd_Gdesc").ToString <> "" Then Label67.Text &= "
  • " & dr8("gwd_Gdesc").ToString & "

    • " End If End If If dr8("gwd_pwarranty1").ToString = "0" Or dr8("gwd_pwarranty1").ToString = "" Then Label68.Text = "" If dr8("gwd_Wdesc").ToString <> "" Then Label68.Text &= "
  • " & dr8("gwd_Wdesc").ToString & "

    • " End If Else Label68.Text &= "
  • " & dr8("gwd_pwarranty").ToString & "

    • " If dr8("gwd_Wdesc").ToString <> "" Then Label68.Text &= "
  • " & dr8("gwd_Wdesc").ToString & "

    • " End If End If End While dr8.Close() RowVisisbal(True) RowNotVisible() Catch ex As Exception End Try End Sub Public Sub ClearLabel() Image1.ImageUrl = Nothing Image2.ImageUrl = Nothing Image3.ImageUrl = Nothing Label18.Text = " " Label19.Text = " " Label20.Text = " " Label21.Text = " " Label22.Text = " " Label23.Text = " " Label24.Text = " " Label25.Text = " " Label26.Text = " " Label27.Text = " " ' Feature Label28.Text = " " Label45.Text = " " Label62.Text = " " 'Applications Label29.Text = " " Label46.Text = " " Label63.Text = " " 'Specifications Label30.Text = " " Label47.Text = " " Label64.Text = " " 'Accessories included Label31.Text = " " Label48.Text = " " Label65.Text = " " 'Standards & Approvals Label32.Text = " " Label49.Text = " " Label66.Text = " " 'Guarantee Label33.Text = " " Label50.Text = " " Label67.Text = " " 'Warranty Label34.Text = " " Label51.Text = " " Label68.Text = " " Label35.Text = " " Label36.Text = " " Label37.Text = " " Label38.Text = " " Label39.Text = " " Label40.Text = " " Label41.Text = " " Label42.Text = " " Label43.Text = " " Label44.Text = " " Label52.Text = " " Label53.Text = " " Label54.Text = " " Label55.Text = " " Label56.Text = " " Label57.Text = " " Label58.Text = " " Label59.Text = " " Label60.Text = " " Label61.Text = " " Label70.Text = " " Label71.Text = " " Label72.Text = " " Label73.Text = " " Label74.Text = " " Label75.Text = " " Label77.Text = " " Label78.Text = " " Label79.Text = " " Label80.Text = " " Label81.Text = " " Label82.Text = " " Label83.Text = " " Label84.Text = " " Label85.Text = " " Label86.Text = " " Label87.Text = " " Label88.Text = " " Label89.Text = " " Label90.Text = " " Label91.Text = " " End Sub Public Sub RowVisisbal(ByVal Action As Boolean) 'Row2.Visible = Action 'Row3.Visible = Action Row4.Visible = Action Row5.Visible = Action Row6.Visible = Action Row7.Visible = Action Row8.Visible = Action Row9.Visible = Action Row10.Visible = Action Row11.Visible = Action Row12.Visible = Action Row13.Visible = Action Row14.Visible = Action Row15.Visible = Action Row16.Visible = Action Row17.Visible = Action Row18.Visible = Action Row19.Visible = Action Row20.Visible = Action minshipqty.Visible = Action instal.Visible = Action cart.Visible = Action packch.Visible = Action excise.Visible = Action educess.Visible = Action heducess.Visible = Action cstcfrm.Visible = Action ImgTable.Visible = Action ComboTable.Visible = Action TextTable.Visible = Action Image1.Visible = Action Image2.Visible = Action Image3.Visible = Action End Sub Public Sub RowNotVisible() If Label20.Text.Trim = "" And Label37.Text.Trim = "" And Label54.Text.Trim = "" Then Row6.Visible = False End If If Label21.Text.Trim.Trim = "" And Label38.Text.Trim = "" And Label55.Text.Trim = "" Then Row7.Visible = False End If If Label22.Text.Trim = "" And Label39.Text.Trim = "" And Label56.Text.Trim = "" Then Row8.Visible = False End If If Label23.Text.Trim = "" And Label40.Text.Trim = "" And Label57.Text.Trim = "" Then Row9.Visible = False End If If Label24.Text.Trim = "" And Label41.Text.Trim = "" And Label58.Text.Trim = "" Then Row10.Visible = False End If If Label25.Text.Trim = "" And Label42.Text.Trim = "" And Label59.Text.Trim = "" Then Row11.Visible = False End If If Label26.Text.Trim = "" And Label43.Text.Trim = "" And Label60.Text.Trim = "" Then Row12.Visible = False End If If Label27.Text.Trim = "" And Label44.Text.Trim = "" And Label61.Text.Trim = "" Then Row13.Visible = False End If If Label28.Text.Trim = "" And Label45.Text.Trim = "" And Label62.Text.Trim = "" Then Row14.Visible = False End If If Label29.Text.Trim = "" And Label46.Text.Trim = "" And Label63.Text.Trim = "" Then Row15.Visible = False End If If Label30.Text.Trim = "" And Label47.Text.Trim = "" And Label64.Text.Trim = "" Then Row16.Visible = False End If If Label31.Text.Trim = "" And Label48.Text.Trim = "" And Label65.Text.Trim = "" Then Row17.Visible = False End If If Label32.Text.Trim = "" And Label49.Text.Trim = "" And Label66.Text.Trim = "" Then Row18.Visible = False End If If Label33.Text.Trim = "" And Label50.Text.Trim = "" And Label67.Text.Trim = "" Then Row19.Visible = False End If If Label34.Text.Trim = "" And Label51.Text.Trim = "" And Label68.Text.Trim = "" Then Row20.Visible = False End If '========= If Label70.Text.Trim = "" And Label71.Text.Trim = "" And Label72.Text.Trim = "" Then minshipqty.Visible = False End If If Label73.Text.Trim = "" And Label74.Text.Trim = "" And Label75.Text.Trim = "" Then instal.Visible = False End If If Label77.Text.Trim = "" And Label78.Text.Trim = "" And Label79.Text.Trim = "" Then packch.Visible = False End If If Label80.Text.Trim = "" And Label81.Text.Trim = "" And Label82.Text.Trim = "" Then excise.Visible = False End If If Label83.Text.Trim = "" And Label84.Text.Trim = "" And Label85.Text.Trim = "" Then educess.Visible = False End If If Label86.Text.Trim = "" And Label87.Text.Trim = "" And Label88.Text.Trim = "" Then heducess.Visible = False End If If Label89.Text.Trim = "" And Label90.Text.Trim = "" And Label91.Text.Trim = "" Then cstcfrm.Visible = False End If End Sub Protected Sub ddl1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Dim myList As ListItem = New ListItem myList.Text = "--Select Category--" myList.Value = "0" ddl1.Items.Insert(0, myList) End Sub Protected Sub ddl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ddl2.Items.Clear() ddl3.Items.Clear() fillsubgrid(ddl1.SelectedValue.ToString.Trim) ddlPro1.Items.Clear() ddlPro2.Items.Clear() ddlPro3.Items.Clear() RowVisisbal(False) ddl2.Enabled = True ddl3.Enabled = True End Sub Protected Sub ddl2_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Dim myList As ListItem = New ListItem myList.Text = "--Select Sub Cat--" myList.Value = "0" ddl2.Items.Insert(0, myList) End Sub Protected Sub ddl2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ddlPro1.Items.Clear() ddlPro2.Items.Clear() ddlPro3.Items.Clear() fillsubgrid1(ddl2.SelectedValue.ToString.Trim) Image1.Visible = False Image2.Visible = False Image3.Visible = False End Sub Protected Sub ddl3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ddlPro1.Items.Clear() ddlPro2.Items.Clear() ddlPro3.Items.Clear() fillsubgrid(ddl3.SelectedValue.ToString.Trim) Image1.Visible = False Image2.Visible = False Image3.Visible = False End Sub Protected Sub ddl3_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Dim myList As ListItem = New ListItem myList.Text = "--Select Sub Cat--" myList.Value = "0" ddl3.Items.Insert(0, myList) End Sub Protected Sub btnAddtocart1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 'Session("ShopProductKid") = ddl1.SelectedValue If Session("ID") = "Buyer" Then ShopCartProcedure(productKid) Response.Redirect("~/Buyer/ShopCart.aspx") Else Response.Redirect("~/Buyer/BuyerLogin.aspx") End If End Sub Protected Sub btnaddtocart2_Click(ByVal sender As Object, ByVal e As System.EventArgs) 'Session("ShopProductKid") = ddl2.SelectedValue If Session("ID") = "Buyer" Then ShopCartProcedure(productKid1) Response.Redirect("~/Buyer/ShopCart.aspx") Else Response.Redirect("~/Buyer/BuyerLogin.aspx") End If End Sub Protected Sub btnaddtocart3_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Session("ItemCount") = 3 Then ' Session("ShopProductKid") = ddl3.SelectedValue If Session("ID") = "Buyer" Then ShopCartProcedure(productKid2) Response.Redirect("~/Buyer/ShopCart.aspx") Else Response.Redirect("~/Buyer/BuyerLogin.aspx") End If End If End Sub Protected Function ShopCartProcedure(ByVal prodid As String) As Boolean Try Dim strr As String = "select Product_AtcoPrice from product_information where Product_Approved='Y' and product_Kid='" & prodid & "'" Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd = New SqlCommand(strr, con) 'con.Open() 'dr = cmd.ExecuteReader Dim da1 As New SqlDataAdapter(cmd) Dim ds1 As New DataSet If Not da1.Fill(ds1) = Nothing Then Dim shopid As String = NewPrimaryKey(Me.Page) shopid = RemoveLiterals(shopid) Dim shopCode As String = Generate_Code("select count(*) from ShopCart where ShopCart_Code='", "SC") Dim con1 As New SqlConnection 'Define connection variable for connecting to SQL-Server con1.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File Dim cmd As New SqlCommand con1.Open() Dim sqlcol As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcol.Add("@ShopCart_Kid", SqlDbType.NVarChar, 10).Value = shopid.Trim sqlcol.Add("@ShopCart_Code", SqlDbType.NVarChar, 25).Value = shopCode.Trim sqlcol.Add("@ShopCart_ProductId", SqlDbType.NVarChar, 10).Value = prodid sqlcol.Add("@ShopCart_BuyerUserId", SqlDbType.NVarChar, 25).Value = Session("BuyId") sqlcol.Add("@ShopCart_Quantity", SqlDbType.Int).Value = 1 sqlcol.Add("@ShopCart_SpecialPrice", SqlDbType.Decimal, 18).Value = ds1.Tables(0).Rows(0).Item(0) sqlcol.Add("@ShopCart_FinancialYearId", SqlDbType.NVarChar, 10).Value = "2007" sqlcol.Add("@ShopCart_CompanyId", SqlDbType.NVarChar, 10).Value = Session("companyId") sqlcol.Add("@ShopCart_UserId", SqlDbType.NVarChar, 10).Value = Session("UserId") sqlcol.Add("@FormName", SqlDbType.NVarChar, 50).Value = Me.Page.ToString sqlcol.Add("@Mode", SqlDbType.VarChar, 10).Value = "Insert" ExecQuery("ShopCart_Proc", sqlcol).StartsWith("True") sqlcol = Nothing cmd = Nothing Return True End If Catch ex As Exception ex.Message.ToString() End Try End Function End Class