<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien %> <% Dim contactformulier dim titelcentrerenJN dim tabelbreedteCONTACT dim stuurcode, onderwerp dim nieuwsitem, nieuwsitemCONTACT dim cellpadding1 dim allstates, tempinput, maxcounter, thisstate, counter dim titeltonenJN Session("CONTACTFORMULIER_tekst_retourmail") = "" if Session("contactformulier") = "" then Session("contactformulier") = Session("CONTACTFORMULIER1") Session("verplichtevelden") = Session("CONTACTFORMULIER1_verplicht") end if %><% nieuwsitem = "" nieuwsitemCONTACT = "" legeregel = "NEE" if Session("paginaIDcontact") > 0 OR (Request.Querystring("paginaID") > " " AND (Request.Querystring("paginaID") + 0) > 0) then if Request.Querystring("paginaID") > 0 then Session("paginaIDcontact") = Request.Querystring("paginaID") Session("nieuwspaginaIDTF") = Session("paginaIDcontact") + 0 DATABASE_OPEN %> <% inputveld = nieuwsitem & "" %><% nieuwsitemCONTACT = outputveld & "" DATABASE_CLOSE end if nieuwsitem = "" nieuwsitemCONTACTbottom = "" if Session("paginaIDbottomcontact") > 0 OR (Request.Querystring("paginaIDbottom") > " " AND (Request.Querystring("paginaIDbottom") + 0) > 0) then if Request.Querystring("paginaIDbottom") > 0 then Session("paginaIDbottomcontact") = Request.Querystring("paginaIDbottom") Session("nieuwspaginaIDTF") = Session("paginaIDbottomcontact") + 0 DATABASE_OPEN %> <% inputveld = nieuwsitem & "" %><% nieuwsitemCONTACTbottom = outputveld & "" DATABASE_CLOSE end if if Session("contactformulier") > " " then waarde = " " waarde = waarde & "" waarde = waarde & "Uploaden..." waarde = waarde & "" Session("contactformulier") = Replace(Session("contactformulier"), "#BIJLAGE1", waarde) end if if Session("contactformulier") > " " then waarde = " " waarde = waarde & "" waarde = waarde & "Uploaden..." waarde = waarde & "" Session("contactformulier") = Replace(Session("contactformulier"), "#BIJLAGE2", waarde) end if if Session("contactformulier") > " " then waarde = " " waarde = waarde & "" waarde = waarde & "Uploaden..." waarde = waarde & "" Session("contactformulier") = Replace(Session("contactformulier"), "#BIJLAGE3", waarde) end if if Session("contactformulier") > " " then waarde = " " waarde = waarde & "" waarde = waarde & "Uploaden..." waarde = waarde & "" Session("contactformulier") = Replace(Session("contactformulier"), "#BIJLAGE4", waarde) end if contactformulier = Session("contactformulier") titelcentrerenJN = "JA" tabelbreedteCONTACT = 500 cellpadding1 = 0 titeltonenJN = "JA" if Session("WEBSITEID") = "MOZAIEK" then titelcentrerenJN = "NEE" tabelbreedteCONTACT = 500 end if if Session("WEBSITEID") = "VOXJUBILANS" then titelcentrerenJN = "NEE" tabelbreedteCONTACT = 700 cellpadding1 = 0 end if if Session("WEBSITEID") = "VITAMINEZEE" then titelcentrerenJN = "NEE" tabelbreedteCONTACT = 475 end if if Session("WEBSITEID") = "BAARSSEN" then titelcentrerenJN = "NEE" tabelbreedteCONTACT = 380 cellpadding1 = 0 end if if Session("WEBSITEID") = "JONKERBETON" then titelcentrerenJN = "NEE" tabelbreedteCONTACT = 725 end if if Session("WEBSITEID") = "VANDERWULP" then titelcentrerenJN = "JA" tabelbreedteCONTACT = 725 end if if Session("WEBSITEID") = "UME" then titelcentrerenJN = "NEE" tabelbreedteCONTACT = 650 end if if Request.Querystring("titelcentrerenJN") > " " then titelcentrerenJN = Request.Querystring("titelcentrerenJN") Session("titelcentrerenJNcontact") = titelcentrerenJN end if if Request.Querystring("tabelbreedte") > " " then tabelbreedteCONTACT = Request.Querystring("tabelbreedte") Session("tabelbreedtecontact") = tabelbreedteCONTACT end if if Request.Querystring("titel") = "NEE" then titeltonenJN = "NEE" Session("titelcontact") = "NEE" end if if Session("titelcentrerenJNcontact") > " " then titelcentrerenJN = Session("titelcentrerenJNcontact") if Session("tabelbreedtecontact") > " " then tabelbreedteCONTACT = Session("tabelbreedtecontact") if Session("titelcontact") > " " then titeltonenJN = Session("titelcontact") if tabelbreedteCONTACT > 550 then cellpadding1 = 0 %> <% if Session("TITEL_SUBKEUZE") > " " then Response.write Session("TITEL_SUBKEUZE") & " - " else if Session("TITEL_HOOFDKEUZE") > " " then Response.write Session("TITEL_HOOFDKEUZE") & " - " end if end if Response.write Session("SITE-NAAM") %> "> <% if Request.Querystring("optie1") > " " then Session("mail_optie1") = Request.Querystring("optie1") if Request.Querystring("optie2") > " " then Session("mail_optie2") = Request.Querystring("optie2") if Request.Querystring("optie3") > " " then Session("mail_optie3") = Request.Querystring("optie3") if nieuwsitemCONTACT > " " then Response.write nieuwsitemCONTACT end if if titelcentrerenJN <> "NEE" then Response.write "
" Response.write "
" if titeltonenJN = "JA" then Response.write "" Response.write "" Response.write "
" Response.write Session("#ONDERWERPALGEMEEN") Response.write "
 
" end if if Session("TOELICHTING_CONTACT") > " " then Response.write "" Response.write "" Response.write "
" inputveld = Session("TOELICHTING_CONTACT") & "" TEKSTNAARHTML Response.write outputveld Response.write "
 
" end if Response.write "
" if contactformulier > " " then ' Response.write "" Response.write contactformulier end if Response.write "" FOR i = 1 to maxopties waarde = "CONTACTFORMULIER_optie" & i if Session(waarde) > " " then Response.write "" Response.write "" end if NEXT if Session("CONTACTFORMULIER_boodschap1") > " " then Response.write "" Response.write "" end if %>
 
" Response.write "" Response.write "
" & Session("CONTACTFORMULIER_optie" & i) & "
 
" Response.write "" Response.write "
" & Session("CONTACTFORMULIER_boodschap1") & "
 

<% if titelcentrerenJN <> "NEE" then Response.write "
" if nieuwsitemCONTACTbottom > " " then Response.write "
" & nieuwsitemCONTACTbottom end if %> <% if Session("WEBSITEID") = "JEWEKA" then Session("#MENU-TITEL") = "CONTACT" Response.write "" end if %>