<% Response.Expires = 0 %> <% 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 %>
CDONTS komponenta musí být nainstalována na počítači, kde je uložena tato stránka, kontaktujte prosím webmastera

<% 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 = "trialoadial.asp" %> <% REM Set up other variables for use on this page. %> <% email = "info@sodatsw.cz" %> Formular


Děkujeme Vám za Váš zájem.

Zpět na úvodní stránku

<% MyCDONTSMail.From= "www" MyCDONTSMail.To= "adela.talasova@sodatsw.cz" MyCDONTSMail.Subject="TRIAL-OptimAccess Dial ze Serveru Czech" MyBody = ("NAZEV FIRMY :" & request("NAZEV_FIRMY_NEED") & Chr(13) & Chr(10) & "ADRESA : "& request("ADRESA_NEED") & Chr(13) & Chr(10) & "ICO : " & request("ICO") & Chr(13) & Chr(10) & "DIC : " & request("DIC") & Chr(13) & Chr(10) & "OSOBA : " & request("OSOBA") & Chr(13) & Chr(10) & "FUNKCE : " & request("FUNKCE") & Chr(13) & Chr(10) & "TELEFON : " & request("TELEFON") & Chr(13) & Chr(10) & "MOBIL : " & request("MOBIL") & Chr(13) & Chr(10) & "EMAIL : " & request("EMAIL") & Chr(13) & Chr(10) & "WWW : " & request("WWW") & Chr(13) & Chr(10) & "KOD1 : " & request("KOD1") & Chr(13) & Chr(10) & "POCETKUSU1 :" & request("POCETKUSU1") & Chr(13) & Chr(10) & "CENA1 : " & request("CENA1") & Chr(13) & Chr(10) & "KOD2 : " & request("KOD2") & Chr(13) & Chr(10) & "POCETKUSU2 :" & request("POCETKUSU2") & Chr(13) & Chr(10) & "CENA2 : " & request("CENA2") & Chr(13) & Chr(10) & "KOD3 : " & request("KOD3") & Chr(13) & Chr(10) & "POCETKUSU3 :" & request("POCETKUSU3") & Chr(13) & Chr(10) & "CENA3 : " & request("CENA3") & Chr(13) & Chr(10)) if MyBody then feedback=true MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing %> <% REM Check if feedback mail was successful. %>

<% if feedback = TRUE then %> Vaše data byla řádně odeslána. <% else %> <% = err.description %>. Kontaktujte prosím webmastera

<% end if %>

<% end if %>