<Script Runat="Server"> Sub Button_Click( s As Object, e As EventArgs ) entries.innerHtml = "<hr>" & username.Value & "<p>" & comments.Value & entries.innerHTML End Sub </Script> <html> <head><title>Guestbook.aspx</title></head> <body> <form Runat="Server"> <b>Username:</b> <br><input id="username" type="text" size="30" Runat="Server"> <p> <b>Comments:</b> <br><textarea id="comments" cols=60 rows=10 Runat="Server"></textarea> <p> <input type="submit" value="Add Comment" OnServerClick="Button_Click" Runat="Server"> <span id="entries" Runat="Server" /> </form> </body> </html>