Dim avgrating As Double If ReadDataItem.Read Then avgrating = ReadDataN("avgrating") Else avgrating = 0 End If CloseData()
If avgrating > 0 A