Imports System.Data Imports System.Data.SqlClient Imports System.Net.Mail Imports System.IO Partial Class SupplierRegister Inherits System.Web.UI.Page #Region "Declaration" Shared dtAssocMem As New Data.DataTable Shared g_User As String Shared g_Company As String Shared g_FinYear As String Dim strVarifyCode As String Dim strEncodId As String #End Region #Region "Events" Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load lblMsg.Visible = False form1.DefaultButton = ImageButton1.UniqueID.ToString() If Page.IsPostBack = False Then 'If Session("supagreement") = Nothing Then ' Response.Redirect("supplier-agreement.aspx") 'End If g_User = "000008I" g_Company = "00006Z4" g_FinYear = "000010N" 'g_User = Session("g_User").ToString 'g_Company = Session("g_Company").ToString 'Fill_Combo("select Country_Kid,Country_Name from Country_Master where Country_IsDeleted='0' " & _ '" and Country_CompanyId='" & g_Company.Trim & "' order by Country_Name", ddlCountry) 'ddlCountry.ClearSelection() 'ddlCountry.Items.FindByText("India").Selected = True 'ddlCountry_SelectedIndexChanged(sender, e) Fill_Combo("SELECT Unit_Kid, Unit_Name, Unit_Flag FROM Unit_Master WHERE Unit_Flag = 'Amount' and unit_IsDeleted='0' and unit_CompanyId = '" & g_Company & "' order by unit_name", ddlTurnOverUnit) ddlTurnOverUnit.ClearSelection() fillyear() ddlTurnOverUnit.Items.FindByText("Rs.").Selected = True txtTelCountryCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtTelCityCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtTelNumber.Attributes.Add("onkeypress", "return numbersonly(event)") txtTelExtn.Attributes.Add("onkeypress", "return numbersonly(event)") txtAMNumber.Attributes.Add("onkeypress", "return numbersonly(event)") txtprodbrand.Attributes.Add("onkeypress", "return numbersonly(event)") txtMobileNumber.Attributes.Add("onkeypress", "return numbersonly(event)") txtZipCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtYearInBus.Attributes.Add("onkeypress", "return numbersonly(event)") txtTurnOver.Attributes.Add("onkeypress", "return numbersonly(event)") ' ScriptManager1.SetFocus(ImageButton1) 'tr1.Visible = False tr1.Style.Add("display", "none") 'txtPassword.Attributes.Add("onkeydown", "return CheckMinVal('" & txtPassword.ClientID.ToString & "',event);") 'txtCnfmPwd.Attributes.Add("onkeydown", "return CheckMinVal('" & txtCnfmPwd.ClientID.ToString & "',event);") rblIsBuyer.Attributes.Add("onclick", "VisibleUploadControl();") LoadCategory() 'ImageButton1.Attributes.Add("onclick", "return CheckRegister('" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCountry").ClientID.ToString & "','" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfState").ClientID.ToString & "','" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity").ClientID.ToString & "','" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCountry").ClientID.ToString & "','" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtState").ClientID.ToString & "','" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCity").ClientID.ToString & "');") ImageButton1.Attributes.Add("onclick", "return CheckValidation('txt-" & txtName.ClientID.ToString & "-r-n-Please Enter Company Name First.!','txt-" & txtEmailID.ClientID.ToString & "-r-e-Please Enter Valid EmailID.!','txt-" & txtPassword.ClientID.ToString & "-r-n-Please Enter Password.!','txt-" & txtCnfmPwd.ClientID.ToString & "-r-n-Please Enter Confirm Password.!','txt-" & txtAddress.ClientID.ToString & "-r-n-Please Enter Address.!','hf-" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCountry").ClientID.ToString & "-" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCountry").ClientID.ToString & "-Enter Country First.!','hf-" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfState").ClientID.ToString & "-" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtState").ClientID.ToString & "-Enter State First.!','hf-" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity").ClientID.ToString & "-" & CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCity").ClientID.ToString & "-Enter City First.!','txt-" & txtZipCode.ClientID.ToString & "-r-n-Please Enter PinCode No.!','txt-" & txtTelCountryCode.ClientID.ToString & "-r-n-Please Enter Country Code.!','txt-" & txtTelCityCode.ClientID.ToString & "-r-n-Please Enter CityCode.!','txt-" & txtTelNumber.ClientID.ToString & "-r-n-Please Enter Phone No.!','txt-" & txtCPName.ClientID.ToString & "-r-n-Please Enter Contact Person Name.!','txt-" & txtJobTitle.ClientID.ToString & "-r-n-Please Enter Designation.!','txt-" & txtprodbrand.ClientID.ToString & "-r-n-Please Enter Brand.!','ddl-" & ddlTurnOverUnit.ClientID.ToString & "-n-" & txtTurnOver.ClientID.ToString & "-Select Turn Over Unit.!','txt-" & txtCaptcha.ClientID.ToString & "-r-n-Please enter the text from the image.!','chk-" & CheckBoxList1.ClientID.ToString & "-r-1-Select Atleast One Category.!');") btnCheck.Attributes.Add("onclick", "return CheckValidation('txt-" & txtName.ClientID.ToString & "-r-n-Please Enter Company Name First.!','txt-" & txtEmailID.ClientID.ToString & "-r-e-Please Enter Valid EmailID.!');") ScriptManager1.SetFocus(txtName) ' Thank.Visible = False Try Dim str As StreamReader 'str = File.OpenText(Server.MapPath("~/Upload Image/MOU.txt")) str = File.OpenText(Server.MapPath("~/Upload Image/MOU.txt")) txtMessage.InnerHtml = str.ReadToEnd().ToString str.Close() RadioButtonList1.SelectedValue = "Y" Catch ex As Exception End Try End If ' imgadd.Visible = False 'txtAddCity.Visible = False End Sub Protected Sub btnCheck_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCheck.Click 'If txtName.Text = "" Then ' 'CreateMessageAlert(Me, "Enter Email ID For Availability Check.", "StrKeyVal") ' lblMsg.Visible = True ' lblMsg.Text = " Enter Company Name For Availability Check." ' ScriptManager1.SetFocus(txtName) ' Exit Sub 'End If 'If txtEmailID.Text = "" Then ' 'CreateMessageAlert(Me, "Enter Email ID For Availability Check.", "StrKeyVal") ' lblMsg.Visible = True ' lblMsg.Text = " Enter Email ID For Availability Check." ' ScriptManager1.SetFocus(txtEmailID) ' Exit Sub 'End If 'If IsValidMail(txtEmailID.Text, Me) Then 'Else ' 'CreateMessageAlert(Me, "Invalid e-Mail ID Please Enter Like abc@Atco.Com.", "StrKeyVal") ' lblMsg.Visible = True ' lblMsg.Text = " Invalid e-Mail ID Please Enter Like abc@Atco.Com." ' ScriptManager1.SetFocus(txtEmailID) ' Exit Sub 'End If Dim EMailid As String EMailid = ReturnValue("Select SupplierContactPerson_EmailId from SupplierContactPerson_Master where SupplierContactPerson_EmailId='" & Trim(txtEmailID.Text.ToLower) & "' and SupplierContactPerson_IsDeleted='0'") Dim CompanyName As String CompanyName = ReturnValue("Select Supplier_Name from Supplier_Master where Supplier_Name='" & Trim(txtName.Text) & "' and Supplier_IsDeleted='0'") If Trim(txtEmailID.Text.ToLower) = EMailid Or Trim(txtName.Text) = CompanyName Then 'txtUserID.Text = "" txtName.Focus() lblMsg.Visible = True lblMsg.Text = " Sorry This Company And e-Mail ID Is Already Present." ScriptManager1.SetFocus(txtName) Exit Sub Else lblMsg.Visible = True lblMsg.Text = " Congrates! Available For Register." End If End Sub Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ImageButton1.Click If Page.IsValid Then captchaSupplier.ValidateCaptcha(txtCaptcha.Text) If captchaSupplier.UserValidated = True Then Try If RadioButtonList1.SelectedValue = "Y" Then ''''''Agreement Insert Dim Con As New SqlConnection Dim cmd As New SqlCommand Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd.Connection = Con cmd.CommandText = "SignAggrement_Supp" cmd.CommandType = CommandType.StoredProcedure Dim agreementid As String = RemoveLiterals(NewPrimaryKey(Me)) cmd.Parameters.Add(New SqlParameter("@signagreement_Kid", SqlDbType.NVarChar)).Value = agreementid GenerateCode() cmd.Parameters.Add(New SqlParameter("@signagreement_Code", SqlDbType.NVarChar)).Value = TextBox2.Text cmd.Parameters.Add(New SqlParameter("@signagreement_Agree", SqlDbType.NVarChar)).Value = RadioButtonList1.SelectedItem.Text cmd.Parameters.Add(New SqlParameter("@signagreement_Date", SqlDbType.NVarChar)).Value = System.DateTime.Now cmd.Parameters.Add(New SqlParameter("@signagreement_FinancialYear", SqlDbType.NVarChar)).Value = Year(DateTime.Now).ToString Session("supagreement") = agreementid 'cmd.Parameters.Add(New SqlParameter("@signagreement_SupplierId", SqlDbType.NVarChar)).Value = Session("Id") cmd.Parameters.Add(New SqlParameter("@signagreement_Approved", SqlDbType.NVarChar)).Value = "N" cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "SupplierApp_Master" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 50)).Value = "Insert" Con.Open() cmd.ExecuteNonQuery() Con.Close() '''''''''''''''''''''' If CheckValid() = True Then If txtName.Text = "" Then 'CreateMessageAlert(Me, "Enter Email ID For Availability Check.", "StrKeyVal") lblMsg.Visible = True lblMsg.Text = " Enter Company Name For Availability Check." ScriptManager1.SetFocus(txtName) Exit Sub End If If txtEmailID.Text = "" Then 'CreateMessageAlert(Me, "Enter Email ID For Availability Check.", "StrKeyVal") lblMsg.Visible = True lblMsg.Text = " Enter Email ID For Availability Check." ScriptManager1.SetFocus(txtEmailID) Exit Sub End If If IsValidMail(txtEmailID.Text, Me) Then Else 'CreateMessageAlert(Me, "Invalid e-Mail ID Please Enter Like abc@Atco.Com.", "StrKeyVal") lblMsg.Visible = True lblMsg.Text = " Invalid e-Mail ID Please Enter Like abc@Atco.Com." ScriptManager1.SetFocus(txtEmailID) Exit Sub End If If rblIsBuyer.SelectedValue = "Y" Then If txtBuyerID.Text = "" Then lblErrorData1.Visible = True lblErrorData1.Text = " Please Enter Buyer UserID." ScriptManager1.SetFocus(txtBuyerID) Exit Sub Else lblErrorData1.Visible = False End If Dim BuyerID As String BuyerID = ReturnValue("Select BuyerRegister_EmailId from BuyerRegister where BuyerRegister_EmailId ='" & Trim(txtBuyerID.Text.ToString.Trim) & "'and BuyerRegister_Isdeleted ='0'").ToString() If Trim(txtBuyerID.Text) <> BuyerID.ToString Then 'txtUserID.Text = "" txtBuyerID.Focus() lblErrorData1.Visible = True lblErrorData1.Text = " Sory This BuyerID Doesn't Exist." ScriptManager1.SetFocus(txtBuyerID) Exit Sub Else lblErrorData1.Visible = False End If End If If CheckBoxList1.SelectedIndex = -1 Then lblErrorData1.Visible = True lblErrorData1.Text = " Please Select Atleast One Category." Exit Sub End If '''''''' Check IN Final Supplier Table For Verification.. Dim EMailidFinal As String EMailidFinal = ReturnValue("Select SupplierContactPerson_EmailId from SupplierContactPerson_Master where SupplierContactPerson_EmailId='" & Trim(txtEmailID.Text.ToLower) & "' and SupplierContactPerson_IsDeleted='0'") Dim CompanyNameFinal As String CompanyNameFinal = ReturnValue("Select Supplier_Name from Supplier_Master where Supplier_Name='" & Trim(txtName.Text) & "' and Supplier_IsDeleted='0'") If Trim(txtEmailID.Text.ToLower) = EMailidFinal Or Trim(txtName.Text) = CompanyNameFinal Then 'txtUserID.Text = "" txtName.Focus() lblMsg.Visible = True lblMsg.Text = " Sorry This Company And e-Mail ID Is Already Present." ExecuteQuery("delete * from SignAgreement_Supplier where signagreement_Kid='" & Session("supagreement") & "'") ScriptManager1.SetFocus(txtName) Exit Sub Else lblMsg.Visible = True lblMsg.Text = " Congrates! Available For Register." End If ''''''' Check in Temporary Table For Insert or Updating Record.. Change Regarding to V-Office... Dim dtEmail, dtCompName As DataTable Dim EMailid, CompanyName As String dtEmail = ReturnDataTable("Select SupplierAppContactPerson_Kid,SupplierAppContactPerson_EmailId from SupplierAppContactPerson_Master where SupplierAppContactPerson_EmailId='" & Trim(txtEmailID.Text) & "' AND SupplierAppContactPerson_IsDeleted = '0'") If dtEmail.Rows.Count > 0 Then EMailid = dtEmail.Rows(0).Item("SupplierAppContactPerson_EmailId").ToString() Else EMailid = "" End If dtCompName = ReturnDataTable("Select SupplierApp_Kid,SupplierApp_Name from SupplierApp_Master where SupplierApp_Name='" & Trim(txtName.Text) & "' and SupplierApp_IsDeleted='0'") If dtCompName.Rows.Count > 0 Then CompanyName = dtCompName.Rows(0).Item("SupplierApp_Name").ToString() Else CompanyName = "" End If If Trim(txtEmailID.Text) = EMailid Or Trim(txtName.Text) = CompanyName Then ''txtUserID.Text = "" 'txtName.Focus() 'lblMsg.Visible = True 'lblMsg.Text = " Sory This Company And e-Mail ID Is Already Present." 'ScriptManager1.SetFocus(txtName) 'Exit Sub UpdateSupplier(dtCompName.Rows(0).Item("SupplierApp_Kid").ToString(), dtEmail.Rows(0).Item("SupplierAppContactPerson_Kid").ToString()) Else InsertData1() End If 'email() spEmailID.Text = txtEmailID.Text.Trim Thank.Visible = True Thank1.Visible = True ScriptManager.GetCurrent(Me).SetFocus(FindControl("SuppliersTopBanner1").FindControl("HomeSearch2").FindControl("txtsearch")) tbl1.Visible = False 'Response.Redirect("SupplierAgreementThanx.aspx") End If Else Response.Redirect(Page.ResolveUrl("~/suppliers/home.aspx")) End If Catch ex As Exception End Try Else txtCaptcha.Text = "" txtCaptcha.Focus() End If Else txtPassword.Focus() End If End Sub #End Region #Region "Methods" Public Sub LoadCategory() Dim dt As DataTable dt = ReturnDataTable("Select Category_KId, Category_Name from Category_Master where Category_ParentId ='Root Category' and Category_IsDeleted ='0' order by Category_Name") CheckBoxList1.DataSource = dt CheckBoxList1.DataTextField = "Category_Name" CheckBoxList1.DataValueField = "Category_KId" CheckBoxList1.DataBind() End Sub Public Sub fillyear() Dim I As Integer Dim FinancialYear As String For I = 2005 To Year(Now) - 2 FinancialYear = I.ToString + "-" + Right((I + 1).ToString, 2) ddlTurnOverYear.Items.Add(FinancialYear) Next End Sub Private Function CheckValid() As Boolean lblErrorData1.Visible = True If txtName.Text.Trim.Length = 0 Then lblErrorData1.Text = " Enter Company Name !!" Return False Exit Function ElseIf txtAddress.Text.Trim.Length = 0 Then lblErrorData1.Text = " Enter Address !!" Return False Exit Function ElseIf txtZipCode.Text.Trim.Length = 0 Then lblErrorData1.Text = " Enter Pin Code !!" Return False Exit Function 'ElseIf ddlCity.SelectedIndex = 0 Then ' lblErrorData1.Text = " Select City !!" ' Return False ' Exit Function ElseIf txtCPName.Text.Trim.Length = 0 Then lblErrorData1.Text = " Enter Contact Person Name !!" Return False Exit Function ElseIf txtMobileNumber.Text.Trim.Length = 0 AndAlso txtAlternateEmailID.Text.Trim.Length = 0 AndAlso txtTelNumber.Text.Trim.Length = 0 Then lblErrorData1.Text = " Enter at least one (Mobile No or Alt Email ID or Telphone No.)" Return False Exit Function ElseIf txtEmailID.Text.Trim.Length > 0 AndAlso IsValidMail(txtEmailID.Text.Trim, Me) = False Then lblErrorData1.Text = " Enter Valid Email ID !!" Return False Exit Function ElseIf txtAlternateEmailID.Text.Trim.Length > 0 AndAlso IsValidMail(txtAlternateEmailID.Text.Trim, Me) = False Then lblErrorData1.Text = " Enter Valid Alternate Email ID !!" Return False Exit Function End If 'If txtEmailID.Text.Trim.Length = 0 AndAlso txtAlternateEmailID.Text.Trim.Length = 0 Then ' lblErrorData1.Text = "Email ID required !!" ' Return False ' Exit Function 'End If Return True End Function Protected Sub GenerateSRMCode(ByRef code As String) Try Dim i As String Dim qry As String 'Dim code As String 'txtcrmkid.Text = NewPrimaryKeyVO(Me) i = "1" i = Format(Val(i), "000") While True code = "SRM" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from V_SRM_Prospects where SRMProspects_Code='" & code & "'" If IsAlreadyPresentVO(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else Exit Sub End If End While Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message End Try End Sub Private Sub UpdateSupplier(ByVal SupplierKID As String, ByVal ContactKID As String) Try If CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity"), HiddenField).Value.ToString = "" Then CreateMessageAlert(Me, "Please select Proper City.!", "strkeyval") CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCity"), TextBox).Focus() Exit Sub End If Dim emailid As String emailid = "contact@atcomaart.com" Dim cat As String cat = "" Dim catname As String catname = "" Dim j As Integer For j = 0 To CheckBoxList1.Items.Count - 1 If CheckBoxList1.Items(j).Selected = True Then cat += CheckBoxList1.Items(j).Value & "-" catname += CheckBoxList1.Items(j).Text & ", " 'emailid += "," & ReturnValue("Select CategoryEmail_EmailID from Category_Email where CategoryEmail_CategoryID ='" & CheckBoxList1.Items(j).Value & "' and CategoryEmail_IsDeleted ='0'") End If Next Dim strKid As String = SupplierKID '''' Assign Available SupplierKID... 'For Updatation of Supplier Agreement Table Dim cmd As New Data.SqlClient.SqlCommand() Dim con As New Data.SqlClient.SqlConnection Dim strIp As String = Request.UserHostAddress() con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() cmd = New Data.SqlClient.SqlCommand("update SignAgreement_Supplier set signagreement_SupplierId='" & strKid & "',signagreement_Approved='N' where signagreement_Kid='" & Session("supagreement") & "'", con) cmd.ExecuteNonQuery() con.Close() '---------------------------------------------------------------------- Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@SupplierApp_Kid", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim strEncodId = EncodeURL(strKid.Trim) sqlcoll.Add("@SupplierApp_Code", Data.SqlDbType.NVarChar, 25).Value = Generate_Code("select count(*) from SupplierApp_Master where SupplierApp_Code='", "SA") sqlcoll.Add("@SupplierApp_Name", Data.SqlDbType.NVarChar, 100).Value = txtName.Text.Trim sqlcoll.Add("@SupplierApp_CityId", Data.SqlDbType.NVarChar, 10).Value = RemoveLiterals(CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity"), HiddenField).Value.ToString) 'ddlCity.SelectedValue.Trim sqlcoll.Add("@SupplierApp_Address", Data.SqlDbType.NVarChar, 500).Value = txtAddress.Text.Trim sqlcoll.Add("@SupplierApp_PinCode", Data.SqlDbType.NVarChar, 15).Value = txtZipCode.Text.Trim sqlcoll.Add("@SupplierApp_TelCountryCode", Data.SqlDbType.NVarChar, 50).Value = txtTelCountryCode.Text.Trim sqlcoll.Add("@SupplierApp_TelCityCode", Data.SqlDbType.NVarChar, 50).Value = txtTelCityCode.Text.Trim sqlcoll.Add("@SupplierApp_TelNumber", Data.SqlDbType.NVarChar, 25).Value = txtTelNumber.Text.Trim sqlcoll.Add("@SupplierApp_TelExtn", Data.SqlDbType.NVarChar, 25).Value = txtTelExtn.Text.Trim sqlcoll.Add("@SupplierApp_NoOfYear", Data.SqlDbType.NVarChar, 10).Value = txtYearInBus.Text.Trim If txtTurnOver.Text = "" Then Else sqlcoll.Add("@SupplierApp_AnnualTO", Data.SqlDbType.NVarChar, 50).Value = txtTurnOver.Text.Trim sqlcoll.Add("@SupplierApp_AnnualTOType", Data.SqlDbType.NVarChar, 10).Value = ddlTurnOverUnit.SelectedItem.Value.Trim sqlcoll.Add("@SupplierApp_AnnualTOYear", Data.SqlDbType.NVarChar, 50).Value = ddlTurnOverYear.SelectedItem.Text.Trim End If sqlcoll.Add("@SupplierApp_IsISO", Data.SqlDbType.NVarChar, 1).Value = rblISO.SelectedValue.Trim If rblIsBuyer.SelectedValue = "Y" Then sqlcoll.Add("@SupplierApp_IsBuyer", Data.SqlDbType.NVarChar, 1).Value = rblIsBuyer.SelectedValue.ToString sqlcoll.Add("@SupplierApp_BuyerID", Data.SqlDbType.NVarChar, 10).Value = ReturnValue("Select BuyerRegister_Kid from BuyerRegister where BuyerRegister_EmailId='" & Trim(txtBuyerID.Text) & "'and BuyerRegister_Isdeleted ='0'").ToString Else sqlcoll.Add("@SupplierApp_IsBuyer", Data.SqlDbType.NVarChar, 1).Value = rblIsBuyer.SelectedValue.ToString End If sqlcoll.Add("@SupplierApp_IsPriceList", Data.SqlDbType.NVarChar, 1).Value = rblProceList.SelectedValue.ToString sqlcoll.Add("@SupplierApp_CategoryId", Data.SqlDbType.NVarChar, 200).Value = cat sqlcoll.Add("@SupplierApp_WebSiteUrl", Data.SqlDbType.NVarChar, 100).Value = txtWebSiteURL.Text.Trim sqlcoll.Add("@SupplierApp_Approved", Data.SqlDbType.NVarChar, 1).Value = "N" sqlcoll.Add("@SupplierApp_AgreementFlag", Data.SqlDbType.NVarChar, 1).Value = "Y" If txtprodbrand.Text.ToString = "" Then sqlcoll.Add("@SupplierApp_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = 0 Else sqlcoll.Add("@SupplierApp_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = Convert.ToInt32(txtprodbrand.Text.ToString) End If sqlcoll.Add("@SupplierApp_Password", Data.SqlDbType.NVarChar, 100).Value = txtPassword.Text.Trim sqlcoll.Add("@SupplierApp_RegDate", Data.SqlDbType.DateTime).Value = System.DateTime.Now strVarifyCode = GetRandomPasswordUsingGUID(12) sqlcoll.Add("@SupplierApp_Verification", Data.SqlDbType.NVarChar, 20).Value = strVarifyCode sqlcoll.Add("@SupplierApp_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = g_FinYear sqlcoll.Add("@SupplierApp_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company sqlcoll.Add("@SupplierApp_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User sqlcoll.Add("@SupplierApp_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIp sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" 'strMode.Trim ExecQuery("SupplierApp1_Master_Proc", sqlcoll) System.Threading.Thread.Sleep(100) ViewState.Add("strKid", strKid.Trim) sqlcoll.Clear() sqlcoll.Add("@SupplierAppContactPerson_Kid", Data.SqlDbType.NVarChar, 10).Value = ContactKID sqlcoll.Add("@SupplierAppContactPerson_Code", Data.SqlDbType.NVarChar, 25).Value = Generate_Code("select count(*) from SupplierAppContactPerson_Master where SupplierAppContactPerson_Code='", "SCP") sqlcoll.Add("@SupplierAppContactPerson_Name", Data.SqlDbType.NVarChar, 100).Value = txtCPName.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_Designation", Data.SqlDbType.NVarChar, 100).Value = txtJobTitle.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_Title", Data.SqlDbType.NVarChar, 100).Value = ddlTitle.SelectedItem.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_PhoneNo", Data.SqlDbType.NVarChar, 50).Value = "" sqlcoll.Add("@SupplierAppContactPerson_ExtNo", Data.SqlDbType.NVarChar, 15).Value = "" sqlcoll.Add("@SupplierAppContactPerson_MobileNo", Data.SqlDbType.NVarChar, 50).Value = txtMobileNumber.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_MobileCode", Data.SqlDbType.NVarChar, 50).Value = txtMobileCode.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_EmailId", Data.SqlDbType.NVarChar, 100).Value = txtEmailID.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_AlternateEmailID", Data.SqlDbType.NVarChar, 100).Value = txtAlternateEmailID.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_TollFreePhoneExtn", Data.SqlDbType.NVarChar, 15).Value = "" sqlcoll.Add("SupplierAppContactPerson_AMobileNo", Data.SqlDbType.NVarChar, 15).Value = txtAMNumber.Text.Trim sqlcoll.Add("SupplierAppContactPerson_AMobileCode", Data.SqlDbType.NVarChar, 15).Value = txtAMCode.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_SupplierAppId", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim sqlcoll.Add("@SupplierAppContactPerson_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = g_FinYear sqlcoll.Add("@SupplierAppContactPerson_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company sqlcoll.Add("@SupplierAppContactPerson_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User sqlcoll.Add("@SupplierAppContactPerson_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIp sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" 'strMode.Trim ExecQuery("SupplierAppContactPerson_Master_Proc", sqlcoll) System.Threading.Thread.Sleep(100) sqlcoll.Clear() sqlcoll = Nothing cmd.Dispose() con.Close() Session("supagreement") = Nothing Dim suppemailid As String suppemailid = txtEmailID.Text.Trim & "," & txtAlternateEmailID.Text.Trim email(emailid, catname) supplieremail(txtEmailID.Text.Trim, catname) Catch ex As Exception ExecuteQuery("delete * from SignAgreement_Supplier where signagreement_Kid='" & Session("supagreement") & "'") End Try End Sub Private Sub InsertData1() Try ' email("pankaj.mishra@edeskservices.com,pankaj.mishra@edeskservices.com,pankaj.mishra@edeskservices.com") If CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity"), HiddenField).Value.ToString = "" Then CreateMessageAlert(Me, "Please select Proper City.!", "strkeyval") CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCity"), TextBox).Focus() Exit Sub End If Dim emailid As String emailid = "contact@atcomaart.com" Dim cat As String cat = "" Dim catname As String catname = "" Dim j As Integer For j = 0 To CheckBoxList1.Items.Count - 1 If CheckBoxList1.Items(j).Selected = True Then cat += CheckBoxList1.Items(j).Value & "-" catname += CheckBoxList1.Items(j).Text & ", " 'emailid += "," & ReturnValue("Select CategoryEmail_EmailID from Category_Email where CategoryEmail_CategoryID ='" & CheckBoxList1.Items(j).Value & "' and CategoryEmail_IsDeleted ='0'") End If Next Dim strKid As String = NewPrimaryKey(Me) 'For Updatation of Supplier Agreement Table Dim cmd As New Data.SqlClient.SqlCommand() Dim con As New Data.SqlClient.SqlConnection Dim strIp As String = Request.UserHostAddress() con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() cmd = New Data.SqlClient.SqlCommand("update SignAgreement_Supplier set signagreement_SupplierId='" & strKid & "',signagreement_Approved='N' where signagreement_Kid='" & Session("supagreement") & "'", con) cmd.ExecuteNonQuery() con.Close() '---------------------------------------------------------------------- Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@SupplierApp_Kid", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim strEncodId = EncodeURL(strKid.Trim) sqlcoll.Add("@SupplierApp_Code", Data.SqlDbType.NVarChar, 25).Value = Generate_Code("select count(*) from SupplierApp_Master where SupplierApp_Code='", "SA") sqlcoll.Add("@SupplierApp_Name", Data.SqlDbType.NVarChar, 100).Value = txtName.Text.Trim sqlcoll.Add("@SupplierApp_CityId", Data.SqlDbType.NVarChar, 10).Value = RemoveLiterals(CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity"), HiddenField).Value.ToString) 'ddlCity.SelectedValue.Trim sqlcoll.Add("@SupplierApp_Address", Data.SqlDbType.NVarChar, 500).Value = txtAddress.Text.Trim sqlcoll.Add("@SupplierApp_PinCode", Data.SqlDbType.NVarChar, 15).Value = txtZipCode.Text.Trim sqlcoll.Add("@SupplierApp_TelCountryCode", Data.SqlDbType.NVarChar, 50).Value = txtTelCountryCode.Text.Trim sqlcoll.Add("@SupplierApp_TelCityCode", Data.SqlDbType.NVarChar, 50).Value = txtTelCityCode.Text.Trim sqlcoll.Add("@SupplierApp_TelNumber", Data.SqlDbType.NVarChar, 25).Value = txtTelNumber.Text.Trim sqlcoll.Add("@SupplierApp_TelExtn", Data.SqlDbType.NVarChar, 25).Value = txtTelExtn.Text.Trim sqlcoll.Add("@SupplierApp_NoOfYear", Data.SqlDbType.NVarChar, 10).Value = txtYearInBus.Text.Trim If txtTurnOver.Text = "" Then Else sqlcoll.Add("@SupplierApp_AnnualTO", Data.SqlDbType.NVarChar, 50).Value = txtTurnOver.Text.Trim sqlcoll.Add("@SupplierApp_AnnualTOType", Data.SqlDbType.NVarChar, 10).Value = ddlTurnOverUnit.SelectedItem.Value.Trim sqlcoll.Add("@SupplierApp_AnnualTOYear", Data.SqlDbType.NVarChar, 50).Value = ddlTurnOverYear.SelectedItem.Text.Trim End If sqlcoll.Add("@SupplierApp_IsISO", Data.SqlDbType.NVarChar, 1).Value = rblISO.SelectedValue.Trim If rblIsBuyer.SelectedValue = "Y" Then sqlcoll.Add("@SupplierApp_IsBuyer", Data.SqlDbType.NVarChar, 1).Value = rblIsBuyer.SelectedValue.ToString sqlcoll.Add("@SupplierApp_BuyerID", Data.SqlDbType.NVarChar, 10).Value = ReturnValue("Select BuyerRegister_Kid from BuyerRegister where BuyerRegister_EmailId='" & Trim(txtBuyerID.Text) & "'and BuyerRegister_Isdeleted ='0'").ToString Else sqlcoll.Add("@SupplierApp_IsBuyer", Data.SqlDbType.NVarChar, 1).Value = rblIsBuyer.SelectedValue.ToString End If sqlcoll.Add("@SupplierApp_IsPriceList", Data.SqlDbType.NVarChar, 1).Value = rblProceList.SelectedValue.ToString sqlcoll.Add("@SupplierApp_CategoryId", Data.SqlDbType.NVarChar, 200).Value = cat sqlcoll.Add("@SupplierApp_WebSiteUrl", Data.SqlDbType.NVarChar, 100).Value = txtWebSiteURL.Text.Trim sqlcoll.Add("@SupplierApp_Approved", Data.SqlDbType.NVarChar, 1).Value = "N" sqlcoll.Add("@SupplierApp_AgreementFlag", Data.SqlDbType.NVarChar, 1).Value = "Y" If txtprodbrand.Text.ToString = "" Then sqlcoll.Add("@SupplierApp_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = 0 Else sqlcoll.Add("@SupplierApp_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = Convert.ToInt32(txtprodbrand.Text.ToString) End If sqlcoll.Add("@SupplierApp_Password", Data.SqlDbType.NVarChar, 100).Value = txtPassword.Text.Trim sqlcoll.Add("@SupplierApp_RegDate", Data.SqlDbType.DateTime).Value = System.DateTime.Now strVarifyCode = GetRandomPasswordUsingGUID(12) sqlcoll.Add("@SupplierApp_Verification", Data.SqlDbType.NVarChar, 20).Value = strVarifyCode sqlcoll.Add("@SupplierApp_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = g_FinYear sqlcoll.Add("@SupplierApp_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company sqlcoll.Add("@SupplierApp_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User sqlcoll.Add("@SupplierApp_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIp sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim ExecQuery("SupplierApp1_Master_Proc", sqlcoll) System.Threading.Thread.Sleep(100) ViewState.Add("strKid", strKid.Trim) sqlcoll.Clear() sqlcoll.Add("@SupplierAppContactPerson_Kid", Data.SqlDbType.NVarChar, 10).Value = NewPrimaryKey(Me) sqlcoll.Add("@SupplierAppContactPerson_Code", Data.SqlDbType.NVarChar, 25).Value = Generate_Code("select count(*) from SupplierAppContactPerson_Master where SupplierAppContactPerson_Code='", "SCP") sqlcoll.Add("@SupplierAppContactPerson_Name", Data.SqlDbType.NVarChar, 100).Value = txtCPName.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_Designation", Data.SqlDbType.NVarChar, 100).Value = txtJobTitle.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_Title", Data.SqlDbType.NVarChar, 100).Value = ddlTitle.SelectedItem.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_PhoneNo", Data.SqlDbType.NVarChar, 50).Value = "" sqlcoll.Add("@SupplierAppContactPerson_ExtNo", Data.SqlDbType.NVarChar, 15).Value = "" sqlcoll.Add("@SupplierAppContactPerson_MobileNo", Data.SqlDbType.NVarChar, 50).Value = txtMobileNumber.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_MobileCode", Data.SqlDbType.NVarChar, 50).Value = txtMobileCode.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_EmailId", Data.SqlDbType.NVarChar, 100).Value = txtEmailID.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_AlternateEmailID", Data.SqlDbType.NVarChar, 100).Value = txtAlternateEmailID.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_TollFreePhoneExtn", Data.SqlDbType.NVarChar, 15).Value = "" sqlcoll.Add("SupplierAppContactPerson_AMobileNo", Data.SqlDbType.NVarChar, 15).Value = txtAMNumber.Text.Trim sqlcoll.Add("SupplierAppContactPerson_AMobileCode", Data.SqlDbType.NVarChar, 15).Value = txtAMCode.Text.Trim sqlcoll.Add("@SupplierAppContactPerson_SupplierAppId", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim sqlcoll.Add("@SupplierAppContactPerson_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = g_FinYear sqlcoll.Add("@SupplierAppContactPerson_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company sqlcoll.Add("@SupplierAppContactPerson_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User sqlcoll.Add("@SupplierAppContactPerson_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIp sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim ExecQuery("SupplierAppContactPerson_Master_Proc", sqlcoll) System.Threading.Thread.Sleep(100) sqlcoll.Clear() sqlcoll = Nothing cmd.Dispose() con.Close() Session("supagreement") = Nothing 'con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionVoffice") 'cmd.CommandText = "V_SRM_Prospects_Proc" 'cmd.CommandType = CommandType.StoredProcedure 'cmd.Connection = con 'Dim srmcode As String = "" 'GenerateSRMCode(srmcode) 'cmd.Parameters.Add("@SRMProspects_Kid", Data.SqlDbType.NVarChar, 10).Value = NewPrimaryKeyVO(Me) 'cmd.Parameters.Add("@SRMProspects_Code", Data.SqlDbType.NVarChar, 25).Value = srmcode 'cmd.Parameters.Add("@SRMProspects_SupplierId", Data.SqlDbType.NVarChar, 10).Value = RemoveLiterals(strKid) 'Dim i As Integer = txtCPName.Text.Trim.IndexOf(" ") 'Dim name(10) As String 'name = txtCPName.Text.Trim.Split(" ") 'cmd.Parameters.Add("@SRMProspects_FName", Data.SqlDbType.NVarChar, 50).Value = name(0) 'If (i > 0) Then ' cmd.Parameters.Add("@SRMProspects_LName", Data.SqlDbType.NVarChar, 50).Value = name(1) 'End If 'cmd.Parameters.Add("@SRMProspects_DOB", Data.SqlDbType.NVarChar, 8).Value = "" 'cmd.Parameters.Add("@SRMProspects_EmailId", Data.SqlDbType.NVarChar, 100).Value = txtEmailID.Text.Trim 'cmd.Parameters.Add("@SRMProspects_MobileCountryCode", Data.SqlDbType.NVarChar, 3).Value = txtMobileCode.Text.Trim 'cmd.Parameters.Add("@SRMProspects_MobileNo", Data.SqlDbType.NVarChar, 10).Value = txtMobileNumber.Text.Trim 'cmd.Parameters.Add("@SRMProspects_Company", Data.SqlDbType.NVarChar, 100).Value = txtName.Text.Trim 'cmd.Parameters.Add("@SRMProspects_Designation", Data.SqlDbType.NVarChar, 100).Value = txtJobTitle.Text 'cmd.Parameters.Add("@SRMProspects_PhoneCountryCode", Data.SqlDbType.NVarChar, 3).Value = txtTelCountryCode.Text.Trim 'cmd.Parameters.Add("@SRMProspects_PhoneCityCode", Data.SqlDbType.NVarChar, 5).Value = txtTelCityCode.Text.Trim 'cmd.Parameters.Add("@SRMProspects_PhoneNo", Data.SqlDbType.NVarChar, 10).Value = txtTelNumber.Text.Trim 'cmd.Parameters.Add("@SRMProspects_PhoneExtNo", Data.SqlDbType.NVarChar, 5).Value = txtTelExtn.Text.Trim 'cmd.Parameters.Add("@SRMProspects_CityId", Data.SqlDbType.NVarChar, 10).Value = RemoveLiterals(ddlCity.SelectedValue.Trim) 'cmd.Parameters.Add("@SRMProspects_Address", Data.SqlDbType.NVarChar, 500).Value = txtAddress.Text.Trim 'cmd.Parameters.Add("@SRMProspects_PinCode", Data.SqlDbType.NVarChar, 6).Value = txtZipCode.Text.Trim 'cmd.Parameters.Add("@SRMProspects_Date", Data.SqlDbType.DateTime).Value = DateTime.Now 'cmd.Parameters.Add("@SRMProspects_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company 'cmd.Parameters.Add("@SRMProspects_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User 'cmd.Parameters.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString 'cmd.Parameters.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim 'If con.State = ConnectionState.Open Then ' con.Close() 'End If 'con.Open() 'cmd.ExecuteNonQuery() 'con.Dispose() Dim suppemailid As String suppemailid = txtEmailID.Text.Trim & "," & txtAlternateEmailID.Text.Trim email(emailid, catname) supplieremail(txtEmailID.Text.Trim, catname) System.Threading.Thread.Sleep(100) 'spEmailID.InnerHtml = txtEmailID.Text.Trim 'Thank.Visible = True 'tbl1.Visible = False 'ScriptManager.GetCurrent(Me).SetFocus(spEmailID) Catch ex As Exception ExecuteQuery("delete * from SignAgreement_Supplier where signagreement_Kid='" & Session("supagreement") & "'") End Try End Sub Private Sub getMobileCode() Try 'If ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'").ToString <> "" Then ' txtMobileCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'") ' txtAMCode.Text = txtMobileCode.Text.Trim ' txtTelCountryCode.Text = txtMobileCode.Text.Trim ' txtMobileCode.Enabled = False ' txtAMCode.Enabled = False ' txtTelCountryCode.Enabled = False 'Else txtMobileCode.Enabled = True txtAMCode.Enabled = True txtTelCountryCode.Enabled = True txtMobileCode.Text = "" txtAMCode.Text = "" txtTelCountryCode.Text = "" 'End If Catch ex As Exception End Try End Sub Public Sub email(ByVal mailto As String, ByVal catnm As String) Try Dim StrMail As String = "" 'Dim objmessage As New MailMessage() StrMail = "" StrMail = StrMail & "" & "" & "" StrMail = StrMail & "Contact Us" & "

" StrMail = StrMail & "" StrMail = StrMail & "" & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "
New Supplier Partner" 'StrMail = StrMail & "
" 'StrMail = StrMail & "
" 'StrMail = StrMail & "
THANK YOU!" 'StrMail = StrMail & "
We highly appreciate your time and efforts to visit our website and register with us. We understand that you are looking forward to alternative and innovating marketing channel for your products and supplies. " 'StrMail = StrMail & "


ATCOMAART! Brings you tremendous value and wealth addition to your business, products and customers. Our alternative channels of marketing gives you perfect reach to your customers, choice of your products, best available price, quality, and after sales service and increase your brand value continuously." 'StrMail = StrMail & "


Currently you can become our preferred supplier partner by completing the details of your company and listing your products on our website. We are coming soon with our industrial retail warehouse all over the country to showcase your products and be much closer to your customer. " 'StrMail = StrMail & "


For any questions and concerns get back to us." StrMail = StrMail & "

New Supplier Registration on Atcomaart Web Site::

" & "
Register Under These Categories  " & ":  " & catnm.Trim & "
Company Name  " & ":  " & txtName.Text.Trim & "
Corporate Contact Person  " & ":  " & ddlTitle.SelectedItem.Text & " " & txtCPName.Text & "
Designation  " & ":  " & txtJobTitle.Text & "
Telephone No  " & ":  " & txtTelCountryCode.Text.Trim & "-" & txtTelCityCode.Text.Trim & "-" & txtTelNumber.Text.Trim & "
Mobile No.  " & ":  " & txtMobileNumber.Text & "
Website Url  " & ":  " & txtWebSiteURL.Text.Trim & "
User EmailId  " & ":  " & txtEmailID.Text & "


ATCOMAART Team
www.atcomaart.com
contact@atcomaart.com
ceo@atcomaart.com

" ' ''Dim MyMailMessage As New MailMessage() '' ''From requires an instance of the MailAddress type ' ''MyMailMessage.From = New MailAddress("contact@atcomaart.com", txtEmailID.Text) '' ''To is a collection of MailAddress types ' ''MyMailMessage.To.Add(mailto) ' '' ''MyMailMessage.Bcc.Add(New MailAddress("pankaj.mishra@edeskservices.com", "eDesk Services Ltd.")) ' ''MyMailMessage.Subject = "New Registration Of Supplier" ' ''MyMailMessage.Body = StrMail ' ''MyMailMessage.IsBodyHtml = True ' ''MyMailMessage.Priority = MailPriority.High ' ''Dim smtpclient As New SmtpClient("smtp.gmail.com") ' ''smtpclient.Credentials = New Net.NetworkCredential("contact@atcomaart.com", "contact@55017_atco") ' ''smtpclient.Send(MyMailMessage) MailSender.SendEmailWithBCC("contact@atcomaart.com", "New Registration Of Supplier", StrMail, Mail.MailFormat.Html, "", "chirag.chavda@atcomaart.com") Catch ex As Exception End Try End Sub Public Sub supplieremail(ByVal mailto As String, ByVal catnm As String) Try Dim strUrl As String = "http://www.atcomaart.com/suppliers/SupplierAgreementThanx.aspx?VerificationCode=" & strVarifyCode & "&Email=" & txtEmailID.Text.Trim & "&Id=" & strEncodId Dim StrMail As String = "" 'Dim objmessage As New MailMessage() StrMail = "" StrMail = StrMail & "" & "" & "" StrMail = StrMail & "Confirmation Link from www.atcomaart.com" & "

" StrMail = StrMail & "" StrMail = StrMail & "" & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" 'StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "
Dear Supplier Partner" StrMail = StrMail & "
" StrMail = StrMail & "
" StrMail = StrMail & "
THANK YOU!
" StrMail = StrMail & "
We highly appreciate your time and efforts to visit our website and register with us. We understand that you are looking forward to alternative and innovating marketing channel for your products and supplies. " StrMail = StrMail & "


ATCOMAART! Brings you tremendous value and wealth addition to your business, products and customers. Our alternative channels of marketing gives you perfect reach to your customers, choice of your products, best available price, quality, and would increase your brand value continuously." StrMail = StrMail & "


Currently you can become our preferred supplier partner by completing the details of your company and listing your products on our website. We are coming soon with our industrial retail warehouse all over the country to showcase your products and be much closer to your customer. " StrMail = StrMail & "


For any questions and concerns get back to us." StrMail = StrMail & "


Looking forward to long term relationship with you!.

Details of the Your Registration are as follows:

" & "
You have registered under following Categories:
" & catnm.Trim & "

Company Name  " & ":  " & txtName.Text.Trim & "
Corporate Contact Person  " & ":  " & ddlTitle.SelectedItem.Text & " " & txtCPName.Text & "
Designation  " & ":  " & txtJobTitle.Text & "
Telephone No  " & ":  " & txtTelCountryCode.Text.Trim & "-" & txtTelCityCode.Text.Trim & "-" & txtTelNumber.Text.Trim & "
Mobile No.  " & ":  " & txtMobileNumber.Text & "
Website Url  " & ":  " & txtWebSiteURL.Text.Trim & "
User EmailId  " & ":  " & txtEmailID.Text & "
Password  " & ":  " & txtPassword.Text & "
Please Click on the below mentioned Link for validation of your email and approval process of your ATCOMAART Account

Click Here for Your Verification


Click Here for Your Verification


ATCOMAART Team
www.atcomaart.com
contact@atcomaart.com

" MailSender.SendEmailWithBCC(mailto.ToString, "Confirmation Link from www.atcomaart.com", StrMail, Mail.MailFormat.Html, "", "chirag.chavda@atcomaart.com;contact@atcomaart.com") 'Dim MyMailMessage As New MailMessage() ''From requires an instance of the MailAddress type 'MyMailMessage.From = New MailAddress("contact@atcomaart.com", "Atcomaart.") ''To is a collection of MailAddress types 'MyMailMessage.To.Add(mailto) 'MyMailMessage.Bcc.Add("it@atcomaart.com") ', "CC Name")) 'MyMailMessage.Bcc.Add("contact@atcomaart.com") ''MyMailMessage.CC.Add(New MailAddress("pankajmishra2006@gmail.com", "CC Name")) ' '' MyMailMessage.Bcc.Add(New MailAddress("pankaj.mishra@edeskservices.com", "eDesk Services Ltd.")) 'MyMailMessage.Subject = "Confirmation Link from www.atcomaart.com" 'MyMailMessage.Body = StrMail 'MyMailMessage.IsBodyHtml = True 'MyMailMessage.Priority = MailPriority.High 'Dim smtpclient As New SmtpClient("smtp.rediffmailpro.com") 'smtpclient.Credentials = New Net.NetworkCredential("contact@atcomaart.com", "vikram") 'smtpclient.Send(MyMailMessage) Catch ex As Exception End Try End Sub Protected Sub GenerateCode() Try Dim i As String Dim qry As String Dim code As String i = "1" i = Format(Val(i), "000") While True code = "SUPP" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from SignAgreement_Supplier where signagreement_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else TextBox2.Text = code Exit Sub End If End While Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message End Try End Sub 'Protected Sub ddlCountry_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCountry.SelectedIndexChanged ' Try ' If ddlCountry.SelectedIndex > 0 Then ' ddlState.Items.Clear() ' Fill_Combo("Select State_Kid, State_Name from State_Master where State_IsDeleted='0' and State_CountryID='" & ddlCountry.SelectedValue.Trim & "' and State_CompanyId='" & g_Company.Trim & "' order by State_Name", ddlState) ' getMobileCode() ' ddlState.Enabled = True ' ScriptManager1.SetFocus(ddlState) ' getMobileCode() ' End If ' Catch ex As Exception ' End Try 'End Sub 'Protected Sub ddlState_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlState.SelectedIndexChanged ' Try ' If ddlState.SelectedIndex > 0 Then ' ddlCity.Items.Clear() ' Fill_Combo("Select City_Kid, City_Name from City_Master where City_IsDeleted='0' and City_StateID='" & ddlState.SelectedValue.Trim & "' and City_CompanyId='" & g_Company.Trim & "' order by City_Name", ddlCity) ' ddlCity.Enabled = True ' ScriptManager1.SetFocus(ddlCity) ' End If ' Catch ex As Exception ' End Try 'End Sub 'Protected Sub ddlCity_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ' Try ' If ddlCity.SelectedItem.Text.Trim = "Others" Then ' ' imgadd.Visible = True ' ' txtAddCity.Visible = True ' ' ScriptManager1.SetFocus(txtAddCity) ' Else ' ScriptManager1.SetFocus(txtAddress) ' End If ' Catch ex As Exception ' End Try 'End Sub 'Protected Sub imgadd_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) ' Try ' If txtAddCity.Text = "" Then ' CreateMessageAlert(Me, "Please Enter City Name.", "StrKeyVal") ' ddlCity.ClearSelection() ' Exit Sub ' End If ' Dim cmd As New Data.SqlClient.SqlCommand() ' Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters ' sqlcoll.Add("@City_Kid", Data.SqlDbType.NVarChar, 50).Value = NewPrimaryKey(Me) ' sqlcoll.Add("@City_Code", Data.SqlDbType.NVarChar, 50).Value = Generate_Code("select count(*) from City_Master where City_Code='", "CC") ' sqlcoll.Add("@City_Name", Data.SqlDbType.NVarChar, 50).Value = txtAddCity.Text.Trim ' sqlcoll.Add("@City_StateID", Data.SqlDbType.NVarChar, 50).Value = ddlState.SelectedValue.Trim ' sqlcoll.Add("@City_CompanyID", Data.SqlDbType.NVarChar, 50).Value = g_Company ' sqlcoll.Add("@City_UserID", Data.SqlDbType.NVarChar, 50).Value = g_User ' sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString ' sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" ' ExecQuery("City_Master_Proc", sqlcoll) ' FillComboWithOthers("Select City_Kid, City_Name from City_Master where City_IsDeleted='0' and City_StateID='" & ddlState.SelectedValue.Trim & "' and City_CompanyId='" & g_Company.Trim & "' order by City_Name", ddlCity) ' ddlCity.ClearSelection() ' ddlCity.Items.FindByText(txtAddCity.Text.Trim).Selected = True ' txtAddCity.Text = "" ' imgadd.Visible = False ' txtAddCity.Visible = False ' Catch ex As Exception ' End Try 'End Sub 'Protected Sub rblIsBuyer_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rblIsBuyer.SelectedIndexChanged ' If rblIsBuyer.SelectedValue = "Y" Then ' txtBuyerID.Text = "" ' tr1.Visible = True ' Else ' txtBuyerID.Text = "" ' tr1.Visible = False ' End If 'End Sub #End Region End Class