<% strPageTitle = Application("STORE_NAME") & " Reviews" %> <% strPageKeywords = Application("STORE_NAME")%>

<% Dim objReviewsRS sRetrieveReviews objReviewsRS Dim strReviews_Image Dim intReviews_First Dim intReviews_Last Dim intReviews_Total Dim strReviews_PageLinks With objReviewsRS if .eof = false then sCalculateRecordCounts objReviewsRS, intReviews_First, intReviews_Last, intReviews_Total strReviews_PageLinks = fCalculatePageTotals(fGenerateLink("reviews.asp"), .PageCount) %> <% while .AbsolutePage = intCurrent_Page and not .eof if .fields("products_image").value <> "" then strReviews_Image = .fields("products_image").value else strReviews_Image = Application("PRODUCT_BLANK_IMAGE") end if %> <% .movenext Wend %>

<% if Application("TABLE_BACKGROUND_REVIEWS") <> "" then %> <% else %> <% end if %>

Read What Others Are Saying

" border="0" alt="Read What Others Are Saying" title=" Read What Others Are Saying ">

Displaying <%= intReviews_First %> to <%= intReviews_Last %> (of <%= intReviews_Total %> reviews)

Result Pages » <%= strReviews_PageLinks %>


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


	">" title=" <%= .fields("products_name").value %> " width="<%= Application("SMALL_IMAGE_WIDTH") %>" height="<%= Application("SMALL_IMAGE_HEIGHT") %>">	<%= .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!

<% Else 'No Reviews Yet %>

There are no reviews to view at this present time.

<% End If End With Set objReviewsRS = Nothing %>