Vis ikon/URL (QueryString) ved udtræk fra DB

Jeg har en produktliste. Til hvert produkt er der knyttet brochure, picture, video, PPT, poster og "JPP". Jeg bruger QueryString til at forbinde hvert produkt med den respektive brochure, picture osv. Nedenstående kode genererer dog et QueryString link uanset om der er en brochure til det pågældende produkt. Jeg vil gerne have det således at linket kun vises, såfrem der er en brochure eller picture til det pågældende produkt. Ellers kommer brugeren til at klikke forgæves for mange gange (QueryString-linket viser en nye side med indhold eller beskeden om at der ikke findes nogen brochure til det valgte produkt).

Brochure tabellen hedder Brochures og består af felterne Bro_ID, Bro_Name (join fra tabellen Products), Bro_Language (join fra tabellen Language) og Bro_URL.

Jeg har altså brug for en stump kode der checker om det en (eller flere) brochure tilknyttet et produkt. Hvis det er tilfældet skal ikon/QueryString vises. Hvis produktet ikke har nogen brochure vises bare blankt felt.

Jeg har forsøgt med noget lign.:
--------------------------------------
If isnull(objRs("Bro_URL")) Then
strXXX = ""
Else
strXXX = "<a href=""brochure.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/jpeg.jpg"" border=""0"">"
End If
------------------------------------------

Men fik det ikke til at virke. Gav for mange produktlinier for det samme produkt.

Håber der nogen, der gider hjælpe!


--- start kode ---

<%
'Dim variabler
Dim objConn
Dim objRs
Dim strSQL, strName, strChapter, strBGColor, strProducts, strPro_ID
Dim blnBGColor
Dim OldChapter

'Database forbindelse
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../../database/products.mdb")

'SQL
strSQL = "SELECT Products.Pro_Name, Products.Pro_ID, Chapters.Chapter, Competences.Competence_ID FROM Competences INNER JOIN (Chapters INNER JOIN Products ON (Chapters.Chapter_ID = Products.Chapter_ID) AND (Chapters.Chapter_ID = Products.Chapter_ID)) ON Competences.Competence_ID = Products.Competence_ID WHERE (((Competences.Competence_ID)=2));"

Set objRs = objConn.Execute(strSQL)
If Not (objRs.BOF AND objRs.EOF) Then
    Do While Not objRs.EOF
        strName = objRs("Pro_Name")
        strChapter = objRs("Chapter")
        strPro_ID = objRs("Pro_ID")
                           
        if OldChapter <> strChapter then
          strProducts = strProducts & "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1""><tr bgcolor=""#CCCCCC""><td colspan=""7""><b>" & strChapter & "</b></td></tr><tr bgcolor=""#CCCCCC""><td width=""20%""><b>Product name</b></td><td><b>Brochure</b></td><td><b>Picture</b></td><td width=""10%""><b>Video</b></td><td><b>PPT</b></td><td><b>Poster</b></td><td><b>JPP</b></tr>"
          OldChapter = strChapter
        end if

        If blnBGColor = True Then
            strBGColor = "#FFFFFF"
            blnBGColor = False
        Else
            strBGColor = "#eeeeee"
            blnBGColor = True
        End If 
       
   
    strProducts = strProducts & "<tr bgcolor="""& strBGColor &"""><td>"&strName&"</td><td><a href=""brochure.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/pdf_ikon_lille.gif"" border=""0""></a></td><td><a href=""picture.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/jpeg.jpg"" border=""0""></a></td><td><a href=""video.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/videokam.gif"" border=""0""></a></td><td><a href=""ppt.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/zip.jpg"" border=""0""></a></td><td><a href=""poster.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/pdf_ikon_lille.gif"" border=""0""></a></td><td><a href=""jpp.asp?Pro_ID=" & strPro_ID & """><img src=""../../images/icons/zip.jpg"" border=""0""></a></td></tr>"

        objRs.MoveNext
        if objRs.EOF then
          strProducts=strProducts & "</table>"
        else
          if OldChapter <> objRs("Chapter") then
            strProducts=strProducts & "</table><br>"
          end if
        end if
    Loop
Else
    strProducts = "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1""><tr><td>Der er ingen Produkter!</td></tr></table>"
End If

'Luk databaseforbindelse
objConn.Close
Set objConn = Nothing
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Products - Flatwork</title>
<style type="text/css">
<!--
td {
    font-family: Tahoma, Arial, Geneva, Helvetica;
    font-size: small;
}
-->
</style>
</head>

<body>
<!--Start produktliste
--><%
Response.Write strProducts
%>
</body>
</html>






--- stop kode ----