<!--#Include Virtual="/MD5.asp" -->
<%
Function DigestGenerate(SafeKey, StoreID, SKU)
	DigestGenerate = md5(LCase(SafeKey & StoreID & SKU))
End Function

Function Encrypt (SafeKey, StoreID, SKU, URLPostTo)
	Encrypt = "SafeKey=" & StoreID & "&SKU=" & Server.URLEncode(SKU) 
	Encrypt = URLPostTo &"?"& Encrypt & "&Digest=" & DigestGenerate(SafeKey, StoreID, SKU)
End Function

SKUNumber = Request("StockCode")
PriceTag = Request("PriceTag")
ProductDescription = Request("ProductDescription")
ExtraParameter1 = Request("ExtraParameter1")
ExtraParameter2 = Request("ExtraParameter2")
ProductName = Request("ProductName")

ProductName = Trim(ProductName & " " & ExtraParameter1 & " " & ExtraParameter2)


x = Encrypt(Application("SafeKey"), Application("StoreID"), SKUNumber, Application("ToBasket")) & _
	"&ProductName="& Server.URLEncode(ProductName) & _
	"&RetailPrice="& PriceTag & _
	"&qty=1&ProductUrl="& strLocalUrl &"&SafeTrack="& session("SafeTrack") &"&RedirectURL="& RedirectURL 

Response.Redirect x
Response.End 
%>