{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 = "valenciaseedfarm.com - " & 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, "Grow your own hot peppers easily! Find many types of chili pepper seeds here. From mild to extremely hot.") 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 = "Growing Guide" oRenderedPage.Breadcrumbs.AddCurrent "Growing Guide", 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, "en-GB", 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}

Grow seeds

For the germination speed, it is good to first soak the seeds in a glass of water at room temperature for about 24 hours.

There are several methods for germinating the seeds:

Using paper towel

Moisten a piece of paper towel (or coffee filter) by spraying with a plant sprayer. The paper should be damp, but not soaking wet.
Fold the damp paper towel in half. Place the seeds about an inch apart on one half of the paper towel and fold the other half over the seeds.

The paper towel should then be placed in a sandwich bag or a zip-lock bag. Leave an opening of a few cm for ventilation.
Place the bag in a warm, draft-free place and out of direct sunlight. The bag retains heat and moisture and thus creates a mini greenhouse for the pepper seeds. The ideal temperature for germination of pepper seed is between 25 and 30 degrees. A little cooler is also possible, but then germination could take a little longer.

Check the seeds daily for germination and make sure the paper is still moist. If it dries out, mist it again.
Depending on the species, most pepper seeds will germinate within a week. This should take no longer than 10 days.

After germination it is time to transfer the seeds to a pot. Sprouted seeds are very fragile, so be careful with this step. Use tweezers to grab the seeds by the seed bodies, or use scissors to trim the paper towel around the sprouted seeds. Use your thumb to make holes in the potting soil, then transfer a sprouted pepper seed into the hole. Carefully cover with dry potting soil. Mist the ground surface.

Using Peat Pellets

Place the tablets upright, ie the non-net side up. Then add plenty of water, so that the tablets will expand in a few minutes to a height of about 5 cm. Once hydrated, place the seed at the top (about 5mm deep), making sure to cover it again.

When the plant has germinated, it can continue to grow in the peat tablet for a while. When the plant is a few cm high, you can repot it. It is not necessary to remove the net, it can go straight into the soil. The roots will easily grow through this.

Directly in a jar

Fill a small pot with the potting soil. It is wise to put some water in the pot before you put the seed in the soil. Keep in mind that it can happen that a seed does not germinate. So plant 4 seeds, for example, if you want to grow 3 plants.

After the soil has been moistened by water, you can put the seed in the ground. Make sure you don't put the seed too deep in the soil (about 5 mm). It is now important to keep the soil slightly moist until the seed has germinated.

A good way is to make small holes in a clear plastic bag and place it over the pot. You can attach the plastic bag to the pot with a rubber band. Don't forget to open the plastic bag from time to time, otherwise the seed may mold or rot. You don't want to kill your precious seeds!

Often the seeds will germinate after 7 to 14 days, depending on the variety. It regularly happens that this takes a little longer, for example 3 to 4 weeks. Do not panic if after 3 weeks the seeds still have not germinated. There are many factors that influence this: temperature of the soil and air, the humidity and the depth of the seed.

You can choose to grow the plant indoors or outdoors.

Growing indoors

You can grow your plants indoors, and many people have been doing this successfully for years. Not every type of pepper plant will be as successful as others, but you do have options. Smaller pepper plants, such as ornamentals, will grow more effectively indoors because they don't require as much space as a larger plant.

Find a good and warm sunny windowsill. Preferably at least 6 hours of sunlight, the more the better. By nature, almost all species come from a tropical environment. The plants should be repotted when they start to grow.

Growing outside

To grow pepper plants outdoors, the seeds should preferably be planted in January/February. Please note, you have to be sure that there will be no more night frosts, this can kill the seeds/plants.

Pepper plants are a little slow growing at first, so it's best to grow the plants indoors for 8 to 12 weeks before moving them outside.

When there is no longer a chance of night frost, you can place the pepper plants in your garden in a chosen spot. Choose a location with plenty of sunlight, as the plants love the sun.

How much space do pepper plants need?

Space the plants 20 - 30 inches apart. Most plants can eventually grow to a meter in height.

Nutrition

Feeding your plants can help, especially if you grow them indoors. Ordinary potting soil contains sufficient nutrition for the first 2 months, after that it is recommended to add additional nutrients. Chilli Focus Pepper or a similar plant food or fertilizer is recommended for feeding the plants.

Temperature

Many pepper plants prefer the warmer climates, but some varieties grow best in more moderate temperatures. Capsicum annuums grow best with plenty of sun and moderate humidity, while Capsicum chinense grows best in moderate temperatures and higher humidity. Most plants prefer cooler evening temperatures.

Light

Light is always an important factor. Place your plants near brightly lit windows with lots of sunlight. Little sunlight results in narrow stems.

Watering

Be sure to water well when growing the peppers indoors. Water when the soil is slightly dry, but don't overwater as the roots can rot, killing the pepper plant. Water until the soil is slightly moist.

Air quality

When growing indoors, air quality is very important. You don't want to pollute the air with smoke or other irritants, as this can affect the growth of your chili pepper plants.

When growing outdoors, always make sure to remove any weeds. Finally, keep an eye on your pepper plants. Some can be harvested faster than others, but many varieties take a while.

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