Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Net.Mail Imports System.Math Imports System.IO Imports System.EnterpriseServices Imports System.Drawing 'Imports System.Web.HttpWriter Imports System.Web.Security Imports System.Resources.Tools Imports System.Security.Cryptography Imports System.Configuration Imports System.Web Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls.WebParts Imports System.Web.UI.HtmlControls Imports System.Data.Sql Imports System.Text Imports System.Net Partial Class Register Inherits System.Web.UI.Page Shared g_User As String Shared g_Company As String Shared g_FinYear As String Dim mode As String Dim category As String Dim strVarifyCode As String Dim strEncodId As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then 'If Session("buyeragreement") Is Nothing And Request.QueryString("agree").ToString <> "Yes" Then ' Response.Redirect("buyer-agreement.aspx") 'End If 'Session("buyeragreement") = Request.QueryString("bryes").ToString 'ddlState.Enabled = False 'ddlCity.Enabled = False '''''''code for terms & condition Dim wc As New WebClient form1.DefaultButton = BtnSave.UniqueID.ToString() Try Dim str As StreamReader 'str = File.OpenText(Server.MapPath("~/Upload Image/MOU.txt")) str = File.OpenText(Server.MapPath("~/Upload Image/MOUBuyer.txt")) txtMessage.InnerHtml = str.ReadToEnd().ToString str.Close() Catch ex As Exception End Try '''''''''''''''''''' Dim dt As New DataTable Dim parent As String parent = "Root Category" g_User = "000008I" g_Company = "00006Z4" g_FinYear = "000010N" txtTelCountryCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtTelCityCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtTelNumber.Attributes.Add("onkeypress", "return numbersonly(event)") txtTelExt.Attributes.Add("onkeypress", "return numbersonly(event)") txtMobCountryCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtMobNumber.Attributes.Add("onkeypress", "return numbersonly(event)") txtFaxCountryCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtFaxCityCode.Attributes.Add("onkeypress", "return numbersonly(event)") txtFaxNumber.Attributes.Add("onkeypress", "return numbersonly(event)") txtPinCode.Attributes.Add("onkeypress", "return numbersonly(event)") 'txtPassword.Attributes.Add("onkeydown", "return CheckMinVal('" & txtPassword.ClientID.ToString & "',event);") 'txtCnfmPwd.Attributes.Add("onkeydown", "return CheckMinVal('" & txtCnfmPwd.ClientID.ToString & "',event);") '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) dt = ReturnDataTable("Select Distinct Category_Kid, Category_Name from Category_Master where Category_UserId = '" & g_User & "' and Category_CompanyId = '" & g_Company & "' and Category_Isdeleted = '0' and Category_ParentId = '" & parent & "' order by Category_Name") chkCategory.DataSource = dt chkCategory.DataTextField = "Category_Name" chkCategory.DataValueField = "Category_Kid" chkCategory.DataBind() rblsupplier.Attributes.Add("onclick", "VisibleUploadControl();") ' getExistingData() Fill_Combo("SELECT ReferenceM_Kid, ReferenceM_Name FROM Reference_Master where ReferenceM_IsDeleted='0' order by ReferenceM_Name", ddlreference) main.Visible = True lblmsg.Visible = False 'BtnSave.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 & "');") BtnSave.Attributes.Add("onclick", "return CheckValidation('txt-" & txtName.ClientID.ToString & "-r-n-Please Enter Name First.!','txt-" & txtUserID.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-" & txtCompanyName.ClientID.ToString & "-r-n-Please Enter Company Name.!','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-" & txtPinCode.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 City Code.!','txt-" & txtTelNumber.ClientID.ToString & "-r-n-Please Enter TelePhone No.!','txt-" & txtMobCountryCode.ClientID.ToString & "-r-n-Please Enter Mobile Country Code.!','txt-" & txtMobNumber.ClientID.ToString & "-r-n-Please Enter Mobile No.!','txt-" & txtWebSite.ClientID.ToString & "-n-w-Please Enter Valid WebSite URL like (www.atcomaart.com).!','txt-" & txtsuserid.ClientID.ToString & "-n-e-Please Enter Valid EmailID!','txt-" & txtCaptcha.ClientID.ToString & "-r-n-Please enter the text from the image.!','chk-" & chkCategory.ClientID.ToString & "-r-1-Please Select Atleast One Category.!');") chkAvailability.Attributes.Add("onclick", "return CheckValidation('txt-" & txtName.ClientID.ToString & "-r-n-Please Enter Name First.!','txt-" & txtUserID.ClientID.ToString & "-r-e-Please Enter Valid EmailID.!');") trVisible.Style.Add("display", "none") End If txtTelCountryCode.MaxLength = 3 txtTelCityCode.MaxLength = 5 txtTelNumber.MaxLength = 8 txtTelExt.MaxLength = 5 txtFaxCityCode.MaxLength = 5 txtFaxCountryCode.MaxLength = 3 txtFaxNumber.MaxLength = 8 txtMobCountryCode.MaxLength = 3 txtMobNumber.MaxLength = 10 'Label13.Visible = False 'txtOtherState.Visible = False 'btnAddState.Visible = False 'Label14.Visible = False 'txtAddCity.Visible = False 'btnAddCity.Visible = False 'TR2.Visible = False 'getMobileCode() End Sub Private Sub EnableControls(ByVal bool As Boolean) 'txtAddCity.Enabled = bool txtAddress.Enabled = bool txtCompanyName.Enabled = bool txtFaxCityCode.Enabled = bool txtFaxCountryCode.Enabled = bool txtFaxNumber.Enabled = bool txtMobCountryCode.Enabled = bool txtMobNumber.Enabled = bool txtName.Enabled = bool txtPinCode.Enabled = bool txtTelCityCode.Enabled = bool txtTelCountryCode.Enabled = bool txtTelExt.Enabled = bool txtTelNumber.Enabled = bool txtUserID.Enabled = bool txtWebSite.Enabled = bool 'ddlCity.Enabled = bool 'ddlCountry.Enabled = bool 'ddlState.Enabled = bool 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_Buyer 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 BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click 'If BtnSave.Text = "Save" Then ' mode = "Insert" If Page.IsValid Then captchaSupplier.ValidateCaptcha(txtCaptcha.Text) If captchaSupplier.UserValidated = True Then If RadioButtonList1.SelectedValue = "Y" Then '''''''''''''' Try Dim Con As New SqlConnection Dim cmd As New SqlCommand Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd.Connection = Con cmd.CommandText = "SignAgreement_BuyerProc" cmd.CommandType = CommandType.StoredProcedure Dim agreementid As String = RemoveLiterals(NewPrimaryKey(Me)) cmd.Parameters.Add(New SqlParameter("@signagreement_Kid", SqlDbType.NVarChar)).Value = agreementid Session("buyeragreement") = 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 cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Buyer_Registration" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 50)).Value = "Insert" Con.Open() cmd.ExecuteNonQuery() Con.Close() '''''''''''''' Catch ex As Exception showmessage(ex.Message.ToString, lblerror) End Try Try GenerateRegisterCode() Dim EMailid As String EMailid = ReturnValue("Select BuyerRegister_EmailId from buyerregister where BuyerRegister_EmailId='" & Trim(txtUserID.Text) & "'") If Trim(txtUserID.Text) = EMailid Then 'txtUserID.Text = "" txtUserID.Focus() Label17.Visible = True Label17.Text = "This E-Mail Id already registered please choose another E-Mail Id." Exit Sub End If If CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCountry"), HiddenField).Value.ToString = "" Or CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfState"), HiddenField).Value.ToString = "" Or CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCity"), HiddenField).Value.ToString = "" Then CreateMessageAlert(Me, "Please select Proper Country State And City.!", "strkeyval") CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("txtCountry"), TextBox).Focus() Exit Sub End If category = "" Dim id As String Dim i, j As Integer i = chkCategory.Items.Count For j = 0 To i - 1 If chkCategory.Items(j).Selected = True Then category += chkCategory.Items(j).Text & " - " 'id = chkCategory.Items(j).Value End If Next Dim telephoneno As String telephoneno = txtTelCountryCode.Text & "-" & txtTelCityCode.Text & "-" & txtTelNumber.Text Dim MobileNo As String MobileNo = txtMobCountryCode.Text & "-" & txtMobNumber.Text Dim FaxNo As String FaxNo = txtFaxCountryCode.Text & "-" & txtFaxCityCode.Text & "-" & txtFaxNumber.Text If category = "" Then 'CreateMessageAlert(Me, "Please Select One Category.", "StrKeyVal") Label19.Text = " Please Select One Category." Label19.Visible = True Exit Sub End If Dim suserid As String = "" If txtsuserid.Text <> "" Then suserid = ReturnValue("SELECT Supplier_Master.Supplier_Kid FROM AdminUser INNER JOIN Supplier_Master ON AdminUser.AdminUser_Kid = Supplier_Master.Supplier_AdminUserId where AdminUser.AdminUser_Name='" & txtsuserid.Text & "' ") If suserid = "" Then Label19.Visible = True Label19.Text = " This Supplier User Id is not registered please choose another User Id." Exit Sub End If End If If ddlreference.SelectedIndex = 0 Then Label19.Visible = True Label19.Text = " The Refernce Must be Required." Exit Sub End If Dim cipher As String Dim con As New SqlConnection 'Define connection variable for connecting to SQL-Server con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File con.Open() Dim cmd As New SqlCommand 'Define command variable to execute the query 'For Updatation of Buyer Agreement Table cmd = New Data.SqlClient.SqlCommand("update SignAgreement_Buyer set signagreement_BuyerId='" & Trim(TxtKid.Text) & "' where signagreement_Kid='" & Session("buyeragreement") & "'", con) cmd.ExecuteNonQuery() cmd.Cancel() cmd.CommandType = CommandType.StoredProcedure 'Set the Command Type to Stored procedure cmd.CommandText = "BuyerRegister_Proc" 'Assign the Name of Stored Procedure, to Execute cmd.Connection = con 'Assign the connection cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Kid", SqlDbType.NVarChar, 10)).Value = Trim(TxtKid.Text) 'Add Parameter Banke_Kid and assign the value to it strEncodId = EncodeURL(Trim(TxtKid.Text)) cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Code", SqlDbType.NVarChar, 25)).Value = Trim(txtCode.Text) 'Add Parameter Banke_Code and assign the value of txtBankCode TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Name", SqlDbType.NVarChar, 100)).Value = Trim(txtName.Text) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_EmailId", SqlDbType.NVarChar, 50)).Value = Trim(txtUserID.Text) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_TelephoneNo", SqlDbType.NVarChar, 50)).Value = telephoneno 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_TelephoneExt", SqlDbType.NVarChar, 50)).Value = Trim(txtTelExt.Text) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_MobileNo", SqlDbType.NVarChar, 50)).Value = Trim(MobileNo) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_FaxNo", SqlDbType.NVarChar, 50)).Value = Trim(FaxNo) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Address", SqlDbType.NVarChar, 200)).Value = Trim(txtAddress.Text) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_PinCode", SqlDbType.Decimal)).Value = Convert.ToDecimal(Trim(txtPinCode.Text)) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CountryId", SqlDbType.NVarChar, 10)).Value = RemoveLiterals(Trim(CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCountry"), HiddenField).Value.ToString)) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_StateId", SqlDbType.NVarChar, 10)).Value = RemoveLiterals(Trim(CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfState"), HiddenField).Value.ToString)) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it ' cmd.Parameters.Add(New SqlParameter("@BuyerRegister_OtherState", SqlDbType.NVarChar, 50)).Value = Trim(OtherState) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CityId", SqlDbType.NVarChar, 10)).Value = RemoveLiterals(Trim(CType(CType(Page.FindControl("JJCSC1"), UserControl).FindControl("hfCountry"), HiddenField).Value.ToString)) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it ' cmd.Parameters.Add(New SqlParameter("@BuyerRegister_OtherCity", SqlDbType.NVarChar, 50)).Value = Trim(OtherCity) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CompanyName", SqlDbType.NVarChar, 50)).Value = Trim(txtCompanyName.Text) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_WebSite", SqlDbType.NVarChar, 50)).Value = Trim(txtWebSite.Text) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Category", SqlDbType.NVarChar, 250)).Value = Trim(category) 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_IsSuppllierId", SqlDbType.NVarChar, 1)).Value = rblsupplier.SelectedValue 'Add Parameter Bank_Name and assign the value of rblsupplier TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_SuppllierUserId", SqlDbType.NVarChar, 10)).Value = Trim(suserid) 'Add ssParameter Bank_Name and assign the value of suserid TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Referece", SqlDbType.NVarChar, 10)).Value = Trim(ddlreference.SelectedValue) 'Add ssParameter Bank_Name and assign the value of suserid TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_RegDate", SqlDbType.DateTime)).Value = Convert.ToDateTime(Date.Now).Date 'Add ssParameter Bank_Name and assign the value of suserid TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_FinancialYearId", SqlDbType.NVarChar, 10)).Value = g_FinYear 'Add Parameter Bank_Name and assign the value of txtBankName TextField to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CompanyId", SqlDbType.NVarChar, 10)).Value = Trim(g_Company) 'Add Parameter Company_Code and assign the value of Session("g_Company") to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_UserId", SqlDbType.NVarChar, 10)).Value = Trim(g_User) 'Add Parameter UserCode and assign the value of Session("g_User").toString to it Dim passwrd As String = txtPassword.Text.Trim cipher = Encrypt(passwrd.ToString) 'Add Parameter FormName and assign the name of form to it cmd.Parameters.Add(New SqlParameter("@BuyerRegister_pwd", SqlDbType.NVarChar, 200)).Value = cipher.Trim.ToString 'Add password cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Agree", SqlDbType.NVarChar, 1)).Value = "Y" 'Add if buyer is approved to the commitment strVarifyCode = GetRandomPasswordUsingGUID(12) cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Verification", SqlDbType.NVarChar, 20)).Value = strVarifyCode 'Add Parameter verification code for verify cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Status", SqlDbType.NVarChar, 1)).Value = "N" 'Add Parameter for active status cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Register" 'Add Parameter FormName and assign the name of form to it cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.VarChar, 50)).Value = "Insert" 'Add Parameter Mode and assign the DML Operation to Execute (Insert) cmd.ExecuteNonQuery() con.Close() System.Threading.Thread.Sleep(2000) customermail(passwrd) email(passwrd) ' email(cipher) '' CRMProcpect_check() 'CreateMessageAlert(Me, " Successfully Submitted.", "StrKeyVal") clearfields() main.Visible = False lblmsg.Visible = True Session("buyeragreement") = Nothing 'Response.Redirect("RegiterSuccefull.aspx") Catch ex As Exception ExecuteQuery("delete * from SignAgreement_Buyer where signagreement_Kid='" & Session("buyeragreement") & "'") showmessage(ex.Message.ToString, lblerror) End Try Else Response.Redirect(Page.ResolveUrl("~/Buyer/buyer-home.aspx")) End If Else txtCaptcha.Text = "" txtCaptcha.Focus() End If Else txtPassword.Focus() End If End Sub Public Sub email(ByVal pwd 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 & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "
" StrMail = StrMail & "Buyer Registration on Atcomaart Web Site:-" & "

Details of the Buyer are as follows:" & "
Buyer Name  " & ":  " & txtName.Text.Trim & "
Buyer Address  " & ":  " & txtAddress.Text.Trim & "
Buyer Company Name  " & ":  " & txtCompanyName.Text.Trim & "
Telephone No  " & ":  " & txtTelCountryCode.Text.Trim & "-" & txtTelCityCode.Text & "-" & txtTelNumber.Text & "
Mobile No.  " & ":  " & txtMobCountryCode.Text & "-" & txtMobNumber.Text & "
Website Url  " & ":  " & txtWebSite.Text.Trim & "
Selected Categories  " & ":  " & Trim(category) & "
Reference  " & ":  " & ddlreference.SelectedItem.Text.Trim & "
Buyer User EmailId  " & ":  " & txtUserID.Text.Trim & "
Buyer Password  " & ":  " & pwd.Trim & "


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

" ' ''Dim mailmsg As New MailMessage() ' ''mailmsg.From = New MailAddress("contact.atcomaart@atco.in", "Atcomaart.") ' ''mailmsg.To.Add("contact.atcomaart@atco.in") ', txtUserID.Text.ToString) ' ''mailmsg.Bcc.Add("it@atcomaart.com") ' ''mailmsg.Subject = "New Buyer Registration Alert." ' ''mailmsg.Body = StrMail ' ''mailmsg.IsBodyHtml = True ' ''mailmsg.Priority = MailPriority.High ' ''Dim smtp As New SmtpClient("smtp.rediffmailpro.com") ' ''smtp.Credentials = New Net.NetworkCredential("contact.atcomaart@atco.in", "contact@55017_atco") ' ''smtp.Send(mailmsg) MailSender.SendEmail(txtUserID.Text.Trim, "New Buyer Registration Alert.", StrMail, Web.Mail.MailFormat.Html, "") Catch ex As Exception showmessage(ex.Message.ToString, lblerror) End Try End Sub Public Sub customermail(ByVal pwd As String) Try Dim strUrl As String = "http://www.atcomaart.com/Buyer/RegiterSuccefull.aspx?VerificationCode=" & strVarifyCode & "&Email=" & txtUserID.Text.Trim & "&Id=" & strEncodId Dim StrMail As String = "" Dim objmessage As New MailMessage() StrMail = "" StrMail = StrMail & "" & "" & "" StrMail = StrMail & "Buyer Registration confirmation link from atcomaart.com" & "

" StrMail = StrMail & "" StrMail = StrMail & "" & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "
" StrMail = StrMail & "Dear Buyer," & "

Thanks for registering us by investing your valuable time.

Your User ID and Password are given as below :
User ID  " & ":  " & txtUserID.Text.Trim & "
Password  " & ":  " & pwd.Trim & "
Please Click on the below mentioned Link for validation and approval process of your ATCOMAART Account

Click Here for Your Verification
'" & strUrl & "'


Now you can send us inquiries for different product and be in touch with regular updates by using different services offered to you by ATCOMMART TEAM !


If unable to view the page, Please copy the link and paste it in a new browser window.
Please contact our product management team at contact@atcomaart.com for any further support.


ATCOMAART TEAM!
www.atcomaart.com
contact@atcomaart.com
customer@atcomaart.com

" ' ''Dim mailmsg As New MailMessage() ' ''mailmsg.From = New MailAddress("contact.atcomaart@atco.in", "Atcomaart.") ' ''mailmsg.To.Add(txtUserID.Text.ToString) ' ''mailmsg.CC.Add("contact.atcomaart@atco.in") '' '' mailmsg.Bcc.Add("it@atcomaart.com") ' ''mailmsg.Subject = "Buyer Registration confirmation link from atcomaart.com...." ' ''mailmsg.Body = StrMail ' ''mailmsg.IsBodyHtml = True ' ''mailmsg.Priority = MailPriority.High ' ''Dim smtp As New SmtpClient("smtp.rediffmailpro.com") ' ''smtp.Credentials = New Net.NetworkCredential("contact.atcomaart@atco.in", "contact@55017_atco") ' ''smtp.Send(mailmsg) MailSender.SendEmail(txtUserID.Text.ToString, "Buyer Registration confirmation link from atcomaart.com....", StrMail, Web.Mail.MailFormat.Html, "") Catch ex As Exception showmessage(ex.Message.ToString, lblerror) End Try End Sub ' ''Private Sub CRMProcpect_check() ' '' Try ' '' Dim con As New SqlConnection(ConfigurationManager.AppSettings("ConnectionVoffice")) ' '' If con.State = ConnectionState.Open Then ' '' con.Close() ' '' End If ' '' con.Open() ' '' Dim sqlstr As String = "SELECT CRMProspects_Kid,CRMProspects_Code,CRMProspects_FName + ' ' + CRMProspects_LName AS name, CRMProspects_EmailId, CRMProspects_Company FROM V_CRM_Prospects where CRMProspects_EmailId='" & Trim(txtUserID.Text) & "' " ' '' Dim dataadpter As New SqlDataAdapter(sqlstr, con) ' '' Dim dt As New DataTable ' '' dataadpter.Fill(dt) ' '' Dim cmd As New SqlCommand ' '' If dt.Rows.Count > 0 Then ' '' cmd.CommandText = "UPDATE V_CRM_Prospects set CRMProspects_BuyerId ='" & TxtKid.Text.Trim & "' where CRMProspects_Kid='" & dt.Rows(0).Item("CRMProspects_Kid").ToString & "'" ' '' cmd.Connection = con ' '' cmd.ExecuteNonQuery() ' '' con.Close() ' '' cmd.Dispose() ' '' Else ' '' GenerateCRMCode() ' '' If con.State = ConnectionState.Open Then ' '' con.Close() ' '' End If ' '' con.Open() ' '' cmd.Connection = con ' '' cmd.CommandType = CommandType.StoredProcedure ' '' cmd.CommandText = "V_CRM_Prospects_Proc" ' '' Dim c() As Char = " " ' '' Dim name As String = txtName.Text.Trim ' '' Dim Lname As String ' '' Dim Fname As String ' '' If name.Contains(" ") Then ' '' Fname = Trim(name.Substring(0, name.IndexOf(" "))) ' '' Lname = Trim(name.Substring(name.IndexOf(" ") + 1)) ' '' Else ' '' Fname = name ' '' Lname = "" ' '' End If ' '' cmd.Parameters.Add("@CRMProspects_Kid", SqlDbType.NVarChar, 10).Value = txtcrmkid.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_Code", SqlDbType.NVarChar, 25).Value = txtcrmcode.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_BuyerId", SqlDbType.NVarChar, 10).Value = TxtKid.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_FName", SqlDbType.NVarChar, 100).Value = Fname ' '' cmd.Parameters.Add("@CRMProspects_LName", SqlDbType.NVarChar, 100).Value = Lname ' '' cmd.Parameters.Add("CRMProspects_EmailId", SqlDbType.NVarChar, 100).Value = txtUserID.Text.Trim ' '' cmd.Parameters.Add("CRMProspects_MobileCountryCode", SqlDbType.NVarChar, 5).Value = txtMobCountryCode.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_MobileNo", SqlDbType.NVarChar, 25).Value = txtMobNumber.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_Company", SqlDbType.NVarChar, 100).Value = txtCompanyName.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_PhoneCountryCode", SqlDbType.NVarChar, 10).Value = txtTelCountryCode.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_PhoneCityCode", SqlDbType.NVarChar, 25).Value = txtTelCityCode.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_PhoneNo", SqlDbType.NVarChar, 25).Value = txtTelNumber.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_PhoneExtNo", SqlDbType.NVarChar, 10).Value = txtTelExt.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_CityId", SqlDbType.NVarChar, 25).Value = ddlCity.SelectedItem.Value.Trim ' '' cmd.Parameters.Add("@CRMProspects_Address", SqlDbType.NVarChar, 500).Value = txtAddress.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_PinCode", SqlDbType.NVarChar, 6).Value = txtPinCode.Text.Trim ' '' cmd.Parameters.Add("@CRMProspects_DOB", SqlDbType.NVarChar, 25).Value = "" ' '' cmd.Parameters.Add("@CRMProspects_Date", SqlDbType.NVarChar, 20).Value = "" ' '' cmd.Parameters.Add("@Mode", SqlDbType.NVarChar, 25).Value = "Insert" ' '' cmd.ExecuteNonQuery() ' '' con.Close() ' '' cmd.Dispose() ' '' End If ' '' Catch ex As Exception ' '' End Try ' ''End Sub 'Private Sub getMobileCode() ' txtTelCountryCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'") ' txtMobCountryCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'") ' txtFaxCountryCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'") 'End Sub Public Sub clearfields() txtAddress.Text = "" txtCode.Text = "" txtCompanyName.Text = "" txtFaxCityCode.Text = "" txtFaxCountryCode.Text = "" txtFaxNumber.Text = "" TxtKid.Text = "" txtMobCountryCode.Text = "" txtMobNumber.Text = "" txtName.Text = "" txtPinCode.Text = "" txtTelCityCode.Text = "" txtTelCountryCode.Text = "" txtTelExt.Text = "" txtTelNumber.Text = "" txtUserID.Text = "" txtWebSite.Text = "" 'txtPinCode.Text = "" 'ddlCity.ClearSelection() 'ddlState.Items.Clear() 'ddlCountry.Items.Clear() 'ddlState.Enabled = False 'ddlCountry.Enabled = False End Sub Protected Sub GenerateRegisterCode() Try Dim i As String Dim qry As String Dim code As String TxtKid.Text = NewPrimaryKey(Me) i = "1" i = Format(Val(i), "000") While True code = "BR" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from BuyerRegister where BuyerRegister_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else txtCode.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 GenerateCRMCode() 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 = "CRM" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from BuyerRegister where BuyerRegister_Code='" & code & "'" If IsAlreadyPresentVO(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else txtcrmcode.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 ' 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) ' ddlState.Enabled = True ' ddlCity.Enabled = False ' End If 'End Sub 'Protected Sub ddlState_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlState.SelectedIndexChanged ' 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 ' ddlCity.Visible = True ' Label9.Visible = True ' 'TR1.Visible = True ' End If 'End Sub 'Protected Sub ddlCity_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCity.SelectedIndexChanged ' If ddlCity.SelectedItem.Text.Trim = "Others" Then ' btnAddCity.Visible = True ' txtAddCity.Visible = True ' ddlCity.Visible = False ' Label14.Visible = True ' Label9.Visible = False ' 'TR1.Visible = False ' 'TR2.Visible = True ' Exit Sub ' End If 'End Sub 'Protected Sub btnAddCity_Click(ByVal sender As Object, ByVal e As System.EventArgs) ' If txtAddCity.Text <> Nothing Then ' 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 = "" ' 'TR1.Visible = True ' btnAddCity.Visible = False ' txtAddCity.Visible = False ' Label14.Visible = False ' ddlCity.Visible = True ' 'TR2.Visible = False ' Else ' 'TR1.Visible = False ' Label13.Visible = True ' btnAddCity.Visible = True ' txtAddCity.Visible = True ' Label14.Visible = True ' 'TR2.Visible = True ' Label16.Text = "Please Enter City Name." ' End If 'End Sub Protected Sub chkAvailability_Click(ByVal sender As Object, ByVal e As System.EventArgs) Try Dim EMailid As String EMailid = ReturnValue("Select BuyerRegister_EmailId from buyerregister where BuyerRegister_EmailId='" & Trim(txtUserID.Text) & "'") If Trim(txtUserID.Text) = EMailid Then 'txtUserID.Text = "" txtUserID.Focus() Label17.Visible = True Label17.Text = " This E-Mail Id already registred please choose another E-Mail Id." Else Label17.Visible = True Label17.Text = " Congrates! This E-Mail Id available for register." End If Catch ex As Exception showmessage(ex.Message.ToString, lblerror) End Try End Sub Protected Sub rblsupplier_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) If rblsupplier.SelectedIndex = 0 Then lblsuserid.Visible = True txtsuserid.Visible = True Else lblsuserid.Visible = False txtsuserid.Visible = False End If End Sub End Class