{asp}
set colProductVariationJsonObject93d = Server.CreateObject("scripting.dictionary")
function GetProductVariationJsonObject(ProductVariationId93d)
set GetProductVariationJsonObject = nothing
if not colProductVariationJsonObject93d.Exists(cstr(ProductVariationId93d)) then
set colProductVariationJsonObject93d(cstr(ProductVariationId93d)) = nothing
for i93d = 1 to 2
loc93d = server.Mappath("/shared/Resources/ProductVariations/" & ProductVariationId93d & ".json")
set oJsonFromDisk93d = Server.CreateObject("Chilkat_9_5_0.JsonObject")
if len(GetFileContent(loc93d)) > 0 then
if Int2Bool(oJsonFromDisk93d.Load(loc93d)) then exit for
end if
if i93d = 1 then sleepms 500 else Err.raise 13431, "ExtendProductVariation Error", "Failed to read extended Json file '" & loc93d & "'" & vbcrlf & oJsonFromDisk93d.LastErrorText
next
set colProductVariationJsonObject93d(cstr(ProductVariationId93d)) = oJsonFromDisk93d
end if
set GetProductVariationJsonObject = colProductVariationJsonObject93d(cstr(ProductVariationId93d))
end function
function GetProductVariationCardMarkup(oPageData23d, ProductVariationId23d)
CurrentLanguageId23d = oPageData23d.StringOf("CurrentLanguageId")
GetProductVariationCardMarkup = ""
set ProdVarJsonObj23d = GetProductVariationJsonObject(ProductVariationId23d)
if not ProdVarJsonObj23d is nothing then
with oPageData.ObjectOf("ProductVariationsAvailability")
'isDeleted23d = Int2Bool(.ObjectOf(ProductVariationId23d).BoolOf("IsDeleted"))
isActive23d = Int2Bool(.ObjectOf(ProductVariationId23d).BoolOf("IsActive"))
isAvailable23d = Int2Bool(.ObjectOf(ProductVariationId23d).BoolOf("IsAvailable"))
end with
if isActive23d then
salechannelIndex23d = ProdVarJsonObj23d.ArrayOf("SaleChannels").FindString(oPageData23d.StringOf("SaleChannelId"), 0)
if salechannelIndex23d > -1 then
mainImageIndex23d = ProdVarJsonObj23d.ArrayOf("Images").FindObject("IsMainImage", "true", 0)
if mainImageIndex23d > -1 then
set mainImageObj23d = ProdVarJsonObj23d.ArrayOf("Images").ObjectAt(mainImageIndex23d)
GetProductVariationCardMarkup = _
"
" & vbcrlf
if JsonType(ProdVarJsonObj23d, "ScreenRibbon") = "Object" then
with ProdVarJsonObj23d.ObjectOf("ScreenRibbon")
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"
" & vbcrlf & _
FormatCurrencyEur(ProdVarJsonObj23d.StringOf("Price")) & vbcrlf
if Int2Bool(ProdVarJsonObj23d.BoolOf("DiscountApplicable")) then
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
" " & FormatCurrencyEur(ProdVarJsonObj23d.StringOf("OriginalPrice")) & "" & vbcrlf
end if
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"
" & vbcrlf & _
"
" & vbcrlf
if isAvailable23d then
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"" & vbcrlf
else
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"" & vbcrlf
end if
isInWishList = false
if JsonType(oPageData, "WishList") = "Object" then
isInWishList = (oPageData23d.ObjectOf("WishList").ArrayOf("Items").FindString(ProductVariationId23d, 1) > -1)
end if
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"
" & vbcrlf & _
"" & vbcrlf & _
"
"
end if
end if
end if
end if
end function
{/asp}{asp}
'asp2 include
class clsRenderedPage
public PageTitle
private p_HeaderTitle
private p_HeaderDescription
public Breadcrumbs
public ActiveMenuItem
private sub class_initialize()
set me.Breadcrumbs = new clsBreadcrumbs
end sub
public property Let HeaderTitle(val22d)
p_HeaderTitle = val22d
end property
public property Get HeaderTitle()
HeaderTitle = "pittigepepers.nl - " & notnull(p_HeaderTitle, me.PageTitle)
end property
public property Let HeaderDescription(val22e)
p_HeaderDescription = val22e
end property
public property Get HeaderDescription()
HeaderDescription = notnull(p_HeaderDescription, "Zelf gemakkelijk hete pepers kweken! Vind hier veel soorten chilipeper zaden. Van mild tot extreem heet.")
end property
end class
class clsBreadcrumbs
public BackButtonApplicable
public Items
private sub class_initialize()
me.BackButtonApplicable = false
set me.Items = Server.CreateObject("Scripting.Dictionary")
end sub
public sub Add(title28w, icon28w, url28w)
PrivateAdd title28w, icon28w, url28w, false
end sub
public sub AddCurrent(title28v, icon28v, url28v)
'remove IsCurrent from all other items
for each item28v in me.Items
set thisItem28v = me.Items.Item(item28v)
thisItem28v.IsCurrent = false
next
PrivateAdd title28v, icon28v, url28v, true
end sub
private sub PrivateAdd(title28u, icon28u, url28u, isCurrent28u)
if me.Items.Count = 0 then
set oBreadcrumb28u = new clsBreadcrumb
oBreadcrumb28u.Title = null
oBreadcrumb28u.Icon = "bi-house-door"
oBreadcrumb28u.Url = "/"
me.Items.Add cstr(me.Items.Count), oBreadcrumb28u
end if
set oBreadcrumb28u = new clsBreadcrumb
oBreadcrumb28u.Title = title28u
oBreadcrumb28u.Icon = icon28u
oBreadcrumb28u.Url = url28u
oBreadcrumb28u.IsCurrent = isCurrent28u
me.Items.Add cstr(me.Items.Count), oBreadcrumb28u
end sub
end class
class clsBreadcrumb
public Title, Icon, Url, IsCurrent
end class
{/asp}
{asp}
Response.Charset = "utf-8"
Response.Codepage = 65001
session.LCID = 1034
set oPageData = Server.CreateObject("Chilkat_9_5_0.JsonObject")
oPageData.load session("PageData")
set oRenderedPage = new clsRenderedPage
{/asp}
{asp}
'do 301 redirect when url does not excactly match url in sitemap
set oURL = new clsURL
oURL.SetCurrentURL()
curUrl = oURL.CompleteUrl()
set oURL = nothing
if not strcomp(curUrl, oPageData.ObjectOf("Page").StringOf("CompleteUrl")) = 0 then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", oPageData.ObjectOf("Page").StringOf("CompleteUrl")
end if
oRenderedPage.PageTitle = "Scotch Bonnet Rood zaadjes"
oRenderedPage.Breadcrumbs.Add "Peperzaden", null, "/webshop/peperzaden/"
oRenderedPage.Breadcrumbs.BackButtonApplicable = true
oRenderedPage.Breadcrumbs.Add "Heet", null, "/webshop/peperzaden/hitte/heet/"
oRenderedPage.Breadcrumbs.AddCurrent "Scotch Bonnet Rood", null, null
oRenderedPage.HeaderDescription = "In het hele Caraïbisch gebied houdt men van pittig eten. Behalve dat dergelijke gerechten zeer smaakvol zijn, heeft het toevoegen van chilipepers ook een meer practisch doel. Omdat in het tropische, warme, zwoele klimaat vlees aan snel bederf onderhevig was, moet het begin van bederf worden gemaskeerd door chilipepers. Bedenk dat men vroeger niet de luxe van koelkasten had en in tropische omstandigheden vlees al binnen een dag niet meer goed kon zijn. De Caraïbische Zee wordt gevormd door enkele landen in noordoostelijk Zuid-Amerika en alle Antillen. De meest gebruikte chilipeper is de Habanero Oranje , maar er zijn vele plaatselijke varianten. In Suriname vormt bijvoorbeeld de ook hier bekende Madame Jeanette de basis van vele gerechten. Op de Bahama's en Jamaica is het de Scotch Bonnet (ook wel Bahamian, Bahama Mama, Jamaican Hot of Martinique Pepper) die de hoofdrol speelt. Alle Habanero's en dus ook de Madame Jeanette en de Scotch Bonnet hebben een pittigheid van circa 250,000 tot 350,000 SHU's. Toch zijn er duidelijke verschillen de smaak: de Madame Jeanette staat bekend om zijn citrussmaak, terwijl de Schotch Bonnet wat zoeter smaakt met een hint van appel en kers. De pepers zijn qua grootte ongeveer even groot als de Habanero, zo'n 2,5 cm in doorsnee en 4 cm lang. De naam Scotch Bonnet is gekozen omdat de chilipeper de vorm heeft van een Schotse militaire baret. De Scotch Bonnet is onmisbaar in de Jerk keuken van Jamaica en de Kaaiman eilanden. In de Jerk keuken wordt vlees wordt ingewreven met een erg scherp kruidenmengsel, Jamaican Jerk Spice genaamd. Vandaag de dag is de scotch bonnet wereldwijd populair."
oRenderedPage.HeaderTitle = oRenderedPage.PageTitle & " €3,70"
{/asp}
{asp}=htmlencode(oRenderedPage.HeaderTitle){/asp}
{asp}
set colSitemapPages = Server.CreateObject("scripting.dictionary")
colSitemapPages.add "webshop_nl", Server.CreateObject("scripting.dictionary")
colSitemapPages.Item("webshop_nl").add "ProVar78", "https://www.pittigepepers.nl/webshop/product/78_scotch_bonnet_rood_zaadjes/||nl-nl"
colSitemapPages.add "webshop_be", Server.CreateObject("scripting.dictionary")
colSitemapPages.Item("webshop_be").add "ProVar78", "https://www.pittigepepers.be/webshop/product/78_scotch_bonnet_rood_zaadjes/||nl-be"
colSitemapPages.add "webshop_eu", Server.CreateObject("scripting.dictionary")
colSitemapPages.Item("webshop_eu").add "ProVar78", "https://www.valenciaseedfarm.com/webshop/product/78_scotch_bonnet_red_seeds/||en"
set oURL = new clsURL
oURL.SetCurrentURL()
curUrl = oURL.CompleteUrl()
set oURL = nothing
sitemapPageIdentifier = GetSitemapPageIdentifier(curUrl)
set colUsedHrefLangLanguages = server.createobject("scripting.dictionary")
for each iSitemapSaleChannel in colSitemapPages
set thisSitemapSaleChannel = colSitemapPages(iSitemapSaleChannel)
if thisSitemapSaleChannel.Exists(sitemapPageIdentifier) then
url = split(thisSitemapSaleChannel(sitemapPageIdentifier), "||")(0)
hreflang = split(thisSitemapSaleChannel(sitemapPageIdentifier), "||")(1)
{/asp}
{asp}
if instr(hreflang, "-") > 0 then
languagecode = split(hreflang, "-")(0)
regioncode = split(hreflang, "-")(1)
else
languagecode = hreflang
regioncode = ""
end if
if not colUsedHrefLangLanguages.exists(languagecode) then colUsedHrefLangLanguages.Add languagecode, server.createobject("scripting.dictionary")
colUsedHrefLangLanguages(languagecode).Add regioncode, url
if strcomp(hreflang, "nl-NL", vbTextCompare) = 0 then currentSaleChannelUrl = url
end if
next
for each hrefLangLanguage in colUsedHrefLangLanguages
if not colUsedHrefLangLanguages(hrefLangLanguage).Exists("") then 'region independent code has already been written
saleChannelUrl = ""
'choose region code to also use as region independent
if colUsedHrefLangLanguages(hrefLangLanguage).Exists(hrefLangLanguage) then 'region same as language, then use this
saleChannelUrl = colUsedHrefLangLanguages(hrefLangLanguage).Item(hrefLangLanguage)
else
'choose first
for each region in colUsedHrefLangLanguages(hrefLangLanguage)
saleChannelUrl = colUsedHrefLangLanguages(hrefLangLanguage).Item(region)
exit for
next
end if
{/asp}
{asp}
end if
next
{/asp}
{asp}if len(currentSaleChannelUrl) > 0 then{/asp}
{asp}end if{/asp}
{asp}
set thisProdVarAvailabilityTmp = oPageData.ObjectOf("ProductVariationsAvailability").ObjectOf("78")
if Int2Bool(thisProdVarAvailabilityTmp.BoolOf("IsDeleted")) then
availability = "https://schema.org/Discontinued"
elseif not Int2Bool(thisProdVarAvailabilityTmp.BoolOf("IsActive")) then
availability = "https://schema.org/Discontinued"
elseif not Int2Bool(thisProdVarAvailabilityTmp.BoolOf("IsAvailable")) then
availability = "https://schema.org/OutOfStock"
else
availability = "https://schema.org/InStock"
end if
{/asp}
{asp}
with oRenderedPage
if len(.PageTitle) > 0 then
{/asp}
{asp}=htmlencode(.PageTitle){/asp}
{asp}
if .Breadcrumbs.BackButtonApplicable then
set oUrl = new clsUrl
oURL.URL = request.servervariables("HTTP_REFERER")
prevDomain = oURL.Domain
if strcomp("pittigepepers.nl", prevDomain, vbTextCompare) = 0 then
{/asp}
Terug
|
{asp}
end if
end if
{/asp}
{asp}
for each iBreadcrumb in .Breadcrumbs.Items
set thisBreadcrumb = .Breadcrumbs.Items(iBreadcrumb)
if iBreadcrumb > 0 then{/asp}
{asp}
end if
end with
{/asp}
{asp}
set thisProductVariation = GetProductVariationJsonObject(78)
set thisProductVariationAvailability = oPageData.ObjectOf("ProductVariationsAvailability").ObjectOf("78")
CurrentLanguageId = "nl-NL"
{/asp}
In het hele Caraïbisch gebied houdt men van pittig eten. Behalve dat dergelijke gerechten zeer smaakvol zijn, heeft het toevoegen van chilipepers ook een meer practisch doel. Omdat in het tropische, warme, zwoele klimaat vlees aan snel bederf onderhevig was, moet het begin van bederf worden gemaskeerd door chilipepers. Bedenk dat men vroeger niet de luxe van koelkasten had en in tropische omstandigheden vlees al binnen een dag niet meer goed kon zijn.
De Caraïbische Zee wordt gevormd door enkele landen in noordoostelijk Zuid-Amerika en alle Antillen. De meest gebruikte chilipeper is de Habanero Oranje, maar er zijn vele plaatselijke varianten. In Suriname vormt bijvoorbeeld de ook hier bekende Madame Jeanette de basis van vele gerechten. Op de Bahama's en Jamaica is het de Scotch Bonnet (ook wel Bahamian, Bahama Mama, Jamaican Hot of Martinique Pepper) die de hoofdrol speelt.
Alle Habanero's en dus ook de Madame Jeanette en de Scotch Bonnet hebben een pittigheid van circa 250,000 tot 350,000 SHU's. Toch zijn er duidelijke verschillen de smaak: de Madame Jeanette staat bekend om zijn citrussmaak, terwijl de Schotch Bonnet wat zoeter smaakt met een hint van appel en kers.
De pepers zijn qua grootte ongeveer even groot als de Habanero, zo'n 2,5 cm in doorsnee en 4 cm lang. De naam Scotch Bonnet is gekozen omdat de chilipeper de vorm heeft van een Schotse militaire baret.
De Scotch Bonnet is onmisbaar in de Jerk keuken van Jamaica en de Kaaiman eilanden. In de Jerk keuken wordt vlees wordt ingewreven met een erg scherp kruidenmengsel, Jamaican Jerk Spice genaamd.
Vandaag de dag is de scotch bonnet wereldwijd populair.
{asp}
' ====================================================================
' Previous/next buttons
' ====================================================================
set colProdVars = server.createobject("Chilkat_9_5_0.JsonArray")
'prodvars from search results
if JsonType(oPageData, "Session") = "Object" then
with oPageData.ObjectOf("Session").ObjectOf("CachedSearch").ArrayOf("ProductVariations")
if .Size > 0 then
if .FindString("78", 0) > -1 then
for prodVarIndex = 0 to .Size -1
colProdVars.AddStringAt -1, .StringAt(prodVarIndex)
next
end if
end if
end with
end if
'all productvariations
if colProdVars.Size = 0 then
with oPageData.ObjectOf("ProductVariationsAvailability")
currentProdVarIndex = .IndexOf("78")
if currentProdVarIndex > -1 then
if Int2Bool(.ObjectAt(currentProdVarIndex).BoolOf("IsActive")) then
for prodVarIndex = 0 to .Size -1
if Int2Bool(.ObjectAt(prodVarIndex).BoolOf("IsActive")) then
colProdVars.AddStringAt -1, .NameAt(prodVarIndex)
end if
next
end if
end if
end with
end if
if colProdVars.Size > 1 then
currentProdVarIndex = colProdVars.FindString("78", 1)
prevProdVarIndex = currentProdVarIndex - 1
if prevProdVarIndex < 0 then prevProdVarIndex = colProdVars.Size - 1
prevProdVarId = colProdVars.StringAt(prevProdVarIndex)
nextProdVarIndex = currentProdVarIndex + 1
if nextProdVarIndex > (colProdVars.Size - 1) then nextProdVarIndex = 0
nextProdVarId = colProdVars.StringAt(nextProdVarIndex)
end if
if len(prevProdVarIndex) > 0 and len(nextProdVarId) > 0 then
{/asp}
{asp}
end if
function WritePreviousProductVariationButton(ProductVariationId)
set prodVarJsonObj = GetProductVariationJsonObject(ProductVariationId)
{/asp}
VORIGE
{asp}
end function
function WriteNextProductVariationButton(ProductVariationId)
set prodVarJsonObj = GetProductVariationJsonObject(ProductVariationId)
{/asp}
VOLGENDE
{asp}
end function
{/asp}
{asp}
packHeaderDone = 0
{/asp}
{asp}
if packHeaderDone then
{/asp}
{asp}
end if
{/asp}
Product beschrijving
In het hele Caraïbisch gebied houdt men van pittig eten. Behalve dat dergelijke gerechten zeer smaakvol zijn, heeft het toevoegen van chilipepers ook een meer practisch doel. Omdat in het tropische, warme, zwoele klimaat vlees aan snel bederf onderhevig was, moet het begin van bederf worden gemaskeerd door chilipepers. Bedenk dat men vroeger niet de luxe van koelkasten had en in tropische omstandigheden vlees al binnen een dag niet meer goed kon zijn.
De Caraïbische Zee wordt gevormd door enkele landen in noordoostelijk Zuid-Amerika en alle Antillen. De meest gebruikte chilipeper is de Habanero Oranje, maar er zijn vele plaatselijke varianten. In Suriname vormt bijvoorbeeld de ook hier bekende Madame Jeanette de basis van vele gerechten. Op de Bahama's en Jamaica is het de Scotch Bonnet (ook wel Bahamian, Bahama Mama, Jamaican Hot of Martinique Pepper) die de hoofdrol speelt.
Alle Habanero's en dus ook de Madame Jeanette en de Scotch Bonnet hebben een pittigheid van circa 250,000 tot 350,000 SHU's. Toch zijn er duidelijke verschillen de smaak: de Madame Jeanette staat bekend om zijn citrussmaak, terwijl de Schotch Bonnet wat zoeter smaakt met een hint van appel en kers.
De pepers zijn qua grootte ongeveer even groot als de Habanero, zo'n 2,5 cm in doorsnee en 4 cm lang. De naam Scotch Bonnet is gekozen omdat de chilipeper de vorm heeft van een Schotse militaire baret.
De Scotch Bonnet is onmisbaar in de Jerk keuken van Jamaica en de Kaaiman eilanden. In de Jerk keuken wordt vlees wordt ingewreven met een erg scherp kruidenmengsel, Jamaican Jerk Spice genaamd.
Vandaag de dag is de scotch bonnet wereldwijd populair.
Andere suggesties
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("92", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 92)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("181", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 181)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("53", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 53)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("149", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 149)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("118", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 118)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("200", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 200)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("154", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 154)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("198", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 198)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("197", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 197)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "Cart") = "Object" then
applicable = not (oPageData.ObjectOf("Cart").ArrayOf("CartItems").FindString("199", 1) > -1)
else
applicable = true
end if
if applicable then
htmlMarkup = GetProductVariationCardMarkup(oPageData, 199)
if len(htmlMarkup) > 0 then
{/asp}
{asp}=htmlMarkup{/asp}
{asp}
end if
end if
{/asp}
{asp}
if JsonType(oPageData, "RecentViewedProductVariations") = "Array" then
if oPageData.ArrayOf("RecentViewedProductVariations").Size > 0 then
{/asp}
Onlangs bekeken
{asp}
for i_recview = 0 to oPageData.ArrayOf("RecentViewedProductVariations").Size -1
ProductVariationIdRecent = oPageData.ArrayOf("RecentViewedProductVariations").StringAt(i_recview)
htmlMarkup = GetProductVariationCardMarkup(oPageData, ProductVariationIdRecent)
if len(htmlMarkup) > 0 then
{/asp}
{asp}
active = false
if JsonType(oPageData, "WishList") = "Object" then
active = (oPageData.ObjectOf("WishList").ArrayOf("Items").FindString("78", 1) > -1)
end if
{/asp}
{asp}end if{/asp}
Scoville Tabel
Onderstaande tabel geeft aan hoe heet diverse soorten chilipepers zijn.
Soort
Scoville units
Paprika
0
Sambal Oelek
2.000
Tabasco
2.500
Jalepeño
6.000
Spaanse peper
9.000
Madame Jeanette
100.000
Habanero oranje
300.000
Bhut Jolokia
1.000.000
Carolina Reaper
2.200.000
{asp}
set formMessagesJson = Server.CreateObject("Chilkat_9_5_0.JsonArray")
if JsonType(oPageData, "Form") = "Object" then
if Int2Bool(oPageData.ObjectOf("Form").HasMember("Errors")) then
with oPageData.ObjectOf("Form").ArrayOf("Errors")
for iErr = 0 to .Size -1
set thisErr = .ObjectAt(iErr)
formMessagesJson.AddObjectAt -1
with formMessagesJson.ObjectAt(formMessagesJson.Size - 1)
.AddStringAt -1, "HtmlId", thisErr.StringOf("HtmlId")
.AddStringAt -1, "MessageType", "Error"
.AddStringAt -1, "Message", thisErr.StringOf("ErrorMessage")
end with
next
end with
end if
end if
{/asp}
{asp}
set messagesJson = Server.CreateObject("Chilkat_9_5_0.JsonArray")
ShowMessageInfo = notnull(oPageData.StringOf("ShowMessageInfo"), request("ShowMessageInfo"))
if len(ShowMessageInfo) > 0 then
messagesJson.AddObjectAt -1
with messagesJson.ObjectAt(messagesJson.Size - 1)
.AddStringAt -1, "MessageType", "Info"
.AddStringAt -1, "Message", ShowMessageInfo
end with
end if
ShowMessageSuccess = notnull(oPageData.StringOf("ShowMessageSuccess"), request("ShowMessageSuccess"))
if len(ShowMessageSuccess) > 0 then
messagesJson.AddObjectAt -1
with messagesJson.ObjectAt(messagesJson.Size - 1)
.AddStringAt -1, "MessageType", "Success"
.AddStringAt -1, "Message", ShowMessageSuccess
end with
end if
ShowMessageError = notnull(oPageData.StringOf("ShowMessageError"), request("ShowMessageError"))
if len(ShowMessageError) > 0 then
messagesJson.AddObjectAt -1
with messagesJson.ObjectAt(messagesJson.Size - 1)
.AddStringAt -1, "MessageType", "Error"
.AddStringAt -1, "Message", ShowMessageError
end with
end if
{/asp}
Selecteer hieronder het juiste adres
{asp}
set geoJson = Server.CreateObject("Chilkat_9_5_0.JsonObject")
if JsonType(oPageData, "Session") = "Object" then
if JsonType(oPageData.ObjectOf("Session"), "SessionData") = "Object" then
geoJson.AddBoolAt -1, "GetGeoCountryCalled", oPageData.ObjectOf("Session").ObjectOf("SessionData").BoolOf("GetGeoCountryCalled")
geoJson.AddStringAt -1, "ShippingCountryId", oPageData.ObjectOf("Session").ObjectOf("SessionData").StringOf("ShippingCountryId")
end if
end if
if geoJson.Size = 0 then
geoJson.AddBoolAt -1, "GetGeoCountryCalled", false
geoJson.AddStringAt -1, "ShippingCountryId", ""
end if
{/asp}
{asp}
set sessionJson = Server.CreateObject("Chilkat_9_5_0.JsonObject")
sessionJson.AddBoolAt -1, "isVerified", Bool2Int(JsonType(oPageData, "Session") = "Object")
sessionJson.AddStringAt -1, "token", SHA512(Session.SessionId)
{/asp}
