{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.be - " & 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 = "Zaaihandleiding" oRenderedPage.Breadcrumbs.AddCurrent "Zaaihandleiding", null, null oRenderedPage.ActiveMenuItem = "HowToChilliGrowingGuide" {/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 "HowGrow", "https://www.pittigepepers.nl/howto/zaaihandleiding/||nl-nl" colSitemapPages.add "webshop_be", Server.CreateObject("scripting.dictionary") colSitemapPages.Item("webshop_be").add "HowGrow", "https://www.pittigepepers.be/howto/zaaihandleiding/||nl-be" colSitemapPages.add "webshop_eu", Server.CreateObject("scripting.dictionary") colSitemapPages.Item("webshop_eu").add "HowGrow", "https://www.valenciaseedfarm.com/howto/chilligrowingguide/||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-BE", 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} with oRenderedPage if len(.PageTitle) > 0 then {/asp}

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

{asp} end if end with {/asp}

Zaadjes ontkiemen

Voor de kiemsnelheid is het goed om de zaadjes eerst ongeveer 24 uur in een glas water te laten weken op kamertemperatuur.

Voor het ontkiemen van de zaadjes zijn verschillende methoden:

Met keukenrol

Bevochtig een stukje keukenrol (of koffiefilter) door te besproeien met een plantenspuit. De keukenrol moet vochtig zijn, maar niet drijfnat.
Vouw de vochtige keukenrol dubbel. Plaats de zaden ongeveer 2,5 cm uit elkaar op de ene helft van het keukenpapier en vouw de andere helft over de zaden.

Vervolgens dient de keukenrol in een boterhamzakje of een gripzakje te worden gedaan. Laat hierbij een opening vrij van enkele cm voor ventilatie.
Plaats het zakje op een warme, tochtvrije plek en niet in direct zonlicht. Het zakje houdt warmte en vocht vast en creëert zo een minikas voor de peperzaadjes. De ideale temperatuur voor het ontkiemen van peperzaad ligt tussen 25 en 30 graden. Iets koeler is ook mogelijk, maar dan zou het ontkiemen wat langer kunnen duren.

Controleer de zaadjes dagelijks op ontkieming en zorg ervoor dat het papier nog steeds vochtig is. Als deze uitdroogt, vernevel deze dan opnieuw.
Afhankelijk van de soort, zullen de meeste peperzaden binnen een week ontkiemen, maar meestal nooit langer dan 10 dagen.

Na ontkieming is het tijd om de zaden over te plaatsen in een potje. Gekiemde zaadjes zijn erg kwetsbaar, dus wees voorzichtig met deze stap. Gebruik een pincet om de zaden bij de zaadlichamen vast te pakken, of gebruik een schaar om de keukenrol rond de gekiemde zaden te knippen. Gebruik je duim om gaten in de potgrond te maken en breng vervolgens een gekiemd peperzaadje over in het gat. Bedek voorzichtig met droge potgrond. Benevel het grondoppervlak.

Met Turftabletten

Plaats de tabletten rechtop, dat wil zeggen de kant zonder netje naar boven. Hierna flink water toevoegen, waardoor de tabletten in enkele minuten zullen uitzetten tot een hoogte van ongeveer 5 cm. Eenmaal gehydrateerd, plaats je het zaadje bovenin (ongeveer 5 mm diep), en zorg dat je het weer bedekt.

Als het plantje is ontkiemd, kan deze nog een poosje doorgroeien in de turftablet. Wanneer het plantje een aantal cm hoog is, kun je deze overpotten. Het is niet nodig om het netje te verwijderen, deze kan zo in de aarde. De wortels zullen hier makkelijk doorheen groeien.

Direct in een potje

Vul een kleine potje met de potgrond. Het is verstandig om wat water in het potje te doen, voordat je het zaadje in de aarde legt. Houd er rekening mee dat het kan gebeuren dat een zaadje niet ontkiemt. Plant daarom bijvoorbeeld 4 zaadjes als je 3 planten wilt kweken.

Nadat de grond vochtig is gemaakt door water, kun je het zaad in de grond zetten. Zorg ervoor dat je het zaadje niet te diep in de grond steekt (ongeveer 5 mm). Het is nu belangrijk om de grond wat vochtig te houden totdat het zaadje is ontkiemd.

Een goede manier is om kleine gaatjes in een doorzichtige plastic zak te maken en deze over de pot te plaatsen. Met een elastiekje kun je de plastic zak vastmaken aan de pot. Vergeet niet om de plastic zak van tijd tot tijd te openen, anders kan het zaadje gaan schimmelen of rotten. Je wilt je kostbare zaden niet doden!

Vaak zullen de zaadjes na 7 tot 14 dagen ontkiemen, afhankelijk van de soort. Het gebeurt regelmatig dat dit wat langer duurt, bijvoorbeeld 3 tot 4 weken. Raak niet in paniek als na 3 weken de zaadjes nog steeds niet zijn uitgekomen. Er zijn tal van factoren die dit beïnvloeden: temperatuur van de grond en lucht, de vochtigheid en de diepte van het zaadje.

Je kunt ervoor kiezen om de plant binnen of buiten te laten groeien.

Binnen laten groeien

Je kunt je planten binnen laten groeien, en veel mensen doen dit al jaren met succes. Niet elk type peperplant zal net zo succesvol zijn als andere, maar je hebt wel opties. Kleinere peperplanten, zoals sierplanten, zullen effectiever binnenshuis groeien, omdat ze niet zoveel ruimte nodig hebben als een grotere plant.

Zoek een goede en warme zonnige vensterbank. Bij voorkeur minimaal 6 uur zonlicht, hoe meer hoe beter. Van nature zijn vrijwel alle soorten afkomstig uit een tropische omgeving. De planten dienen te worden overgepot wanneer de groei erin begint te komen.

Buiten laten groeien

Om peperplanten buiten te kweken, dienen de zaadjes bij voorkeur al in januari/februari te worden geplant. Let op, je moet er wel zeker van zijn dat er geen nachtvorst meer zal zijn, hier kunnen de zaadjes/plantjes van doodgaan.

Peperplanten groeien aan het begin een beetje traag, dus het is het beste om de plantjes 8 tot 12 weken binnen te laten groeien, voordat je ze naar buiten verplaatst.

Als er geen kans meer op nachtvorst is, kun je de peperplanten in je tuin op een gekozen plek zetten. Kies een locatie met veel zonlicht, want de planten houden van de zon.

Hoeveel ruimte hebben peperplanten nodig?

Ruimte de planten 20 - 30 centimeter uit elkaar. De meeste planten kunnen uiteindelijk uitgroeien tot een meter hoog.

Voeding

Je planten voeden kan helpen, vooral als je ze binnenshuis kweekt. In gewone potgrond zit voldoende voeding voor de eerste 2 maanden, daarna is het aan te raden om bij te voeden. Chilli Focus Pepper of een vergelijkbaar plantaardig voedsel of meststof wordt aanbevolen voor het voeden van de planten.

Temperatuur

Veel peperplanten geven de voorkeur aan de warmere klimaten, maar sommige soorten groeien het beste bij gematigdere temperaturen. Capsicum annuums groeien het best met veel zon en matige vochtigheid, terwijl Capsicum-chinense het best groeit bij gematigde temperaturen en een hogere luchtvochtigheid. De meeste planten geven de voorkeur aan koelere temperaturen in de avond.

Licht

Licht is altijd een belangrijke factor. Plaats je planten in de buurt van fel verlichte ramen met veel zonlicht. Weinig zonlicht resulteert in smalle stelen.

Water geven

Zorg ervoor dat je goed water geeft als je binnen de pepers kweekt. Geef water wanneer de grond enigszins droog is, maar niet te veel water omdat de wortels kunnen gaan rotten, waardoor de peperplant wordt gedood. Water tot de grond enigszins vochtig is.

Luchtkwaliteit

Als je binnen kweekt, is de luchtkwaliteit is erg belangrijk. Je wilt de lucht niet vervuilen met rook of andere irriterende stoffen, omdat dit de groei van je chili peperplanten kan beïnvloeden.

Als je buiten kweekt, Zorg dan altijd dat je eventueel onkruid verwijderd. Houd ten slotte je peperplanten in de gaten. Sommige kunnen sneller geoogst worden dan andere, maar veel soorten hebben een tijdje nodig.

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