Thanks for any help folks:
I have two .aspx pages that are workling well: one is for entering
entries in a blog and another for viewing those entries. What I want
to do is combine the two into one so I have a textbox and submit
button at the top and the blog entries below. Any ideas?
Here is my entry page:
<%@ import Namespace="Syst em.Data" %>
<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("blo g.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("blo g.xml"))
Dim dr As DataRow = ds.Tables(0).Ne wRow()
dr("entry") = txtNewEvent.Tex t
dr("name") = txtDate.Text
ds.Tables(0).Ro ws.Add(dr)
ds.WriteXml(Ser ver.MapPath("bl og.xml"))
Response.Redire ct("http://site.com/Default.aspx")
End Using
End Sub
Protected Sub Button1_Click(B yVal sender As Object, ByVal e As
System.EventArg s)
Response.Redire ct("http://site.com/Default.aspx")
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Blog Entry</title>
<style type="text/css">
#Form1
{
height: 508px;
width: 727px;
}
</style>
</head>
<body background="vig nette.gif" runat="server">
<a href="javascrip t:my_win()"></a<form id="Form1" method="post"
runat="server">
<b>
<a href="/demos/books.xml"></a>
<asp:Label ID="Label2" runat="server" BackColor="#00C 0C0" Font-
Bold="True" Font-Size="Large"
Text="Enter your comments into our blog:" Width="375px"
BorderStyle="Ou tset"></asp:Label>
<asp:TextBox ID="txtNewEvent " runat="server" Width="451px"
Height="212px"
style="padding-right: 5%; padding-left: 5%; padding-bottom:
5%; margin: 5%; padding-top: 5%"
TextMode="Multi Line"></asp:TextBox>
<asp:Button ID="btnSubmit" runat="server" Text="Submit"
OnClick="btnSub mit_Click" /></b><br />
<asp:Label ID="Label1" runat="server" BackColor="#00C 0C0"
Font-Bold="True" Text="Your Name" BorderStyle="Ou tset"></asp:Label>
<asp:TextBox ID="txtDate" runat="server" Width="266px"></
asp:TextBox>
<p>
<b>
<asp:Button ID="Button1" runat="server" BackColor="Aqua "
Style="z-index: 107; left: 750px;
position: absolute; top: 488px; font-weight: 700; width:
168px;"
Text="Home" onclick="Button 1_Click" />
</b></p>
<p>
</p>
</form>
</body>
</html>
Here is my viewing page:
<%@ import Namespace="Syst em.Data" %>
<script runat="server">
Private Function MakeDataView() as DataView
Dim myDataSet As New DataSet()
myDataSet.ReadX ml(Server.MapPa th("blog.xml") )
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()
dgBooksPretty.D ataSource = view
dgBooksPretty.A llowSorting = True
dgBooksPretty.D ataBind()
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Our Blog</title>
</head>
<body borderwidth="20 px" background="vig nette.gif">
<div align="left"
style="border-style: inset; border-color: white;
overflow: auto; font-size: medium; width: 84%;
font-family: 'Times New Roman'; height: 599px;
color: black; left: 79px; position: absolute;
top: 11%; background-color: #ccffff; padding-right:
10px; float: none; margin-left: 20px;
clip: rect(auto auto auto auto); text-indent: 5%;
text-align: left; padding-left: 10px;">
<div style="text-indent: 20px">
<asp:datagrid id="dgBooks"
runat="server"
Visible="False"
Height="1px"
Width="1px" />
<asp:datagrid id="dgBooksPret ty"
runat="server"
AutoGenerateCol umns="False"
Font-Name="Verdana"
Font-Size="Small"
HorizontalAlign ="Center"
ItemStyle-BackColor="#C0F FC0"
AlternatingItem Style-BackColor="Whit e"
Width="911px"
Height="128px"
AllowSorting="T rue"
BorderColor="Pe achPuff"
BorderStyle="Ou tset"
BorderWidth="10 px" CellSpacing="2" >
<HeaderStyle BackColor="Dark Green"
HorizontalAlign ="Center"
ForeColor="Whit e"
Font-Bold="True" />
<Columns>
<asp:BoundColum n HeaderText="Blo g Entry" DataField="entr y" />
<asp:BoundColum n HeaderText="Nam e" DataField="name " />
</Columns>
<AlternatingIte mStyle BackColor="Whit e" />
<ItemStyle BackColor="#C0F FC0" />
</asp:datagrid>
<p align="center">
</p>
</body>
</html>
