Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Net.Mail Partial Class buyerpostenquiry Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then trBrand.Style.Add("display", "none") trCategory.Style.Add("display", "none") rblSpecific.Attributes.Add("onclick", "return CheckBrandCategory('r');") btnSubmit.Attributes.Add("onclick", "return CheckBrandCategory('b');") fillDDL() 'trBrand.Style.Add("height", "500px") 'trCategory.Style.Add("height", "500px") 'DropDownList1.Style.Add("height", "0px") 'DropDownList2.Style.Add("height", "0px") 'trBrand.Visible = False 'trCategory.Visible = False ' ''txtCompanyName.Focus() ' ''Fill_Combo("SELECT distinct Unit_Kid, Unit_Name, Unit_Flag FROM Unit_Master WHERE Unit_Flag = N'Qty' and unit_IsDeleted='0' order by unit_name", ddlQtyType) '' '' Image1.Attributes.Add("onmouseOver", "javascript:over(this)") ' ''txtCountryCode.Attributes.Add("onkeypress", "return CheckNumericOnly(event);") ' ''txtCityCode.Attributes.Add("onkeypress", "return CheckNumericOnly(event);") ' ''txtPhoneNo.Attributes.Add("onkeypress", "return CheckNumericOnly(event);") ' ''txtCountryCodeM.Attributes.Add("onkeypress", "return CheckNumericOnly(event);") ' ''txtMobileNo.Attributes.Add("onkeypress", "return CheckNumericOnly(event);") ' ''txtQtyRequired.Attributes.Add("onkeypress", "return decimalonly(event,this);") '' ''txtCityCode.Attributes.Add("onkeydown", "return testmobile(document.getElementById('txtCountryCode'));") '' ''txtMobileNo.Attributes.Add("onkeydown", "return testmobile(document.getElementById('txtCountryCodeM'));") '' ''txtPhoneNo.Attributes.Add("onkeydown", "return testphone(document.getElementById('txtCountryCode'),document.getElementById('txtCityCode'));") ' ''txtCountryCode.Text = "91" ' ''txtCountryCodeM.Text = "91" ' ''tbl1.Visible = False End If End Sub Public Sub fillDDL() Fill_ComboWithSelect("Select Brand_KId, lower(Brand_Name) as Brand_Name from Brand_Master where Brand_Isdeleted='0' order by Brand_Name", ddlBrand, "Select Brand") Fill_ComboWithSelect("Select Category_KId, Category_Name from Category_Master where Category_ParentId='Root Category' and Category_Isdeleted='0' order by Category_Name", ddlCategory, "Select Category") Fill_ComboWithSelect("SELECT distinct Unit_Kid, Unit_Name, Unit_Flag FROM Unit_Master WHERE Unit_Flag = N'Qty' and unit_IsDeleted='0' order by unit_name", ddlQuantityUnit, "Select Unit") 'ddlBrand.DataTextFormatString= End Sub Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Try 'If CheckValid() = True Then ' lblError.Visible = False ' ''If txtQtyRequired.Text <> "" Then ' '' If ddlQtyType.SelectedIndex = 0 Then ' '' showmessage("Please Select Unit.", lblMsg) ' '' ScriptManager1.SetFocus(ddlQtyType) ' '' Exit Sub ' '' End If ' ''End If ' ''If txtRequiredDate.Text <> "" Then ' '' Try ' '' Dim dt As DateTime ' '' dt = Format$(Convert.ToDateTime(txtRequiredDate.Text.ToString), "") ' '' If dt <= DateTime.Now Then ' '' showmessage("Please Select Proper Future Date.", lblMsg) ' '' ScriptManager1.SetFocus(txtRequiredDate.Text) ' '' Exit Sub ' '' End If ' '' Catch ex As Exception ' '' showmessage("Please Enter Correct Date.", lblMsg) ' '' ScriptManager1.SetFocus(txtRequiredDate.Text) ' '' Exit Sub ' '' End Try ' ''End If ' ''If txtPhoneNo.Text = "" And txtMobileNo.Text = "" And txtEmailID.Text = "" Then ' '' showmessage("Plese Give Atleast One Contact Details. Like Phone No, Mobile No Or EmailID", lblMsg) ' '' Exit Sub ' ''End If ' ''If chkcall.Checked = True Then ' '' If txtPhoneNo.Text = "" And txtMobileNo.Text = "" Then ' '' showmessage("Plese Give Atleast One Contact No. For Contact.", lblMsg) ' '' Exit Sub ' '' End If ' ''End If ' ''Dim con As New SqlConnection ' ''con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") ' ''Dim cmd As New SqlCommand ' ''cmd.CommandType = CommandType.StoredProcedure ' ''cmd.CommandText = "Product_NotFound_Inquiry_Proc" ' storeprocedure ' ''cmd.Connection = con ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_Kid", SqlDbType.NVarChar, 10)).Value = NewPrimaryKey(Me) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_Code", SqlDbType.NVarChar, 25)).Value = GenerateCode() ' ''If Not Session("catid") = Nothing Then ' '' cmd.Parameters.Add(New SqlParameter("@PNFI_CategoryID", SqlDbType.NVarChar, 10)).Value = Session("catid") ' ''Else ' '' cmd.Parameters.Add(New SqlParameter("@PNFI_BrandID", SqlDbType.NVarChar, 10)).Value = Session("brandid").ToString.Replace("'", "") ' ''End If ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_CompanyName", SqlDbType.NVarChar, 200)).Value = txtCompanyName.Text ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_ContactPersonName", SqlDbType.NVarChar, 200)).Value = Trim(txtContactPersonName.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_PhoneCountryCode", SqlDbType.NVarChar, 10)).Value = Trim(txtCountryCode.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_PhoneCityCode", SqlDbType.NVarChar, 10)).Value = Trim(txtCityCode.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_PhoneNo", SqlDbType.NVarChar, 20)).Value = Trim(txtPhoneNo.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_MobileCountryCode", SqlDbType.NVarChar, 10)).Value = Trim(txtCountryCodeM.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_MobileNo", SqlDbType.NVarChar, 20)).Value = Trim(txtMobileNo.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_EmailId", SqlDbType.NVarChar, 50)).Value = Trim(txtEmailID.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_ProductName", SqlDbType.NVarChar, 200)).Value = Trim(txtProductName.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_QtyRequired", SqlDbType.NVarChar, 10)).Value = Trim(txtQtyRequired.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_QtyRequiredUnit", SqlDbType.NVarChar, 10)).Value = Trim(ddlQtyType.SelectedItem.Value.ToString) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_RequiredByDate", SqlDbType.NVarChar, 50)).Value = Trim(txtRequiredDate.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_RequiredPlace", SqlDbType.NVarChar, 200)).Value = Trim(txtRequiredPlace.Text) ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_SpecificRequirement", SqlDbType.NVarChar, 200)).Value = Trim(txtSpecificRequirement.Text) ' ''If chkcall.Checked = True Then ' '' cmd.Parameters.Add(New SqlParameter("@PNFI_FlagCall", SqlDbType.NVarChar, 1)).Value = "Y" ' ''Else ' '' cmd.Parameters.Add(New SqlParameter("@PNFI_FlagCall", SqlDbType.NVarChar, 1)).Value = "N" ' ''End If ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_Status", SqlDbType.NVarChar, 50)).Value = "Pending" ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_FinancialYearId", SqlDbType.NVarChar, 10)).Value = "" ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_CompanyId", SqlDbType.NVarChar, 10)).Value = "" ' ''cmd.Parameters.Add(New SqlParameter("@PNFI_UserId", SqlDbType.NVarChar, 10)).Value = "" ' ''cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "Product Not Found Inquiry" ' ''cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 10)).Value = "Insert" ' mode ' ''If con.State = ConnectionState.Open Then ' check connection state ' '' con.Close() ' ''End If ' ''con.Open() ' ''cmd.ExecuteNonQuery() ' ''con.Close() ' close connection ' ''con.Dispose() '' '' ''sendmail() '' '' ''customeremail() '' ''tbl.Visible = False '' ''tbl1.Visible = True Catch ex As Exception '''showmessage(ex.Message, lblMsg) 'Display the Error Message End Try End Sub ' ''Public Sub sendmail() ' '' Try ' '' 'Dim msg As New MailMessage ' '' 'If txtEmailID.Text = "" Then ' '' ' msg.From = "contact@atcomaart.com" ' '' 'Else ' '' ' msg.From = "contact@atcomaart.com " ' '' 'End If ' '' 'msg.To = "jjjitiya@gmail.com" ' '' Dim lt As New Label ' '' lt.Text = "

Inquiry From " & txtEmailID.Text & "


" ' '' If Not Session("catid") = Nothing Then ' '' lt.Text = "Product Category : " ' '' Else ' '' lt.Text = "Product Brand : " ' '' End If ' '' 'lt.Text += lblCat.Text ' '' lt.Text += "
Product Name : " ' '' lt.Text += "" & txtProductName.Text & "" ' '' 'lt.Text += "
Product ModelNo. : " ' '' 'lt.Text += "" & lblModelNo.Text & "" ' '' lt.Text += "
Company Name : " ' '' lt.Text += "" & txtCompanyName.Text & "" ' '' lt.Text += "
Company Contact Person Name : " ' '' lt.Text += "" & txtContactPersonName.Text & "" ' '' If txtCityCode.Text = "" And txtPhoneNo.Text = "" Then ' '' Else ' '' lt.Text += "
Phone No : " ' '' lt.Text += "" & txtCountryCode.Text & "-" & txtCityCode.Text & "-" & txtPhoneNo.Text & "" ' '' End If ' '' If txtMobileNo.Text <> "" Then ' '' lt.Text += "
Mobile No : " ' '' lt.Text += "" & txtCountryCodeM.Text & "-" & txtMobileNo.Text & "" ' '' End If ' '' If txtEmailID.Text = "" Then ' '' lt.Text += "
Email ID : " ' '' lt.Text += "" & txtEmailID.Text & "" ' '' End If ' '' If txtQtyRequired.Text <> "" Then ' '' lt.Text += "
Quantity Required : " ' '' lt.Text += "" & txtQtyRequired.Text & " " & ddlQtyType.SelectedItem.Text & "" ' '' End If ' '' If txtRequiredDate.Text <> "" Then ' '' lt.Text += "
Required By Date : " ' '' lt.Text += "" & txtRequiredDate.Text & "" ' '' End If ' '' If txtRequiredPlace.Text <> "" Then ' '' lt.Text += "
Place At Which Required : " ' '' lt.Text += "" & txtRequiredPlace.Text & "" ' '' End If ' '' If txtSpecificRequirement.Text <> "" Then ' '' lt.Text += "
Specific Requirement : " ' '' lt.Text += "" & txtSpecificRequirement.Text & "" ' '' End If ' '' If chkcall.Checked = True Then ' '' lt.Text += "
Call Me : " ' '' lt.Text += " Please Call Me. " ' '' Else ' '' lt.Text += "
Call Me : " ' '' lt.Text += " NO " ' '' End If ' '' 'msg.BodyFormat = MailFormat.Html ' '' 'msg.Body = lt.Text ' '' 'msg.Subject = "Product Not Found Inquiry." ' '' 'SmtpMail.SmtpServer = "" ' '' '' Dim i As System.Web.Mail ' '' 'SmtpMail.Send(msg) ' '' 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("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 = "Product Not Found Inquiry." ' '' MyMailMessage.Body = lt.Text ' '' MyMailMessage.IsBodyHtml = True ' '' MyMailMessage.Priority = MailPriority.High ' '' Dim smtpclient As New SmtpClient("smtp.rediffmailpro.com") ' '' smtpclient.Credentials = New Net.NetworkCredential("contact@atcomaart.com", "traamocta") ' '' smtpclient.Send(MyMailMessage) ' '' tbl.Visible = False ' '' tbl1.Visible = True ' '' Catch ex As Exception ' '' showmessage(ex.Message, lblMsg) ' '' End Try ' ''End Sub ' ''Public Sub customeremail() ' '' Try ' '' Dim StrMail As String = "" ' '' 'Dim objmessage As New MailMessage() ' '' StrMail = "" ' '' StrMail = StrMail & "" & "" & "" ' '' StrMail = StrMail & "Contact Us" & "

" ' '' StrMail = StrMail & "" ' '' StrMail = StrMail & "" & "
" & "Dear Client!!" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "
THANK YOU!" ' '' StrMail = StrMail & "
We highly appreciate your time and efforts to visit our website and enquire with us on your product and supplies needs. We understand that you are looking forward to finding out the products, brands and services of best quality, price and service under one roof. " ' '' StrMail = StrMail & "


ATCOMAART! Brings you tremendous value and wealth addition to your business by being your representative as PURCHASE/MATERIALS Department by which your purchase cycle is shortened, lag time is reduced, inventories are controlled, products at your doorstep, and administrative costs are reduced significantly. Our alternative channels of marketing gives you perfect range of products with complete details, comparisons, and choice." ' '' StrMail = StrMail & "


Currently you can register with us BUYER and complete the details of your company and requirements on our website. We are coming soon with our industrial retail warehouse all over the country to give a wider range of choice of products and be much closer to you. " ' '' StrMail = StrMail & "


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


Looking forward to long term relationship with you!.

" ' '' 'StrMail = StrMail & "" & "        " & "New Supplier Registration on Atcomaart Web Site:-" & "" ' '' StrMail = StrMail & "" & "        " & "Details of the Your Inquiry are as follows:" & "" ' '' StrMail = StrMail & "
" & "
" ' '' StrMail = StrMail & "        " & "Product Name " & "   " & ":" & "     " & txtProductName.Text & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Company Name " & "   " & ":" & "     " & txtCompanyName.Text.Trim & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Telephone No.-" & "   " & ":" & "     " & txtCountryCode.Text & "-" & txtCityCode.Text & "-" & txtPhoneNo.Text & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Mobile No.-" & "                  " & ":" & "     " & txtCountryCodeM.Text & "-" & txtMobileNo.Text & "" ' '' StrMail = StrMail & "
" ' '' If chkcall.Checked = True Then ' '' StrMail = StrMail & "        Call Me : " ' '' StrMail = StrMail & " Please Call Me. " ' '' Else ' '' StrMail = StrMail & "        Call Me : " ' '' StrMail = StrMail & " NO " ' '' End If ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Quantity Required " & "      " & ":" & "     " & txtQtyRequired.Text & " " & ddlQtyType.SelectedItem.Text & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Required By Date " & "                  " & ":" & "     " & txtRequiredDate.Text & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Place At Which Required " & "                  " & ":" & "     " & txtRequiredPlace.Text & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "EmailId-" & "                  " & ":" & "     " & txtEmailID.Text & "" ' '' StrMail = StrMail & "
" ' '' StrMail = StrMail & "        " & "Specific Requirement " & "                  " & ":" & "     " & txtSpecificRequirement.Text & "" ' '' StrMail = StrMail & "
" & "

" ' '' StrMail = StrMail & "
ATCOMAART Team" ' '' StrMail = StrMail & "
www.atcomaart.com" ' '' StrMail = StrMail & "
contact@atcomaart.com

" ' '' ' StrMail = StrMail & "
ceo@atcomaart.com

" ' '' StrMail = StrMail & "

" ' '' Dim MyMailMessage As New MailMessage() ' '' 'From requires an instance of the MailAddress type ' '' MyMailMessage.From = New MailAddress("contact@atcomaart.com", "Atcomaart Ltd.") ' '' 'To is a collection of MailAddress types ' '' MyMailMessage.To.Add(txtEmailID.Text) ' '' 'MyMailMessage.CC.Add(New MailAddress("pankajmishra2006@gmail.com", "CC Name")) ' '' MyMailMessage.Bcc.Add(New MailAddress("pankaj.mishra@edeskservices.com", "eDesk Services Ltd.")) ' '' MyMailMessage.Subject = "Inquiry for " & txtProductName.Text & " from www.atcomaart.com website ." ' '' 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", "traamocta") ' '' smtpclient.Send(MyMailMessage) ' '' Catch ex As Exception ' '' End Try ' ''End Sub ' ''Private Function GenerateCode() As String ' '' ' generate kid and code ' '' Try ' '' Dim i As String ' '' Dim qry As String ' '' Dim code As String ' '' 'txtBranchNetworkKid.Text = Trim(NewPrimaryKey(Me)) ' '' i = "1" ' '' i = Format(Val(i), "000") ' '' While True ' '' code = "PNFI" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i ' '' qry = "Select count(*) from Product_NotFound_Inquiry where PNFI_Code='" & code & "'" ' '' If IsAlreadyPresent(qry) Then ' '' i = (Val(i) + 1).ToString ' '' i = Format(Val(i), "000") ' '' Else ' '' Return code ' '' Exit Function ' '' End If ' '' End While ' '' Catch ex As Exception ' '' CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message ' '' End Try ' ''End Function 'Protected Sub rblSpecific_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rblSpecific.SelectedIndexChanged ' If rblSpecific.SelectedItem.Value = "B" Then ' trBrand.Visible = True ' trCategory.Visible = False ' Else ' trCategory.Visible = True ' trBrand.Visible = False ' End If 'End Sub Protected Sub btnSubmit_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click End Sub End Class