<%@LANGUAGE="VBSCRIPT"%> <% '**************************************************************************************** '** Copyright Notice '** Copyright 2003 DUware All Rights Reserved. '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** You may not pass the whole or any part of this application off as your own work. '** All links to DUware and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** No official support is available for this program but you may post support questions at: - '** http://www.duware.com/support '**************************************************************************************** %> <% if(Request.QueryString("iRate") <> "") then cmdRating__iRate = Request.QueryString("iRate") if(Request.QueryString("iArt") <> "") then cmdRating__iArt = Request.QueryString("iArt") if(Request.QueryString("iType") <> "") then cmdRating__iType = Request.QueryString("iType") %> <% set cmdRating = Server.CreateObject("ADODB.Command") cmdRating.ActiveConnection = MM_connDUarticle_STRING cmdRating.CommandText = "UPDATE BARZELLETTE SET ART_RATED = ART_RATED + " + Replace(cmdRating__iRate, "'", "''") + ", ART_RATES = ART_RATES + 1 WHERE ART_ID = " + Replace(cmdRating__iArt, "'", "''") + "" cmdRating.CommandType = 1 cmdRating.CommandTimeout = 0 cmdRating.Prepared = true cmdRating.Execute() %> <% Response.Cookies(cmdRating__iArt) = cmdRating__iRate Response.Cookies(cmdRating__iArt).Expires = Date + 1000 Response.Redirect "detail.asp?iArt=" & cmdRating__iArt & "&iType=" & cmdRating__iType %>