User1806930132 posted
Hello All, I have tried changing the codes and stuff and noticed something wonder if it is going to help someone sort this out and explain me too please...
I had the code above below which doesn't show any error but also doesn't send any email. In the below code pageload event if I say
If Not Page.IsPostBack Then
BindGrid()
End If
and also remove where clause from sql command...it shows all the list on pageload and sends email on button click...but I don't want that I want user to choose the country and send email to the list...I cant do that with If Not Page.IsPostBack as
it need to show grid on postback...how do I achieve this?why is it working without where clause and not is post backand not sending email with where clause and ispost back??????????????
<div>
<asp:DropDownList ID="DropDownList1" runat="server" CssClass="auto-style2" autopostback="true" DataSourceID="SqlDataSource1" DataTextField="Country" DataValueField="Country">
</asp:DropDownList>
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:constr %>" SelectCommand="SELECT [Country] FROM [TMain]"></asp:SqlDataSource>
<asp:Button ID="Button2" runat="server" CssClass="auto-style4" Text="send email" onclick="Button2_Click"/>
<asp:GridView ID="GridView1" runat="server" CssClass="auto-style3" AutoGenerateColumns="False" DataKeyNames="Id">
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkSelect" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="CRESID">
<ItemTemplate>
<asp:TextBox ID="CRESID" runat="server" Text='<%# Eval("CRESID") %>' />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SiteName">
<ItemTemplate>
<asp:Textbox ID="SiteName" runat="server" Text='<%# Eval("SiteName") %>' />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Email">
<ItemTemplate>
<asp:HyperLink ID="lnkEmail" runat="server" Text='<%# Eval("MEmail") %>' />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Page.IsPostBack Then
BindGrid()
End If
End Sub
Private Sub BindGrid()
Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using con As New SqlConnection(constr)
Using cmd As New SqlCommand("SELECT Id,CRESID,SiteName,CTMEmail FROM TMain where Country='" & DropDownList1.SelectedValue & "'")
Using sda As New SqlDataAdapter()
cmd.Connection = con
sda.SelectCommand = cmd
Using dt As New DataTable()
sda.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
End Using
End Using
End Using
End Using
End Sub
Here if I remove where clause and say page is not post back...it sends email
Protected Sub Button2_Click(sender As Object, e As EventArgs)
Dim dtUsers As New DataTable()
dtUsers.Columns.AddRange(New DataColumn(2) {New DataColumn("CRESID"), New DataColumn("SiteName"), New DataColumn("MEmail")})
For Each row As GridViewRow In GridView1.Rows
If row.RowType = DataControlRowType.DataRow Then
Dim chkSelect As CheckBox = TryCast(row.Cells(0).FindControl("chkSelect"), CheckBox)
If chkSelect.Checked Then
Dim CRESID As String = TryCast(row.Cells(1).FindControl("CRESID"), TextBox).Text
Dim SiteName As String = TryCast(row.Cells(2).FindControl("SiteName"), TextBox).Text
Dim MEmail As String = TryCast(row.Cells(3).FindControl("lnkEmail"), HyperLink).Text
dtUsers.Rows.Add(CRESID, SiteName, MEmail)
End If
End If
Next
Dim subject As String = "Survey Email"
Dim body As String = "Hello {0}, <br/> < br /> "
body += "<br /><br />Please click the following link to activate your account"
body += "<br /><br />Thanks"
Parallel.ForEach(dtUsers.AsEnumerable(),
Function(row)
Return SendEmail(row("MEmail").ToString(), subject, String.Format(body, row("SiteName")))
End Function)
End Sub
