If-betingelse i loop

Følgende kode skal kunne skrive tilbuds prisen hvis dette felt er skrevet i databasen.. Kun et ud af fire poster er skrevet men den laver tilbudspris for alle... (De tre er bare blanke):

strSQL = "Select * from Product WHERE Gruppe = '" & GroupName & "'"
Set rs = Conn.Execute(strSQL)

count = 0
   
    if RS.eof then %>

        <span class="Text">Der findes ingen produkter i denne produkt-gruppe</span>

    <%end if
    Do While Not RS.EOF
    count = count + 1       
    %>
       
    <%ProdDescrip = rs("ProductSmallDescription")
    ProdPris = rs("ProductPris")
    ProdName = rs("ProductName")
    ProdTilbudPris = rs("ProductTilbudPris")
    IF IsNull("ProdTilbudPris") = "" then
    Tilbud = "0"
    Else
    Tilbud = "1"       
    end if
    %>
   
   
   
        <span class="Text">
        <% Response.Write "<b>" & ProdName & "</b><br>" & ProdDescrip & "<br>" %>
        [ Læg i kurv ]<BR>
        <% if Tilbud = "0" then %>
        DKK Pris: <% = ProdPris %>,00<br><br>
        <% else %>
        <strike>DKK Pris: <% = ProdPris %>,00</strike> DKK Tilbudspris: <% = ProdTilbudPris %>,00    <br><br>
        </span>
          <% end if %>
<% RS.MoveNext
Loop

rs.close
set rs = nothing
%>