<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Displays and captures reviews for a product ' Product : CandyPress Store Frontend ' Version : 2.5 ' Modified : February 2004 ' Copyright: Copyright (C) 2004 CandyPress.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@candypress.com '************************************************************************* Option explicit Response.Buffer = true %> <% 'Work Fields dim totalPages dim count dim curPage dim reviewsPerPage dim revCount dim revSum dim I 'Reviews dim idReview dim revDate dim revDateInt dim revAuditInfo dim revStatus dim revRating dim revName dim revLocation dim revEmail dim revSubj dim revDetail 'Product dim idProduct dim sku dim description dim reviewAutoActive 'Database dim mySQL dim conntemp dim rstemp dim rstemp2 'Session dim idOrder dim idCust 'Set number of reviews per page reviewsPerPage = 10 '************************************************************************* 'Open Database Connection call openDb() 'Store Configuration if loadConfig() = false then call errorDB(langErrConfig,"") end if 'Get/Set Cart/Order Session idOrder = sessionCart() 'Get/Set Customer Session idCust = sessionCust() 'Get idProduct and validate idProduct = Request.QueryString("idProduct") if len(idProduct) = 0 then idProduct = Request.Form("idProduct") end if if IsNumeric(idProduct) then mySQL = "SELECT sku,description,reviewAutoActive " _ & "FROM products " _ & "WHERE idProduct = " & validSQL(idProduct,"I") & " " _ & "AND active = -1 " _ & "AND reviewAllow = 'Y' " set rsTemp = openRSexecute(mySQL) if not rsTemp.eof then sku = rstemp("sku") description = rstemp("description") reviewAutoActive = rstemp("reviewAutoActive") else response.redirect "sysMsg.asp?errMsg=" & server.URLEncode(langErrInvProdID) end if call closeRS(rsTemp) else response.redirect "sysMsg.asp?errMsg=" & server.URLEncode(langErrInvProdID) end if 'Did the customer add a new review? if Request.Form("formID") <> "" then call newReviewAdd() end if %> <% 'Close Database Connection call closeDb() '********************************************************************** 'Main Shopping Cart Display Area '********************************************************************** sub cartMain() %>

<%=langGenProductReviews%>

<% 'Get Ratings Summary mySQL="SELECT SUM(revRating) AS revSum, " _ & " COUNT(revRating) AS revCount " _ & "FROM reviews " _ & "WHERE idProduct = " & validSQL(idProduct,"I") & " " _ & "AND revStatus = 'A' " set rsTemp = openRSexecute(mySQL) if not rsTemp.EOF then revSum = rsTemp("revSum") revCount = rsTemp("revCount") if revSum > 0 and revCount > 0 then %> <% end if end if call closeRS(rsTemp) %>

<%=SKU%> - <%=Description%>

<%=langGenAverageRating%> : <%=ratingImage(revSum/revCount)%>
<%=langGenNumberReviews%> : <%=revCount%>
<%=langGenWriteReview%>

<% 'Get Reviews mySQL = "SELECT revDate,revRating,revName,revLocation," _ & " revEmail,revSubj,revDetail " _ & "FROM reviews " _ & "WHERE idProduct = " & validSQL(idProduct,"I") & " " _ & "AND revStatus = 'A' " _ & "ORDER BY revDate DESC" 'Create and Open recordset set rsTemp = openRSopen(mySQL,0,adOpenStatic,adLockReadOnly,adCmdText,reviewsPerPage) 'Check if any records were returned if not rstemp.eof then 'Get Page to show (if any) curPage = Request.Form("curPage") if len(curPage) = 0 then curPage = Request.QueryString("curPage") end if if len(curPage) = 0 or not isNumeric(curPage) then curPage = 1 else curPage = CLng(curPage) end if 'Go to requested page rstemp.MoveFirst rstemp.PageSize = reviewsPerPage totalPages = rstemp.PageCount rstemp.AbsolutePage = curPage %> <% 'Read through recordset and display reviews do while not rstemp.eof and count < rstemp.pageSize revDetail = rstemp("revDetail") revDate = rstemp("revDate") revRating = rstemp("revRating") revName = rstemp("revName") revLocation = rstemp("revLocation") revEmail = rstemp("revEmail") revSubj = rstemp("revSubj") %> <% count = count + 1 rstemp.moveNext loop else %> <% end if call closeRS(rsTemp) %>

<%=navbarReviews("prodReview.asp","idProduct=" & idProduct)%>

<%=ratingImage(revRating)%> <%=server.HTMLEncode(revSubj)%>
<%=server.HTMLEncode(revName)%> - <%=server.HTMLEncode(revLocation)%> (<%=formatDateTime(revDate,vbLongDate)%>)

<%=replace(server.HTMLEncode(revDetail),chr(10),"
")%>

<%=langGenNotReviewedYet%>

<%=langGenWriteReview%>

<%=langGenRating%>	<%=langGenReviewStars%>
<%=langGenFullName%>
<%=langGenLocation%>
<%=langGenEmail%>
<%=langGenSubject%>
<%=langGenReview%>