<% 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("ICO")) = "" or trim(request("DIC")) = "" or trim(request("OSOBA")) = "" or trim(request("FUNKCE")) = "" or trim(request("TELEFON")) = "" or trim(request("MOBIL")) = "" or trim(request("EMAIL")) = "" or trim(request("WWW")) = "" then Response.Redirect "error.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 = "www@box.cz" %> <% ThisPage = "objed.asp" %> <% REM Set up other variables for use on this page. %> <% email = "www@box.cz" %> Formular


Děkujeme za Vaši objednávku.

Zpět na úvodní stránku <% MyCDONTSMail.From= "www" MyCDONTSMail.To= "sabina.kravackova@sodatsw.cz" MyCDONTSMail.Subject="OBJEDNÁVKA 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) & "Nazev1 : "& request("KOD1") & Chr(13) & Chr(10) & "POCETKUSU1 : "& request("POCETKUSU1") & Chr(13) & Chr(10) & "Poznamka1 : " & request("CENA1") & Chr(13) & Chr(10) & "Nazev2 : " & request("KOD2") & Chr(13) & Chr(10) & "POCETKUSU2 : " & request("POCETKUSU2") & Chr(13) & Chr(10) & "Poznamka2 : " & request("CENA2") & Chr(13) & Chr(10) & "Nazev3 : " & request("KOD3") & Chr(13) & Chr(10) & "POCETKUSU3 : " & request("POCETKUSU3") & Chr(13) & Chr(10) & "Poznamka3 : " & request("CENA3") & Chr(13) & Chr(10) & "Nazev4 : " & request("KOD4") & Chr(13) & Chr(10) & "POCETKUSU4 : " & request("POCETKUSU4") & Chr(13) & Chr(10) & "Poznamka4 : " & request("CENA4") & Chr(13) & Chr(10) & "Nazev5 : " & request("KOD5") & Chr(13) & Chr(10) & "POCETKUSU5 : " & request("POCETKUSU5") & Chr(13) & Chr(10) & "Poznamka5 : " & request("CENA5") & Chr(13) & Chr(10) & "Nazev6 : " & request("KOD6") & Chr(13) & Chr(10) & "POCETKUSU6 : " & request("POCETKUSU6") & Chr(13) & Chr(10) & "Poznamka6 : " & request("CENA6") & Chr(13) & Chr(10) & "Nazev1 : " & request("KOD7") & Chr(13) & Chr(10) & "POCETKUSU1 : " & request("POCETKUSU7") & Chr(13) & Chr(10) & "Poznamka1 : " & request("CENA7") & Chr(13) & Chr(10) & "Nazev2 : " & request("KOD8") & Chr(13) & Chr(10) & "POCETKUSU2 : " & request("POCETKUSU8") & Chr(13) & Chr(10) & "Poznamka2 : " & request("CENA8") & Chr(13) & Chr(10) & "Nazev3 : " & request("KOD9") & Chr(13) & Chr(10) & "POCETKUSU3 : " & request("POCETKUSU9") & Chr(13) & Chr(10) & "Poznamka3 : " & request("CENA9") & Chr(13) & Chr(10) & "Nazev4 : " & request("KOD10") & Chr(13) & Chr(10) & "POCETKUSU4 : " & request("POCETKUSU10") & Chr(13) & Chr(10) & "Poznamka4 : " & request("CENA10") & Chr(13) & Chr(10) & "Nazev5 : " & request("KOD11") & Chr(13) & Chr(10) & "POCETKUSU5 : " & request("POCETKUSU11") & Chr(13) & Chr(10) & "Poznamka5 : " & request("CENA11") & Chr(13) & Chr(10) & "Nazev6 : " & request("KOD12") & Chr(13) & Chr(10) & "POCETKUSU6 : " & request("POCETKUSU12") & Chr(13) & Chr(10) & "Poznamka6 : " & request("CENA12") & 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 %> Objednávka byla správně odeslána a bude vyřízena v co nejkratším možném termínu. <% else %> <% = err.description %>Kontaktujte prosím webmastera

<% end if %>

<% end if %>