Public Function getLastPosterByTopic(ByVal topicId As Integer) Dim myConnection As New SqlConnection(ConfigurationManager.AppSettings("forumDSN")) Dim myCommand As New SqlCommand("SELECT TOP 1 psId, psRelTopId, psName FROM forumThreads WHERE psRelBcId = " & topicId & " ORDER BY psDate DESC", myConnection)
myConnection.Open()
Dim myReader As SqlDataReader myReader = myCommand.ExecuteReader()
Dim thisId As Integer Dim thisTopId As Integer Dim thisName As String
While myReader.Read() thisId = myReader("psId") thisTopId = myReader("psRelTopId") thisName = myReader("psName") End While myReader.Close() myConnection.Close()
If thisName = "" Then thisName = "<font class=""labelNew"">New!</font>" Else If thisTopId <> 0 Then thisName = "<a class=""lastPostLink"" href=""threadView.aspx?id=" & thisTopId & """>" & thisName & "</a>" Else thisName = "<a class=""lastPostLink"" href=""topicView.aspx?id=" & topicId & """>" & thisName & "</a>" End If End If
Return thisName End Function