This is the text around line 434:
431: If NOT rsTopic.EOF Then
434: strTopicStartUsername = rsTopic("Username")
435: strFirstPostMsg = Mid(rsTopic("Message"), 1, 275)
436: lngTopicStartUserID = CLng(rsTopic("Author_ID"))
I change Username to Real_name.
Also, I change this:
415: If strDatabaseType = "SQLServer" Then
416: strSQL = "EXECUTE " & strDbProc & "LastAndFirstThreadAuthor @lngTopicID = " & lngTopicID
417: Else
418: strSQL = "SELECT " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Author_ID, " & strDbTable & "Thread.Message, " & strDbTable & "Thread.Message_date, " & strDbTable & "Author.Username "
419: strSQL = strSQL & "FROM " & strDbTable & "Author, " & strDbTable & "Thread "
420: strSQL = strSQL & "WHERE " & strDbTable & "Author.Author_ID = " & strDbTable & "Thread.Author_ID AND " & strDbTable & "Thread.Topic_ID = " & lngTopicID & " "
421: strSQL = strSQL & "ORDER BY " & strDbTable & "Thread.Message_date ASC;"
422: End If
on line 418 I change Author.Username to Author.Real_name.
There is one more place that I change:
444: lngLastEntryMessageID = CLng(rsTopic("Thread_ID"))
445: strLastEntryUsername = rsTopic("Username")
446: lngLastEntryUserID = CLng(rsTopic("Author_ID"))
447: dtmLastEntryDate = CDate(rsTopic("Message_date"))
On line 445 I change Username to Real_name.
I do not think that there is anything else to change on this page but it gives me an error.
Thank you.