Ples tell me what to change where???
'Dimension variables
Dim adoDBConnection 'Holds the Database Connection Object
Dim strDBConnection 'Holds the Database driver and the path and name of the database
Dim rsForum 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
Dim strForumDatabasePath 'Holds the path to the forum database
Dim strForumPath 'Holds the path to the forum
'---------- Enter the correct paths to the forum and forum database below ---------------------
'Place the path to the forum in the string below
strForumPath = "/forum/"
'Place the path to the Forum database in the sting below
strForumDatabasePath = "/forum/admin/database/wwForum.mdb"
'This one is for Brinkser users only
'All you need to do is place your username in the part USERNAME and uncomment the line
'strForumDatabasePath = "/amitabh4u/db/forum.mdb"
'----------------------------------------------------------------------------------------------
'Create an ADO connection odject
Set adoDBConnection = Server.CreateObject("ADODB.Connection")
'Database driver and path to the forum database
strDBConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strForumDatabasePath)
'Set an active connection to the Connection object
adoDBConnection.Open strDBConnection
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
<tr>
<td bgcolor="#800000"><font size="2" face="Arial"><b>Today's Hot Topics</b></font></td>
</tr>
<tr>
<td bgcolor="#000000">
<%
'Intialise the ADO recordset object
Set rsLatestsPosts = Server.CreateObject("ADODB.Recordset")
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT Top 8 tblTopic.Forum_ID, tblTopic.Topic_ID, tblTopic.Subject, tblForum.Password "
strSQL = strSQL & "FROM tblTopic INNER JOIN tblForum ON tblForum.Forum_ID = tblTopic.Forum_ID "
strSQL = strSQL & "WHERE (((tblForum.Password) Is Null)) "
strSQL = strSQL & "ORDER BY tblTopic.Last_entry_date DESC;"
'Query the database
rsLatestsPosts.Open strSQL, strDBConnection
'If EOF then display an error message
If rsLatestsPosts.EOF Then Response.Write "There have been no Forum Posts"
'If there are pages to display then display them
Do while NOT rsLatestsPosts.EOF
%>
<a href="<% = strForumPath %>forum_posts.asp?TopicID=<% = rsLatestsPosts("Topic_ID") %>" target="_self"><% = rsLatestsPosts("Subject") %></a>
<br>
<%
'Move to the next record in the recordset
rsLatestsPosts.MoveNext
'Loop back round to display the next record
Loop
%>
</td>
</tr>
</table>
please 