home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Komercni / OptimAccess / objed.asp < prev    next >
Text File  |  2002-09-24  |  5KB  |  74 lines
  1. <% Response.Expires = 0 %>
  2. <% REM Previous line is used to work around proxy caching problems. %> 
  3.  
  4. <%REM Zkontroluje jestli jsou vyplnena pole.%>
  5.  
  6. <%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"%>
  7.  
  8. <% REM Set up error handling. %>
  9. <% on error resume next %>
  10.  
  11. <% REM Set up CDONTS component 
  12.        Dim MyBody
  13.        Dim MyCDONTSMail %> 
  14.  
  15. <% Set MyCDONTSMail = CreateObject("CDONTS.NewMail") %>
  16.  
  17.  
  18. <% REM If object isn't found, don't display full page. %>
  19. <% if IsObject(MyCDONTSMail) = FALSE then %>
  20.     <blockquote>
  21.     <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:www@box.cz">webmastera</a></b><p>
  22.     </blockquote>
  23. <% else %>
  24.  
  25.   <% REM SETUP User changeable variables for use on this page. %>
  26.   <% REM    WebMaster is the complete e-mail address of the person who %>
  27.   <% REM       receives the user's feedback. %>
  28.   <% REM    ThisPage is the name of this page. %>
  29.   <% WebMaster = "www@box.cz" %>
  30.   <% ThisPage = "objed.asp" %>
  31.   
  32.   <% REM Set up other variables for use on this page. %>
  33.   <% email = "www@box.cz" %>
  34.  
  35.   <html>
  36.   <head>
  37.   <title>Formular</title>
  38.   </head>
  39. <body bgColor="#FFFFFF">
  40.   <font face="Times New Roman"> 
  41.     <div align="center">
  42. <p><br></p>
  43.   <b>D∞kujeme za VaÜi objednßvku.</b>
  44. <p><a href="index.htm">Zp∞t na ·vodnφ strßnku</a>  
  45.   <meta http-equiv="REFRESH" content="10; URL=index.htm">
  46.  
  47. <%   
  48.     MyCDONTSMail.From= "www"
  49.     MyCDONTSMail.To= "sabina.kravackova@sodatsw.cz"
  50.     MyCDONTSMail.Subject="OBJEDN┴VKA ze Serveru Czech"
  51.     
  52.     
  53.     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)) 
  54.      if  MyBody  then feedback=true
  55.     MyCDONTSMail.Body= MyBody
  56.     MyCDONTSMail.Send
  57.    set MyCDONTSMail=nothing
  58.    %> 
  59.  
  60.  
  61.     <% REM Check if feedback mail was successful. %>
  62.     <p>
  63.     <% if feedback = TRUE then %>
  64.         Objednßvka byla sprßvn∞ odeslßna a bude vy°φzena v co nejkratÜφm mo₧nΘm termφnu.
  65.         
  66.     <% else %>
  67.         <b><% = err.description %>Kontaktujte prosφm <a href="MAILTO:info@sodatsw.cz">webmastera</a> </b><p>
  68.     <% end if %>
  69.     </div>
  70. <% end if %> 
  71.  
  72. </font>
  73. </body>
  74. </html>