Thanks in advance for for any clues: I have a website I'm building
using MS-Visual Web Developer Express (Asp.Net/VB.net). I'm tooling
it
to collect names and emails to send out our newsletter. I have
successfully setup an XML file with some sample names and emails. I
populated this through a well functioning .aspx page that writes to
the XML file and I have set up another .aspx page from which I can
view the collected persons. what I need is a way to send our
newsletter (which for the time being will be just some text in the
email body (but I'd like to do more). So I need to parse through the
XML list and send an email to each recipient. Any clues?
Here's my code for users entering their names and email addresses:
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
If Not IsPostBack Then
Using ds As New DataSet()
ds.ReadXml(Serv er.MapPath("ema ilList.xml"))
txtNewEvent.Dat aBind()
txtDate.DataBin d()
End Using
End If
End Sub
Private Sub btnSubmit_Click (ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles btnSubmit.Click
Using ds As New DataSet()
ds.ReadXml(Serv er.MapPath("ema ilList.xml"))
Dim dr As DataRow = ds.Tables(0).Ne wRow()
dr("emailAddres s") = txtNewEvent.Tex t
dr("name") = txtDate.Text
ds.Tables(0).Ro ws.Add(dr)
ds.WriteXml(Ser ver.MapPath("em ailList.xml"))
End Using
End Sub
</script>
Here's my code for viewing the list of emails:
<script runat="server">
Private Function MakeDataView() as DataView
Dim myDataSet As New DataSet()
myDataSet.ReadX ml(Server.MapPa th("emailList.x ml"))
Dim view As DataView = New DataView(myData Set.Tables(0))
view.AllowDelet e = False
view.AllowEdit = False
view.AllowNew = False
view.Sort = "Name ASC"
Return view
End Function
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim view as DataView = MakeDataView()
dgEmail.DataSou rce = view
dgEmail.AllowSo rting = True
dgEmail.DataBin d()
End Sub
</script>
Thanks!!!
using MS-Visual Web Developer Express (Asp.Net/VB.net). I'm tooling
it
to collect names and emails to send out our newsletter. I have
successfully setup an XML file with some sample names and emails. I
populated this through a well functioning .aspx page that writes to
the XML file and I have set up another .aspx page from which I can
view the collected persons. what I need is a way to send our
newsletter (which for the time being will be just some text in the
email body (but I'd like to do more). So I need to parse through the
XML list and send an email to each recipient. Any clues?
Here's my code for users entering their names and email addresses:
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
If Not IsPostBack Then
Using ds As New DataSet()
ds.ReadXml(Serv er.MapPath("ema ilList.xml"))
txtNewEvent.Dat aBind()
txtDate.DataBin d()
End Using
End If
End Sub
Private Sub btnSubmit_Click (ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles btnSubmit.Click
Using ds As New DataSet()
ds.ReadXml(Serv er.MapPath("ema ilList.xml"))
Dim dr As DataRow = ds.Tables(0).Ne wRow()
dr("emailAddres s") = txtNewEvent.Tex t
dr("name") = txtDate.Text
ds.Tables(0).Ro ws.Add(dr)
ds.WriteXml(Ser ver.MapPath("em ailList.xml"))
End Using
End Sub
</script>
Here's my code for viewing the list of emails:
<script runat="server">
Private Function MakeDataView() as DataView
Dim myDataSet As New DataSet()
myDataSet.ReadX ml(Server.MapPa th("emailList.x ml"))
Dim view As DataView = New DataView(myData Set.Tables(0))
view.AllowDelet e = False
view.AllowEdit = False
view.AllowNew = False
view.Sort = "Name ASC"
Return view
End Function
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim view as DataView = MakeDataView()
dgEmail.DataSou rce = view
dgEmail.AllowSo rting = True
dgEmail.DataBin d()
End Sub
</script>
Thanks!!!
Comment