Function ImageUrl(ByVal TestStatus As Integer) As String Dim bReturn As String = "" If TestStatus = 4 Then bReturn = "~/graf/pictures/CheckSmall.gif" Else bReturn = "~/graf/pictures/checked.gif" End If Return bReturn End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.