<%
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
dim zendbuttonTONEN
zendbuttonTONEN = "JA"
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 "