CMS Compilation Error

ERROR: 'm_DataModel' is not declared. It may be inaccessible due to its protection level.

CMS Object: /ajax/fileinfo-test.html/Script
Line Number: 101

Source Code:

Line 100:   
Line 101: Dim ajax As New FileInfoAjax(m_DataModel)
Line 102:
Line 103: If Not Request("action") Is Nothing Then
Line 104: Dim action As String = Request("action")
Line 105:
Line 106: If action.Equals("new-rating") Then
Line 107: Dim reference As String = Request("reference")
Line 108: Dim entity As Integer = Request("entity")
Line 109: Dim rating As Integer = Request("rating")
Line 110:
Line 111: Response.Write(ajax.NewRating(reference, entity, rating))
Line 112: Else If action.Equals("get-comments") Then


WARNING: Variable 'errorMessage' is used before it has been assigned a value. A null reference exception could result at runtime.

CMS Object: /ajax/fileinfo-test.html/Script
Line Number: 91

Source Code:

Line 82:    			newCommentStatus = 0
Line 83: errorMessage = ex.Message
Line 84: End Try
Line 85:
Line 86: sb.Append("{")
Line 87: sb.append(" ""referenceName"": """ & referenceName & """,")
Line 88: sb.append(" ""entityId"": " & entityId & ",")
Line 89: sb.append(" ""status"": " & newCommentStatus & ",")
Line 90: sb.append(" ""commentsCount"": " & Me.CommentManager.GetCommentsCount(referenceName, entityId) & ",")
Line 91: sb.append(" ""error"": """ & errorMessage & """")
Line 92: sb.append(" ")
Line 93: sb.Append("}")
Line 94:
Line 95: Return sb.ToString()
Line 96: End Function
Line 97: #End Region
Line 98: End Class
Line 99:
Line 100: End Class
Line 101:
Line 102: End Namespace