<%
Dim DoClass, DoLink, VorigeM1, VorigeM2, VorigeM3, VorigeM4, VorigeFid
Dim ShowOpen, Title1, Title2, Title3, Title4, Title5
if XmlMenu = 1 then %>
<% else %>
<% end if %>
<% '= DoTemplate %>
<%
if arrTemplateShowagenda(ContentTemplateId) = true then
%>
" id="<% = DoTemplate & "_AK" %>">
<%
end if
for i = 1 to 6
if arrTemplateShowtext(ContentTemplateId, i) = true then
%>
" id="<% = DoTemplate & "_T" & i %>"><%
if i = 1 then
if request.QueryString("d") <> "" then
%><%
else
Response.Write(ContentText1)
end if
end if
if i = 2 then Response.Write(ContentText2)
if i = 3 then Response.Write(ContentText3)
if i = 4 then Response.Write(ContentText4)
if i = 5 then Response.Write(ContentText5)
if i = 6 then Response.Write(ContentText6)
'response.Write("---" & toonlang & "---" & form_id & "---")
if form_id <> 0 AND i = 1 then
if request.Form("action") = "sendmail" then
Dim iMail, MailText
For iMail = 1 to Request.Form.Count
MailText = MailText & chr(10) & Request.Form.Key(iMail) & ": " & Request.Form.Item(iMail)
next
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.From = SendMailTo
Mail.AddAddress SendMailTo
'Mail.AddBCC "webmaster@atcomm.be"
Mail.Subject = "Formulier verzonden vanop pagina: " & ContentTitle
Mail.Body = replace(MailText,chr(10)," ")
Mail.AltBody = MailText
Mail.IsHTML = True
Mail.ContentTransferEncoding = "quoted-printable"
On Error Resume Next
Mail.Queue = True
Mail.Send
If Err <> 0 Then
if toonlang = "nl" then
Response.Write "Fout bij het versturen naar: " & SendMailTo & " "
elseif toonlang = "fr" then
Response.Write "Fout bij het versturen naar: " & SendMailTo & " "
elseif toonlang = "en" then
Response.Write "Fout bij het versturen naar: " & SendMailTo & " "
elseif toonlang = "du" then
Response.Write "Fout bij het versturen naar: " & SendMailTo & " "
elseif toonlang = "sp" then
Response.Write "Fout bij het versturen naar: " & SendMailTo & " "
elseif toonlang = "it" then
Response.Write "Fout bij het versturen naar: " & SendMailTo & " "
end if
else
if toonlang = "nl" then
Response.Write "Uw bericht is verzonden "
elseif toonlang = "fr" then
Response.Write "Uw bericht is verzonden "
elseif toonlang = "en" then
Response.Write "Uw bericht is verzonden "
elseif toonlang = "du" then
Response.Write "Uw bericht is verzonden "
elseif toonlang = "sp" then
Response.Write "Uw bericht is verzonden "
elseif toonlang = "it" then
Response.Write "Uw bericht is verzonden "
end if
End If
Mail = 0
else
if toonlang = "nl" then
%><%
elseif toonlang = "fr" then
%><%
elseif toonlang = "en" then
%><%
elseif toonlang = "du" then
%><%
elseif toonlang = "sp" then
%><%
elseif toonlang = "it" then
%><%
end if
end if
end if
%>
<%
end if
next
for i = 1 to 6
if arrTemplateShowpicture(ContentTemplateId, i) = true then
%>
" id="<% = DoTemplate & "_F" & i %>"><%
if i = 1 AND ContentFotofile1 <> "" then Response.Write("")
if i = 2 AND ContentFotofile2 <> "" then Response.Write("")
if i = 3 AND ContentFotofile3 <> "" then Response.Write("")
if i = 4 AND ContentFotofile4 <> "" then Response.Write("")
if i = 5 AND ContentFotofile5 <> "" then Response.Write("")
if i = 6 AND ContentFotofile6 <> "" then Response.Write("")
%>
<%
end if
next
if arrTemplateShowalbum(ContentTemplateId) = true then
if arrTemplateShowalbumAsSlideshow(ContentTemplateId) = true then
%>
" id="<% = DoTemplate & "_S"%>">
<%
else
%>
" id="<% = DoTemplate & "_A_bigfoto"%>">
" id="<% = DoTemplate & "_A_thumbs" %>">
<%
end if
end if
if arrTemplateShowmedia(ContentTemplateId) = true then
%>