Indsæt default-billed ved manglende data i tabel

Hej!

Jeg har en produktside, hvor der vises et billede af produkterne. Men i flere tilfælde mangler der billeder og i sådanne tilfælde ønsker jeg at indsætte et standard billede (noget a la "fotografen er på vej"). Min produkt-tabel hedder "products" og feltnavnet med url på produktbillede hedder "cimageurl" (type: tekst)

Jeg har brug for hjælp til at indsætte den kode-stump i min nuværende kode.

--- start på kode ---

<!-- #include file="db.asp" -->
<%

Response.Buffer = true
Dim catid, strcat
catid = Request.QueryString("id")
strcat = Request.QueryString ("cat")

If catid = "" OR (IsNumeric(catid) = false) Then
    Response.Redirect "default.asp"
End if

Dim catname, productslist
sub productInfo(connObj,category)
    q = chr(34)
    set cmd = server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = connObj
    cmd.CommandText = "qryProdsCategory"
    cmd.CommandType = adCmdStoredProc
    set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)
    cmd.Parameters.Append(param)
    cmd("theCategory") = Cint(category)
    set rs = server.CreateObject("ADODB.Recordset")
    set rs = cmd.Execute
   
    if not rs.EOF then
        catname = rs("catdescription")
        strHTML = "<table border=0 cellPadding=2 cellSpacing=2 width='100%'>"
        strHTML = strHTML & "<tr>"
       
        i = 1
        while not rs.EOF
            strHTML = strHTML & "<td valign=top>" & vbcrlf
            strHTML = strHTML & "<img src=" & q& "grafik/produkter/smaa/" & rs("cimageurl") &q& " align=" & q& "left"& q & ">" & vbcrlf
            strHTML = strHTML & "<span class=""brod"">" & rs("cname") & "</span>" & vbcrlf
            ' strHTML = strHTML & "<p><span class=""menu""><a href="&q&"product.asp?id=" & rs("catalogID") &q&">L&aelig;s mere &gt;&gt;&gt;</a></p></span>" & vbcrlf
            strHTML = strHTML & "<p><span class=""menu""><a href="&q&"product.asp?id=" & rs("catalogID") &q&">L&aelig;s mere &gt;</a></p></span>" & vbcrlf
            ' strHTML = strHTML & "<p>Price: " & FormatCurrency(rs("cprice"),2) & "<br>" & vbcrlf
            strHTML = strHTML & "<br><br>" & vbcrlf
            strHTML = strHTML & "<form action="&q&"addprod.asp"&q&" method="&q&"POST"&q&" name=form"&i&" onSubmit="&q& "return checkItems(form"&i&")" & q&">" & vbcrlf
            strHTML = strHTML & "<input type="&q&"hidden"&q&" name="&q&"fproductid"&q&" value="&q & rs("catalogID")& q&">" & vbcrlf
            strHTML = strHTML & "<span class=""brod"">Antal: <input maxLength="&q&"1"&q&" name="&q&"fquantity"&q&" size=2 value="&q&"1"&q&">" & vbcrlf
            strHTML = strHTML & "<input type="&q&"submit"&q&" value="&q&"BESTIL"&q&" name="&q&"order"&q&" style="&q&"font-family: Verdana; font-size: xx-small; color: #000000; font-weight: bold;"&q&">"
            strHTML = strHTML & "</form></td>" & vbcrlf
            if (i mod 2) = 0 then
                strHTML = strHTML & "</tr><tr>" & vbcrlf
            end if
            i = i + 1   
            rs.MoveNext
        wend
   
        strHTML = strHTML & "<tr></table>"
    else
        strHTML = "Produktoplysninger ikke fundet."
        catname = "Error"
    end if
        productslist = strHTML
    rs.Close
    set rs = nothing
    set cmd = nothing

end sub

%>

--- slut på kode ---