Home

Whats New | Articles | Links | Code Snippets | Code Downloads | Toolbox | Books

Visual Basic Message Boards

<% Set RS = Conn.Execute("SELECT * FROM PostingQuery Where PostingID=" & Request.QueryString("topic")) %>

&board=<%= Request.QueryString("board")%>">Reply to Post

<% Do While Not RS.EOF %> <% RS.MoveNext Loop RS.Close Set RS = Conn.Execute("SELECT * FROM Replies Where PostingID=" & Request.QueryString("topic")) %>
AuthorOrginal Message
<% = RS(5) %> Subject: <%=RS(1) %>
<%= RS(2) %>

<% Do While Not RS.EOF %> <% RS.MoveNext Loop RS.Close %> <% Conn.Close %>
"><% = RS("UserName") %> Subject: <%=RS("Subject") %>
<%= RS("MessageBody") %>