Here goes, it's the whole inc_msgdetail.asp code. I hope it's not too large for the forum:
<%
Response.Buffer = "true"
%>
<!--#include file="../includes/inc_config.asp" -->
<!--#include file="../../../Connections/cnpublic.asp" -->
<%
if(Request.QueryString("t"

<> ""

then cmdForum__varForName = Request.QueryString("t"
%>
<%
set cmdForum = Server.CreateObject("ADODB.Command"

cmdForum.ActiveConnection = MM_cnpublic_STRING
cmdForum.CommandText = "UPDATE FORUMS SET FOR_READ_COUNT = FOR_READ_COUNT +1 WHERE FOR_NAME = '" + Replace(cmdForum__varForName, "'", "''"

+ "' "
cmdForum.CommandType = 1
cmdForum.CommandTimeout = 0
cmdForum.Prepared = true
cmdForum.Execute()
%>
<%
set cmdMsg = Server.CreateObject("ADODB.Command"

cmdMsg.ActiveConnection = MM_cnpublic_STRING
cmdMsg.CommandText = "UPDATE MESSAGES SET MSG_READ_COUNT = MSG_READ_COUNT + 1 WHERE MSG_ID = varID "
cmdMsg.CommandType = 1
cmdMsg.CommandTimeout = 0
cmdMsg.Prepared = true
cmdMsg.Execute()
%>
<%
Dim rsMsgDetail__varID
rsMsgDetail__varID = "99999999999999"
if (Request.QueryString("i"

<> ""

then rsMsgDetail__varID = Request.QueryString("i"

%>
<%
set rsMsgDetail = Server.CreateObject("ADODB.Recordset"

rsMsgDetail.ActiveConnection = MM_cnpublic_STRING
rsMsgDetail.Source = "SELECT *, (SELECT COUNT(*) FROM MESSAGES WHERE MSG_AUTHOR = U_ID) AS TOPIC_COUNT, (SELECT COUNT(*) FROM REPLIES WHERE REP_AUTHOR = MSG_AUTHOR)AS REPLY_COUNT FROM MESSAGES INNER JOIN FORUMS ON FORUMS.FOR_ID = MESSAGES.FOR_ID, USERS, PROFILES WHERE U_NAME = U_ID AND U_ID = MSG_AUTHOR AND MSG_ID = " + Replace(rsMsgDetail__varID, "'", "''"

+ ""
rsMsgDetail.CursorType = 0
rsMsgDetail.CursorLocation = 2
rsMsgDetail.LockType = 3
rsMsgDetail.Open()
rsMsgDetail_numRows = 0
%>
<%
Function TrimBody(str)
Dim Arr
Str = (Replace(str, "<", "<"

)
Str = (Replace(str, ">", ">"

)
Str = (Replace(str, vbCrlf, "<br>"

)
Arr = Array("smileSimple", "

","smileSimple", "

", "smileTongue", "

","smileTongue", "

", "smileSad", "

","smileSad", ":-(", "smileWink", "

", "smileWink", ";-)" )
for i = 0 to UBOUND(Arr)-1 step 2
Str = Replace(Str, Arr(i+1), "<img src=""../assets/" & Arr(i) & ".gif"" border=0>"

next
TrimBody = Str
End Function
Function DoSpace(str)
DoSpace = (Replace(str, vbCrlf, "<br>"

)
End Function
Function DoLink(byVal strIn)
dim re, sOut
set re = New RegExp
re.global = true
re.ignorecase = true
're.multiline = true
' pattern that parses and finds any Internet URLs:
re.pattern = _
"((mailto\:|(news|(ht|f)tp(s?))\://){1}\S+)"
' replace method of RegExp object uses a remembered
' pattern denoted as $1 to link the found URL(s)
sOut = re.replace( strIn, _
"<A HREF=""$1"" TARGET=""_new"">$1</A>"
set re = Nothing
DoLink = sOut
End Function
%>
<link rel="stylesheet" href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/css/css.css" type="text/css">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top" bgcolor="#000000" colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="middle" height="30" class="generalTextBold">
<div class = "links"><span class="linkColor"> <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/forums/default.asp">FORUMS</a>
> <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/forums/forum.asp?r=forums&t=<%= Request.QueryString("t"

%>&i=<%=(rsMsgDetail.Fields.Item("FOR_ID"

.Value)%>%20"><%= UCase( Request.QueryString("t"

) %></a>
></span><span class="generalTextRed"> TOPIC VIEW</span><span class="linkColor">
</span></div>
</td>
<td align="right" valign="middle" height="30">
<div class = "links"><span class="generalText"><a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/forums/default.asp#post">Post
A New Topic</a> | <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/home/search.asp">Search</a></span> </div>
</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#000000" colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top" class="bgLoginBlack" height="20" colspan="2"> <img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/checkMark.gif" width="16" height="18" align="absmiddle"> TOPIC
DETAIL</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#000000" colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top" colspan="2">
<div class = "links">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="130">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle" height="20" class="bgLogin"> AUTHOR</td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#000000"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top">
<table width="100%" border="0" cellspacing="3" cellpadding="2">
<tr align="left" valign="middle">
<td class = "generaltextbold" colspan="2">
<% If rsMsgDetail.Fields.Item("U_ICON"

.Value <> "" Then %>
<img src="../assets/<%=(rsMsgDetail.Fields.Item("U_ICON"

.Value)%>.gif" align="absmiddle">
<% Else %>
<img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/bullet.gif" align="absmiddle">
<% End If %>
<a href="mailto:<%=(rsMsgDetail.Fields.Item("U_EMAIL"

.Value)%>"><%=(rsMsgDetail.Fields.Item("MSG_AUTHOR"

.Value)%></a></td>
</tr>
<tr align="left" valign="middle">
<td width="11" align="center"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/dot.gif" width="6" height="6" align="absmiddle"></td>
<td class="generalText"><%=(rsMsgDetail.Fields.Item("U_COUNTRY"

.Value)%></td>
</tr>
<tr align="left" valign="middle">
<td width="11" align="center"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/dot.gif" width="6" height="6" align="absmiddle"></td>
<td class="generalText"><%=(rsMsgDetail.Fields.Item("TOPIC_COUNT"

.Value)%> topics</td>
</tr>
<tr align="left" valign="middle">
<td width="11" align="center"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/dot.gif" width="6" height="6" align="absmiddle"></td>
<td class="generalText"><%=(rsMsgDetail.Fields.Item("REPLY_COUNT"

.Value)%> replies</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td bgcolor="#000000" width="1"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="middle" height="20" class="bgLogin"> SUBJECT:
<%=(rsMsgDetail.Fields.Item("MSG_SUBJECT"

.Value)%></td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#000000"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="center" valign="top">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td valign="middle" height="18"><span class="generalTextGrey">Posted
on <%=(rsMsgDetail.Fields.Item("MSG_DATED"

.Value)%> with <%=(rsMsgDetail.Fields.Item("MSG_REPLY_COUNT"

.Value)%> replies</span></td>
<td align="right" valign="middle"><% If rsMsgDetail.Fields.Item("U_HOMEPAGE"

.Value <> "" Then %> <a href="<%=(rsMsgDetail.Fields.Item("U_HOMEPAGE"

.Value)%>" target = "_black"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconWebpage.gif" alt="Website" align="absmiddle" border="0"></a>
<% End If %>
<% If ( Request.Cookies("CookieUser"

= rsMsgDetail.Fields.Item("MSG_AUTHOR"

.Value ) OR ( Request.Cookies("CookieUser"

= myUserName ) Then %>
<a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/includes/editMsg.asp?r=forums&t=<%=(rsMsgDetail.Fields.Item("FOR_NAME"

.Value)%>&i=<%=(rsMsgDetail.Fields.Item("MSG_ID"

.Value)%>">
<img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconEdit.gif" alt="Edit This Topic" align="absmiddle" border="0"></a><% End If %><% If Request.Cookies("CookieUser"

= myUserName Then %> <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/includes/deleteMsg.asp?r=forums&t=<%=(rsMsgDetail.Fields.Item("FOR_NAME"

.Value)%>&i=<%=(rsMsgDetail.Fields.Item("FOR_ID"

.Value)%>&id=<%=(rsMsgDetail.Fields.Item("MSG_ID"

.Value)%>"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconDelete.gif" alt="Delete This Topic" align="absmiddle" border="0"></a>
<% End If %>
<a href="mailto:<%=(rsMsgDetail.Fields.Item("U_EMAIL"

.Value)%>"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconMail.gif" alt="Email Poster" align="absmiddle" border="0"></a>
</td>
</tr>
<tr align="left" valign="top" bgcolor="#000000">
<td colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr align="left" valign="top">
<td colspan="2">
<table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr align="left" valign="top">
<td class="generalText"><%=DoLink(TrimBody(rsMsgDetail.Fields.Item("MSG_BODY"

.Value))%><br><BR><%=DoSpace(rsMsgDetail.Fields.Item("U_SIGNATURE"

.Value)%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<%
rsMsgDetail.Close()
%>
Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]