rendered paste body<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="default.aspx.vb" Inherits="_Default" title="PossiblyCool.com Home" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %>
<asp:Content ID="Content1" runat="server" ContentPlaceHolderID="ContentPlaceHolder1">
<asp:Image ID="picMain" runat="server" ImageAlign="Top" /><br />
<br />
<br />
<h4><asp:Label ID="lblTitle" runat="server" Font-Bold="True"></asp:Label></h4><br />
<asp:Label ID="lblDesc" runat="server" Text="Label"></asp:Label><br />
<asp:Label ID="lblDate" runat="server" Text="Label"></asp:Label><br />
</asp:Content>
<asp:Content ID="Content2" runat="server"
ContentPlaceHolderID="ContentPlaceHolder2">
<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl="~/post.aspx">Comment</asp:HyperLink>
//
<a href="javascript:function Z(){Z=''}Z()" id="lnkQuickPost">Quick Post</a><br />
Misc info / Top Comments<br />
<asp:ScriptManager id="ScriptManager1" runat="server">
</asp:ScriptManager>
<asp:Panel ID="pnlPopUp" runat="server" Height="66px" Width="200px" BorderColor="#E0E0E0">
<table border="0" cellpadding="0" cellspacing="0" style="width: 200px; height: 100%">
<tr>
<td colspan="2">
<asp:TextBox ID="TextBox1" runat="server" Height="66px" Width="190px" BorderStyle="Solid" BorderWidth="1px" TextMode="MultiLine"></asp:TextBox></td>
</tr>
<tr>
<td style="vertical-align: top; width: 85px">
<asp:Button ID="btnSubmit" runat="server" Text="Submit" Width="75px" UseSubmitBehavior="False" /></td>
<td style="width: 115px">
<asp:UpdateProgress id="UpdateProgress1" runat="server"
DisplayAfter="0">
<progresstemplate>
<IMG style="BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none" src="Images/indicator.gif" />Updating...
</progresstemplate>
</asp:UpdateProgress></td>
</tr>
</table>
</asp:Panel>
<br />
<cc1:CollapsiblePanelExtender ID="CollapsiblePanelExtender1" runat="server" TargetControlID="pnlPopUp" CollapseControlID="lnkQuickPost" ExpandControlID="lnkQuickPost" Collapsed="true" ExpandedSize="105">
</cc1:CollapsiblePanelExtender>
<asp:UpdatePanel id="UpdatePanel1" runat="server">
<contenttemplate>
<DIV style="Z-INDEX: 101; LEFT: 100px; OVERFLOW: hidden; WIDTH: 15em; POSITION: static; TOP: 100px; HEIGHT: 100%"><asp:Label id="lblError" runat="server" CssClass="errortext" __designer:wfdid="w20"></asp:Label>
<asp:Repeater id="Repeater1" runat="server" DataSourceID="SqlDataSource1" __designer:wfdid="w21" onItemCommand="Button_ItemCommand">
<ItemTemplate>
<div style="width:15em">
<%#DataBinder.Eval(Container.DataItem, "Text")%><br />
<h5>Posted <%#howLongAgo(DataBinder.Eval(Container.DataItem, "Date"))%> <br />
By <a href="#<%#DataBinder.Eval(Container.Dataitem, "Username") %>"><%#DataBinder.Eval(Container.DataItem, "Username") %></a></h5>
<asp:Button UseSubmitBehavior="False" runat="server" text="Button" CommandName="ID"></asp:Button>
</div>
</ItemTemplate>
<SeparatorTemplate>
<div class="divider2"></div>
</SeparatorTemplate>
</asp:Repeater> </DIV>
</contenttemplate>
<triggers>
<asp:AsyncPostBackTrigger ControlID="btnSubmit" EventName="Click"></asp:AsyncPostBackTrigger>
<asp:AsyncPostBackTrigger ControlID="LinkButton1" EventName="Click"></asp:AsyncPostBackTrigger>
</triggers>
</asp:UpdatePanel>
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:PossiblyCool %>"
DeleteCommand="DELETE FROM [Comment] WHERE [Date] = @Date" InsertCommand="INSERT INTO [Comment] ([Username], [Date], [Text]) VALUES (@Username, @Date, @Text)"
SelectCommand="SELECT * FROM [Comment] ORDER BY [Date] DESC" UpdateCommand="UPDATE [Comment] SET [Username] = @Username, [Text] = @Text WHERE [Date] = @Date">
</asp:SqlDataSource>
<asp:UpdatePanel id="UpdatePanel2" runat="server" UpdateMode="Conditional">
<triggers>
<asp:AsyncPostBackTrigger ControlID="Repeater1" EventName="ItemCommand"></asp:AsyncPostBackTrigger>
</triggers>
</asp:UpdatePanel>
<br />
<asp:LinkButton ID="LinkButton1" runat="server">LinkButton</asp:LinkButton>
<asp:Button ID="Button1" runat="server" Text="Button" UseSubmitBehavior="False" />
</asp:Content>
Sub Button_ItemCommand(ByVal Sender As Object, ByVal e As RepeaterCommandEventArgs)
If e.CommandName = "ID" Then
MsgBox(CType(e.CommandSource, Button).Text)
End If
End Sub