<%@ Language=VBScript %> <% Session.Timeout=1440 Dim CurrentPage Dim PageID If request.Cookies("descan_pagename") = "personalia" Then CurrentPage = 1 ElseIf request.Cookies("descan_pagename") = "mest" Then CurrentPage = 2 ElseIf request.Cookies("descan_pagename") = "energie" Then CurrentPage = 3 ElseIf request.Cookies("descan_pagename") = "financieel" Then CurrentPage = 4 ElseIf request.Cookies("descan_pagename") = "overview" Then CurrentPage = 5 End If If request.form("Exp_WindKlein") = "Details" Then CurrentPage = 6 ElseIf request.form("Exp_WindGroot") = "Details" Then CurrentPage = 7 ElseIf request.form("Exp_ZonColl") = "Details" Then CurrentPage = 8 ElseIf request.form("Exp_PV_Cellen") = "Details" Then CurrentPage = 9 ElseIf request.form("Exp_Gewassen") = "Details" Then CurrentPage = 10 ElseIf request.form("Exp_Energiedak") = "Details" Then CurrentPage = 11 ElseIf request.form("Exp_MestvergistingEigen") = "Details" Then CurrentPage = 12 ElseIf request.form("Exp_MestvergistingAndere") = "Details" Then CurrentPage = 13 ElseIf request.form("Exp_CoVergistingEigen") = "Details" Then CurrentPage = 14 ElseIf request.form("Exp_CoVergistingAndere") = "Details" Then CurrentPage = 15 ElseIf request.form("Exp_Verbranding") = "Details" Then CurrentPage = 16 ElseIf request.form("Exp_Bioolie_Voertuig") = "Details" Then CurrentPage = 17 ElseIf request.form("Exp_Bioolie_Tractor") = "Details" Then CurrentPage = 18 ElseIf request.form("Exp_Warmtepomp") = "Details" Then CurrentPage = 19 ElseIf request.form("Exp_Melkkoeltank") = "Details" Then CurrentPage = 20 ElseIf request.form("Exp_Aquifer") = "Details" Then CurrentPage = 21 ElseIf request.form("Exp_Vert_BodemWarmteWisselaar") = "Details" Then CurrentPage = 22 ElseIf request.form("Exp_Horz_BodemWarmteWisselaar") = "Details" Then CurrentPage = 23 ElseIf request.form("Exp_Regenwater") = "Details" Then CurrentPage = 24 End If If request.form("BackPageGistEigen") = "Terug" Then CurrentPage = 12 ElseIf request.form("BackPageGistAndere") = "Terug" Then CurrentPage = 13 ElseIf request.form("BackPage") = "Terug na het overzicht" Then CurrentPage = 100 End If If CurrentPage >= 6 And CurrentPage <= 24 Or CurrentPage = 100 Then %> <% End If If request.form("ExtraInfoMestStandaard") = "Klik hier voor extra gegevens" Or request.form("ExtraInfoMestMaxKippenMest") = "Klik hier voor extra gegevens" Or request.form("ExtraInfoVergistingStandaard") = "Klik hier voor extra gegevens" Or request.form("ExtraInfoVergistingMaxMais") = "Klik hier voor extra gegevens" Then CurrentPage = 25 End If If CurrentPage = "" Then CurrentPage = 1 End If Session("CurrentPage") = CurrentPage 'Sla alle ingevoerde data op van de gebruiker. Call StoreUserData %> <% Sub StoreUserData Dim FormKey Dim ValidInput Dim ErrorMSG, ErrorMSG2, ErrorMSG3, ErrorMSG4 Dim FormValue ValidInput = true For Each FormKey in Request.Form FormValue = Server.HTMLEncode(Request.Form.Item(FormKey)) If FormValue = "" And Not FormKey="bedrijfsnaam" And Not FormKey="contactpersoon" And Not FormKey="adres" And Not FormKey="postcodegebied" And Not FormKey="postcodeaanv" And Not FormKey="stad" And Not FormKey="telefoonnummer" And Not FormKey="faxnummer" And Not FormKey="emailadres" Then FormValue = 0 End If ' Alleen sessie waarden opslaan van de eerste 5 pagina's If CurrentPage < 6 Then Session(FormKey) = FormValue End If If FormKey = "bedrijfsnaam" Or FormKey = "contactpersoon" Or FormKey = "postcodegebied" Or FormKey = "telefoonnummer" Or FormKey = "emailadres" Then If Session(FormKey) = "" Then ValidInput = false ErrorMSG = ErrorMSG + " " + FormKey End If End If If CurrentPage = 2 Or CurrentPage = 1 Then If FormKey = "postcodegebied" Then Call NumberCheckPostCode(Session(FormKey)) If Session("ValidInput") = false Then ValidInput = false ErrorMSG2 = " alleen cijfers bij een postcode invullen." End If ElseIf FormKey = "telefoonnummer" Then Call Tel_FaxNRCheck(Session(FormKey)) If Session("ValidInput") = false Then ValidInput = false ErrorMSG3 = ErrorMSG3 + " " + FormKey End If ElseIf FormKey = "faxnummer" And Not FormValue = "" Then Call Tel_FaxNRCheck(Session(FormKey)) If Session("ValidInput") = false Then ValidInput = false ErrorMSG3 = ErrorMSG3 + " " + FormKey End If ElseIf FormKey = "emailadres" Then Call StringEmailCheck(Session(FormKey)) If Session("ValidInput") = false Then ValidInput = false ErrorMSG3 = ErrorMSG3 + " " + FormKey End If ElseIf Not FormKey = "NextPage" Then Call StringCheck(Session(FormKey)) If Session("ValidInput") = false Then ValidInput = false ErrorMSG3 = ErrorMSG3 + " " + FormKey End If End If ElseIf CurrentPage => 2 And CurrentPage < 6 And Not FormKey = "NextPage" And Not FormKey = "eigen_water_pomp" And Not FormKey = "aansluiting_label" And Not FormKey = "extrasubs" And Not FormKey = "melkkoeltank_winning" And Not FormKey = "nieuw_veedrinkbak" And Not FormKey = "vloerverwarming_stallen" Then Call GlobalNumberCheck(Session(FormKey)) If Session("ValidInput") = false Then ValidInput = false ErrorMSG4 = ErrorMSG4 + " " + FormKey End If End If Next If ValidInput = true Then Call PageRedirect Else If CurrentPage = 2 Or CurrentPage = 1 Then Call DisplayPersonaliaPage If Not ErrorMSG = "" Then %> <% ElseIf Not ErrorMSG2 = "" Then %> <% ElseIf Not ErrorMSG3= "" Then %> <% End If Else If CurrentPage = 3 Then Call DisplayMestPage ElseIf CurrentPage = 4 Then Call DisplayEnergiePage ElseIf CurrentPage = 5 Then Call DisplayFinancieelPage End If If Not ErrorMSG4 = "" Then %> <% ErrorMSG4 = "" End If End If End If End Sub %> <% Sub PageRedirect Select Case CurrentPage Case 1 Call DisplayPersonaliaPage Call SaveUserSettings Case 2 Call DisplayMestPage Call SaveUserSettings Case 3 Call DisplayEnergiePage Call SaveUserSettings Case 4 Call DisplayFinancieelPage Call SaveUserSettings Case 5 Call SaveUserSettings Call BerekenAlles Call DisplayOverview Case 6 Call DetailsWindKlein Case 7 Call DetailsWindGroot Case 8 Call DetailsZonColl Case 9 Call DetailsPVCellen Case 10 Call DetailsGewassen Case 11 Call DetailsEnergiedak Case 12 Session("ExtraInfoStr") = "Mestvergisting standaard" Call DetailsMestvergistingStandaard Case 13 Session("ExtraInfoStr") = "Mestvergisting met maximaal kippenmest" Call DetailsMestvergistingKippenmest Case 14 Session("ExtraInfoStr") = "Covergisting standaard" Call DetailsCoVergistingStandaard Case 15 Session("ExtraInfoStr") = "Covergisting met maximaal snijmaïs" Call DetailsCoVergistingSnijmais Case 16 Call DetailsVerbranding Case 17 Call DetailsBioOlieVoertuig Case 19 Call DetailsWarmtepomp Case 20 Call DetailsMelkkoeltank Case 21 Call DetailsAquifer Case 22 Call DetailsVertBodemWarmteWisselaar Case 23 Call DetailsHorzBodemWarmteWisselaar Case 24 Call DetailsRegenwater Case 25 Call ExtraInfoBiomassa Case 100 Call DisplayOverview End Select %> <% End Sub %> <% Sub PageReset If Request.Cookies("resettype") = "full" Then Call ResetValues End If End Sub %> <% Sub ResetValues Session("diersoort1") = "0" Session("diersoort2") = "0" Session("diersoort3") = "0" Session("aantaldieren1") = "" Session("aantaldieren2") = "" Session("aantaldieren3") = "" Session("mndOpStal1") = "0" Session("mndOpStal2") = "0" Session("mndOpStal3") = "0" Session("bedrijfTypemest1") = "0" Session("bedrijfTypemest2") = "0" Session("bedrijfTypemest3") = "0" Session("biomassasoort1") = "0" Session("biomassasoort2") = "0" Session("hoeveelheidbiomassa1") = "" Session("hoeveelheidbiomassa2") = "" Session("eenheidbiomassa1") = "0" Session("eenheidbiomassa2") = "0" Session("aanvoerkostenbiomassa1") = "" Session("aanvoerkostenbiomassa2") = "" Session("eenheidbiomassageld1") = "0" Session("eenheidbiomassageld2") = "0" Session("bedrijfTypebiomassa1") = "0" Session("bedrijfTypebiomassa2") = "0" Session("aardgas") = "" Session("propaangas") = "" Session("el_nt") = "" Session("el_lt") = "" Session("eigen_water_pomp") = "" Session("waterverbruik") = "" Session("aansluiting") = "" Session("aansluiting_select") = "0" Session("looptijd") = "10" Session("rente") = "0" Session("dakoppervlak") = "" Session("melkkoeltank_winning") = "" Session("inhoud_melktank") = "" Session("nieuw_veedrinkbak") = "" Session("nieuw_veedrinkbak_afstand") = "" Session("droging_soorten_gewas") = "0" Session("hoeveelheid_gewassen_drogen") = "" Session("aant_biggen") = "" Session("vloerverwarming_stallen") = "" Session("bioolie_hectares") = "" End Sub %>