[an error occurred while processing this directive] Brody Professional Development [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] <%if request.ServerVariables("HTTP_REFERER")<>"" then session("reffererID")= request.ServerVariables("HTTP_REFERER") end if %>
Personal and Professional Development Books

[an error occurred while processing this directive]
<% SQL="select * from tblBooks where category=3 order by BookID desc" rst.Open SQL,dbobj set rstInner=Server.CreateObject("ADODB.Recordset") do until rst.EOF SQL="Select * from tblBookReviews where BookID="&rst("BookID") rstInner.Open SQL,dbobj%>
">
.jpg" width="100" height="150" alt border="0">
<%if not rstInner.BOF then%>
"> See
Rave Reviews
<%End If rstInner.Close Spec="" comma="" if not isNullOrEmpty(rst("FirstSpecialPrice")) then Spec= FormatCurrency(rst("FirstSpecialPrice")) &" "& rst("FirstSpecialPriceDescription") comma=", " end if if not isNullOrEmpty(rst("SecondSpecialPrice")) then Spec=Spec&comma& FormatCurrency(rst("SecondSpecialPrice")) & " "& rst("SecondSpecialPriceDescription") comma=", " end if alerta="This product is sold in different packages.\n You can select the type of package you prefer when you fill out the order form."%> <%if rst("PrintBookAvail") <> 0 then %>
add2Basket('<%=rst("BookID") %>');return false;">
<%end if%> <% if rst("EbookAvail") <> 0 then %>
');return false;">
Add E-Book
to cart <%end if%>

<%=rst("Title") %>
<%=rst("Author") %>

<%=replace(rst("Description"),vbNewLine,"
") %>

<%if not Spec="" then response.write "

SPECIAL OFFER " & Spec & "

" end if if not isNullOrEmpty(rst("DiscountedPrice")) then%>

<%=rst("DiscountDescription") %> <%=FormatCurrency(rst("DiscountedPrice")) %>

<% end if response.write "" Reg="" comma="" if not isNullOrEmpty(rst("FirstRegularPrice")) then Reg=FormatCurrency(rst("FirstRegularPrice")) &" "& rst("FirstRegularPriceDescription") comma=", " end if if not isNullOrEmpty(rst("SecondRegularPrice")) then Reg=Reg &comma& FormatCurrency(rst("SecondRegularPrice")) &" "& rst("SecondRegularPriceDescription") comma=", " end if if not Spec="" then response.write " Regularly " response.write Reg & ""%>

MORE PRODUCTS
[an error occurred while processing this directive]<% rst.MoveNext loop rst.Close%>
[an error occurred while processing this directive]