<% REM Previous line is used to work around proxy caching problems. %>
<%REM Zkontroluje jestli jsou vyplnena pole.%>
<%if trim(request("NAZEV_FIRMY_NEED")) = "" or trim(request("ADRESA_NEED")) = "" or trim(request("OSOBA")) = "" or trim(request("EMAIL")) = "" then Response.Redirect "errortri.htm"%>
<% REM Set up error handling. %>
<% on error resume next %>
<% REM Set up CDONTS component
Dim MyBody
Dim MyCDONTSMail %>
<% Set MyCDONTSMail = CreateObject("CDONTS.NewMail") %>
<% REM If object isn't found, don't display full page. %>
<% if IsObject(MyCDONTSMail) = FALSE then %>
<blockquote>
<b>CDONTS komponenta musφ b²t nainstalovßna na poΦφtaΦi, kde je ulo₧ena tato strßnka, kontaktujte prosφm <a href="mailto:info@sodatsw.cz">webmastera</a></b><p>
</blockquote>
<% else %>
<% REM SETUP User changeable variables for use on this page. %>
<% REM WebMaster is the complete e-mail address of the person who %>
<% REM receives the user's feedback. %>
<% REM ThisPage is the name of this page. %>
<% WebMaster = "info@sodatsw.cz" %>
<% ThisPage = "trialagn.asp" %>
<% REM Set up other variables for use on this page. %>
<% email = "info@sodatsw.cz" %>
<html>
<head>
<title>Formular</title>
</head>
<body bgColor="#FFFFFF">
<font face="Times New Roman">
<div align="center">
<p><br>
<b>D∞kujeme Vßm za VßÜ zßjem.</b></p>
<p><a href="index.htm">Zp∞t na ·vodnφ strßnku</a></p>