function to look at a dataset and then create a link and image based on the data selected

'This is in the buttom click event
ycomm.Fill(ds, "materials")
Repeater1.DataSource = ds
Repeater1.DataBind()
Dim source As String = ""
source = ds.Tables(0).Rows(0).Item("source")
GetThumbnails()
 
'Here is the function
Function GetThumbnails() As String
 
        If source = "Forage and Grazinglands - FG" Then
            link = "http://www.plantmanagementnetwork.org/fg"
            image = "http://www.plantmanagementnetwork.org/partners/banner/fg.gif"
        ElseIf source = "Plant Health Progress - PHP" Then
            link = "http://www.plantmanagementnetwork.org/php"
            image = "http://www.plantmanagementnetwork.org/partners/banner/php.gif"
        ElseIf source = "Plant Management Network - PMN" Then
            link = "http://www.plantmanagementnetwork.org"
            image = "http://www.plantmanagementnetwork.org/partners/banner/pmn.gif"
        ElseIf source = "Applied Turfgrass Science - ATS" Then
            link = "http://www.plantmanagementnetwork.org/ats"
            image = "http://www.plantmanagementnetwork.org/partners/banner/ats.gif"
        ElseIf source = "Crop Management - CM" Then
            link = "http://www.plantmanagementnetwork.org/cm"
            image = "http://www.plantmanagementnetwork.org/partners/banner/cm.gif"
        End If
        Return True
    End Function
 
'And here is the .aspx page
<span class="source"><a target="_blank" class="source" href="<%=link%>"><img style="float:right;" border="0" src="<%=image%>" alt="" /></a></p>