<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> - - <% = TagTitle %> - -
<% 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 %>
" id="<% = DoTemplate & "_M" %>">
<% end if %>