I am trying to create a small post forum that via a database, the asp code displays a topic, author, and date submitted. on clicking the post, the messages of the user appears.
I tried to write a javascript function to perform the show/hide feature. I can make it work with only text
Expand|Select|Wrap|Line Numbers
- <p class="posthidden" id="showhide">msg: some text</p>
Expand|Select|Wrap|Line Numbers
- <p class="posthidden" id="showhide">msg: <% 'response.write(rs("comments")) %></p>
Below is my code:
Expand|Select|Wrap|Line Numbers
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml">
- <head>
- <title>Update Entry Select</title>
- <meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
- <script type="text/javascript">
- function expandcollapse (postid) {
- whichpost = document.getElementById(postid);
- if (whichpost.className=="postshown") { whichpost.className="posthidden"; }
- else { whichpost.className="postshown"; }
- }
- </script>
- <style type="text/css">
- .posthidden {display:none}
- .postshown {display:inline}
- </style>
- </head>
- <body dir="rtl">
- <%
- 'Dimension variables
- Dim adoCon 'Holds the Database Connection Object
- Dim rs 'Holds the recordset for the records in the database
- Dim strSQL 'Holds the SQL query for the database
- 'Create an ADO connection odject
- Set adoCon = Server.CreateObject("ADODB.Connection")
- 'Set an active connection to the Connection object using a DSN-less connection
- adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
- 'Set an active connection to the Connection object using DSN connection
- 'adoCon.Open "DSN=forum"
- 'Create an ADO recordset object
- Set rs = Server.CreateObject("ADODB.Recordset")
- 'Initialise the strSQL variable with an SQL statement to query the database
- strSQL = "SELECT * FROM FORUM_MESSAGES;"
- 'Open the recordset with the SQL query
- rs.Open strSQL, adoCon
- %>
- <table>
- <tr>
- <td>
- <p style="width: 330px">Topic</p>
- </td>
- <td>
- <p style="width: 274px">Author</p>
- </td>
- <td style="width: 271px">
- <p>Date</p>
- </td>
- </tr>
- <%
- 'Loop through the recordset
- Do While not rs.EOF
- %>
- <tr>
- <td>
- <a href="javascript:expandcollapse('showhide')"><% response.write(rs("Topic")) %></a>
- <p class="posthidden" id="showhide">msg: <% 'response.write(rs("comments")) %></p>
- </td>
- <td>
- <% response.write(rs("AuthorName")) %>
- </td>
- <td style="width: 271px">
- <% response.write(rs("LastThreadPost")) %>
- </td>
- </tr>
- <%
- 'Move to the next record in the recordset
- rs.MoveNext
- Loop
- %>
- </table>
- </body>
- </html>