{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 & _ "
" & vbcrlf & _ htmlencode(.ObjectOf("Text").StringOf(CurrentLanguageId23d)) & vbcrlf & _ "
" & vbcrlf & _ "
" & vbcrlf end with end if GetProductVariationCardMarkup = GetProductVariationCardMarkup & _ "" & vbcrlf & _ "" & vbcrlf & _ "" & vbcrlf & _ "
" & vbcrlf & _ "" & htmlencode(ProdVarJsonObj23d.ObjectOf("DescriptionFull").StringOf(CurrentLanguageId23d)) & "" & vbcrlf & _ "
" & vbcrlf & _ "
" & 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} oRenderedPage.PageTitle = "Veelgestelde vragen" oRenderedPage.Breadcrumbs.Add "Info", null, null oRenderedPage.Breadcrumbs.AddCurrent "Veelgestelde vragen", null, null {/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 "Faq0", "https://www.pittigepepers.nl/info/veelgestelde-vragen/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq1", "https://www.pittigepepers.nl/info/veelgestelde-vragen/1_hoe_lang_kun_je_zaden_bewaren/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq2", "https://www.pittigepepers.nl/info/veelgestelde-vragen/2_hoe_kan_ik_het_beste_de_zaden_bewaren/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq3", "https://www.pittigepepers.nl/info/veelgestelde-vragen/3_hoe_lang_kan_ik_verse_pepers_bewaren/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq4", "https://www.pittigepepers.nl/info/veelgestelde-vragen/4_hoe_kan_ik_het_beste_pepers_drogen/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq5", "https://www.pittigepepers.nl/info/veelgestelde-vragen/5_hoe_weet_ik_of_mijn_pepers_rijp_zijn/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq6", "https://www.pittigepepers.nl/info/veelgestelde-vragen/6_zijn_jalapenos_al_rijp_als_ze_groen_zijn/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq7", "https://www.pittigepepers.nl/info/veelgestelde-vragen/7_welke_voeding_kan_ik_het_beste_gebruiken_voor_mijn_peperplanten/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq8", "https://www.pittigepepers.nl/info/veelgestelde-vragen/8_zijn_jullie_zaden_van_goede_kwaliteit/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq9", "https://www.pittigepepers.nl/info/veelgestelde-vragen/9_waar_komen_jullie_zaden_vandaan/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq10", "https://www.pittigepepers.nl/info/veelgestelde-vragen/10_kan_ik_de_zaadjes_van_mijn_eigen_oogst_weer_gebruiken_om_te_zaaien/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq11", "https://www.pittigepepers.nl/info/veelgestelde-vragen/11_hoe_kan_ik_peperzaden_drogen/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq12", "https://www.pittigepepers.nl/info/veelgestelde-vragen/12_wanneer_kan_ik_het_beste_mijn_peperzaadjes_zaaien/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq13", "https://www.pittigepepers.nl/info/veelgestelde-vragen/13_kan_ik_zaadjes_uit_een_peper_van_de_supermarkt_gebruiken/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq14", "https://www.pittigepepers.nl/info/veelgestelde-vragen/14_kan_ik_bij_jullie_ook_zaden_in_bulk_kopen/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq15", "https://www.pittigepepers.nl/info/veelgestelde-vragen/15_hebben_jullie_zaden_van_pepper_x/||nl-NL" colSitemapPages.Item("webshop_nl").add "Faq16", "https://www.pittigepepers.nl/info/veelgestelde-vragen/16_verkopen_jullie_ook_zaden_van_de_peter_penis_pepper/||nl-NL" colSitemapPages.add "webshop_be", Server.CreateObject("scripting.dictionary") colSitemapPages.Item("webshop_be").add "Faq0", "https://www.pittigepepers.be/info/veelgestelde-vragen/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq1", "https://www.pittigepepers.be/info/veelgestelde-vragen/1_hoe_lang_kun_je_zaden_bewaren/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq2", "https://www.pittigepepers.be/info/veelgestelde-vragen/2_hoe_kan_ik_het_beste_de_zaden_bewaren/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq3", "https://www.pittigepepers.be/info/veelgestelde-vragen/3_hoe_lang_kan_ik_verse_pepers_bewaren/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq4", "https://www.pittigepepers.be/info/veelgestelde-vragen/4_hoe_kan_ik_het_beste_pepers_drogen/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq5", "https://www.pittigepepers.be/info/veelgestelde-vragen/5_hoe_weet_ik_of_mijn_pepers_rijp_zijn/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq6", "https://www.pittigepepers.be/info/veelgestelde-vragen/6_zijn_jalapenos_al_rijp_als_ze_groen_zijn/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq7", "https://www.pittigepepers.be/info/veelgestelde-vragen/7_welke_voeding_kan_ik_het_beste_gebruiken_voor_mijn_peperplanten/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq8", "https://www.pittigepepers.be/info/veelgestelde-vragen/8_zijn_jullie_zaden_van_goede_kwaliteit/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq9", "https://www.pittigepepers.be/info/veelgestelde-vragen/9_waar_komen_jullie_zaden_vandaan/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq10", "https://www.pittigepepers.be/info/veelgestelde-vragen/10_kan_ik_de_zaadjes_van_mijn_eigen_oogst_weer_gebruiken_om_te_zaaien/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq11", "https://www.pittigepepers.be/info/veelgestelde-vragen/11_hoe_kan_ik_peperzaden_drogen/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq12", "https://www.pittigepepers.be/info/veelgestelde-vragen/12_wanneer_kan_ik_het_beste_mijn_peperzaadjes_zaaien/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq13", "https://www.pittigepepers.be/info/veelgestelde-vragen/13_kan_ik_zaadjes_uit_een_peper_van_de_supermarkt_gebruiken/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq14", "https://www.pittigepepers.be/info/veelgestelde-vragen/14_kan_ik_bij_jullie_ook_zaden_in_bulk_kopen/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq15", "https://www.pittigepepers.be/info/veelgestelde-vragen/15_hebben_jullie_zaden_van_pepper_x/||nl-BE" colSitemapPages.Item("webshop_be").add "Faq16", "https://www.pittigepepers.be/info/veelgestelde-vragen/16_verkopen_jullie_ook_zaden_van_de_peter_penis_pepper/||nl-BE" colSitemapPages.add "webshop_eu", Server.CreateObject("scripting.dictionary") colSitemapPages.Item("webshop_eu").add "Faq0", "https://www.valenciaseedfarm.com/info/faq/||en" colSitemapPages.Item("webshop_eu").add "Faq1", "https://www.valenciaseedfarm.com/info/faq/1_how_long_can_you_store_seeds/||en" colSitemapPages.Item("webshop_eu").add "Faq2", "https://www.valenciaseedfarm.com/info/faq/2_how_should_i_best_store_the_seeds/||en" colSitemapPages.Item("webshop_eu").add "Faq3", "https://www.valenciaseedfarm.com/info/faq/3_how_long_can_i_store_fresh_peppers/||en" colSitemapPages.Item("webshop_eu").add "Faq4", "https://www.valenciaseedfarm.com/info/faq/4_how_can_i_best_dry_peppers/||en" colSitemapPages.Item("webshop_eu").add "Faq5", "https://www.valenciaseedfarm.com/info/faq/5_how_can_i_tell_if_my_peppers_are_ripe/||en" colSitemapPages.Item("webshop_eu").add "Faq6", "https://www.valenciaseedfarm.com/info/faq/6_are_jalapenos_ripe_when_they_are_green/||en" colSitemapPages.Item("webshop_eu").add "Faq7", "https://www.valenciaseedfarm.com/info/faq/7_what_is_the_best_fertilizer_to_use_for_my_pepper_plants/||en" colSitemapPages.Item("webshop_eu").add "Faq8", "https://www.valenciaseedfarm.com/info/faq/8_are_your_seeds_of_good_quality/||en" colSitemapPages.Item("webshop_eu").add "Faq9", "https://www.valenciaseedfarm.com/info/faq/9_where_do_your_seeds_come_from/||en" colSitemapPages.Item("webshop_eu").add "Faq10", "https://www.valenciaseedfarm.com/info/faq/10_can_i_use_seeds_from_my_own_harvest_to_sow/||en" colSitemapPages.Item("webshop_eu").add "Faq11", "https://www.valenciaseedfarm.com/info/faq/11_how_can_i_dry_pepper_seeds/||en" colSitemapPages.Item("webshop_eu").add "Faq12", "https://www.valenciaseedfarm.com/info/faq/12_when_is_the_best_time_to_sow_my_pepper_seeds/||en" colSitemapPages.Item("webshop_eu").add "Faq13", "https://www.valenciaseedfarm.com/info/faq/13_can_i_use_seeds_from_a_pepper_bought_at_the_supermarket/||en" colSitemapPages.Item("webshop_eu").add "Faq14", "https://www.valenciaseedfarm.com/info/faq/14_can_i_buy_seeds_in_bulk_from_you/||en" colSitemapPages.Item("webshop_eu").add "Faq15", "https://www.valenciaseedfarm.com/info/faq/15_do_you_sell_pepper_x_seeds/||en" colSitemapPages.Item("webshop_eu").add "Faq16", "https://www.valenciaseedfarm.com/info/faq/16_do_you_sell_peter_penis_pepper_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 if instr(url, "valenciaseedfarm") > -1 then '2026-05-18 toegevoegd, even lelijk defaulturl = url end if end if next if len(defaulturl) > 0 then {/asp} {asp} end if {/asp} {asp}if len(currentSaleChannelUrl) > 0 then{/asp} {asp}end if{/asp}
{asp} with oRenderedPage if len(.PageTitle) > 0 then {/asp}

{asp}=htmlencode(.PageTitle){/asp}

{asp} end if end with {/asp}

Veelgestelde vragen

Ja, je kunt zaadjes uit een peper die je in de supermarkt hebt gekocht gebruiken om te proberen nieuwe peperplanten te kweken.

Houd er rekening mee dat zaadjes uit supermarktpepers niet altijd dezelfde eigenschappen zullen hebben als de oorspronkelijke plant, omdat supermarktpepers vaak hybride variëteiten zijn. Desondanks is het een leuke en kosteneffectieve manier om te proberen je eigen pepers te kweken en te zien welke variaties er ontstaan.

{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} {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}