home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 July & August / PCWorld_2002-07-08_cd.bin / Software / Komercni / sodatsw / trialoa.asp < prev    next >
Text File  |  2001-02-16  |  3KB  |  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("OSOBA")) = "" or trim(request("EMAIL")) = "" then Response.Redirect "errortri.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:info@sodatsw.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 = "info@sodatsw.cz" %>
  30.   <% ThisPage = "trialoa.asp" %>
  31.   
  32.   <% REM Set up other variables for use on this page. %>
  33.   <% email = "info@sodatsw.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>
  43.   <b>D∞kujeme Vßm za VßÜ zßjem.</b></p>
  44. <p><a href="index.htm">Zp∞t na ·vodnφ strßnku</a></p>
  45.   <meta http-equiv="REFRESH" content="0; URL=oatrial.exe">
  46.  
  47.  <%   
  48.     MyCDONTSMail.From= "www"
  49.     MyCDONTSMail.To= "adela.talasova@sodatsw.cz"
  50.     MyCDONTSMail.Subject="TRIAL-OptimAccess 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) & "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))
  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.         VaÜe data byla °ßdn∞ odeslßna.
  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>