SUB lstProducts_OnClick
    Dim sProductInfo, rsProductInfo, sTemp

    Set rsProductInfo = rsAllProducts
    rsProductInfo.filter = "productId=" & lstProducts.Value

    sProductInfo = "<table border=0 cellpadding=2>"

    sProductInfo = sProductInfo & "<tr><td valign=top><img src=images/product" 
                                & trim(lstProducts.value) & ".gif></td>"

    sProductInfo = sProductInfo & "<td valign=top>" 
                                & rsProductInfo.Fields("ProductDescription") & "</td></tr>"

    sProductInfo = sProductInfo & "<tr><td valign=top colspan=2><font size=-1><b>PRICE:</b> $" 
                                & rsProductInfo.Fields("ProductPrice") 
                                & "<br><a href=""VBScript:OrderProduct"">
                                   <img src=""images/buyit.gif"" border=0></a></td></tr>"

    sProductInfo = sProductInfo & "</table>"

    currPrice = rsProductInfo.Fields("ProductPrice")

    tdProduct.innerhtml = sProductInfo

    Set rsProductInfo = Nothing

END SUB