<% 'Display Product Specific Includes Include_TellAFriend = True Include_Specials = False Include_Best_Sellers = False %> <% strPageTitle = Application("STORE_NAME") & " Product Review" %> <% strPageKeywords = Application("STORE_NAME")%>

<% Dim objProductReviewsInfoRS Set objProductReviewsInfoRS = fRetrieveProductReviewsInfo(request("rid")) Dim strProductReviewsInfo_Image With objProductReviewsInfoRS strBackURL = Server.URLEncode(fGenerateLink("product_reviews_info.asp?pid=" & request("pid") & "&rid=" & request("rid"))) if .eof = false then 'Set our Current Manufacturer intCurrManufacturer = .fields("fkmanufacturers").value Include_manufacturer_info = True if .fields("products_image").value <> "" then strProductReviewsInfo_Image = .fields("products_image").value else strProductReviewsInfo_Image = Application("PRODUCT_BLANK_IMAGE") end if %>

<% if .fields("products_model").value <> "" and APPLICATION("PRODUCT_LIST_MODEL") = "True" then %> <% else %> <% end if %>
<%= .fields("products_name").value %>
[<%= .fields("products_model").value %>]
<%= .fields("products_name").value %><% mnyProductReview_Price = fRetrieveProductOriginalPrice(.fields("pid").value) mnyProductReview_SpecialPrice = fRetrieveProductPrice(.fields("pid").value) if mnyProductReview_Price = mnyProductReview_SpecialPrice then %> <%= strCurrencySymbol %><%= mnyProductReview_Price %> <% else %> <%= strCurrencySymbol %><%= mnyProductReview_Price %> <%= strCurrencySymbol %><%= mnyProductReview_SpecialPrice %> <% end if %>




By » <%= .fields("customers_name").value %>

Date Added » <%= fDisplayNiceDate(.fields("date_added").value) %>

<%= .fields("reviews_text").value %>

RATING » .gif" border="0" alt="<%= .fields("reviews_rating").value %> of 5 Stars!" title=" <%= .fields("reviews_rating").value %> of 5 Stars! " width="59" height="11"> <%= .fields("reviews_rating").value %> OF 5 STARS!
Back ">Write Review

<%= .fields(" title=" <%= .fields("products_name").value %> " width="<%= Application("SMALL_IMAGE_WIDTH") %>" height="<%= Application("SMALL_IMAGE_HEIGHT") %>">
Click to view




<% Else 'No Reviews Yet %>

Unable to find the review you have chosen.

Back ">Write Review
<% End If End With Set objProductReviewsRS = Nothing %>