home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 March / Chip_2001-03_cd1.bin / bonus / shop / zaver.asp < prev    next >
Text File  |  2000-07-25  |  9KB  |  220 lines
  1. <%@ Language=VBScript %>
  2. <html>
  3.  
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
  6. <title>Formulß° k odeslßnφ</title>
  7. <script language="JavaScript">
  8. <!--
  9. function opravdu () {
  10. ok = 1 ;
  11. if (document.forms[0].Jmeno.value == "") {
  12.         alert ('Bohu₧el jste nezapsali do formulß°e VaÜe jmΘno.\nDopl≥te jej a opakujte odeslßnφ !') ;
  13.         document.forms[0].Jmeno.focus() ;
  14.         ok = 0 ;
  15. }
  16. if (ok == 1) {
  17. if (document.forms[0].Mesto.value == "" && document.forms[0].Ulice.value == "") {
  18.         alert ('Bohu₧el jste nezapsali do formulß°e ani Φßst adresy.\nDopl≥te ji a opakujte odeslßnφ !') ;
  19.         document.forms[0].Mesto.focus() ;
  20.         ok = 0 ;
  21. }
  22. }
  23. if (ok == 1) {
  24. if (document.forms[0].PSC.value == "") {
  25.         alert ('Bohu₧el jste nezapsali do formulß°e PS╚.\nDopl≥te jej a opakujte odeslßnφ !') ;
  26.         document.forms[0].PSC.focus() ;
  27.         ok = 0 ;
  28. }
  29. }
  30. ok2 = 1
  31. zprava = ""
  32. if (document.forms[0].DIC.value == "") { zprava = "Nezadali jste VaÜe DI╚. \nPokud jej nezadßte, nebude Vßm zaslßn da≥ov² doklad.\n\n" }
  33. text = document.forms[0].Email.value
  34. if (text == "@") { ok2 = 0 }
  35. if (text == "") { ok2 = 0 }
  36. if (text.indexOf("@") == -1) { ok2 = 0 }
  37. if (text.indexOf("@") == 0) { ok2 = 0 }
  38. if (text.lastIndexOf("@") == 0) { ok2 = 0 }
  39. if (text.indexOf(".", text.indexOf("@")) == -1) { ok2 = 0 }
  40. if (ok2 == 0) { zprava = zprava + "VaÜe e-mailovß adresa nenφ uvedena, nebo je v nφ chyba.\nPokud ji nevyplnφte sprßvn∞, nem∙₧e Vßm b²t zaslßna kopie VaÜφ objednßvky\n\n" }
  41. if (ok == 1) {
  42.     if (confirm(zprava + "Opravdu chcete VaÜi objednßvku odeslat ?") == true) { 
  43.         document.forms[0].submit() 
  44.         top.header.document.data.box.value = "" ;
  45.         top.header.document.data.box2.value = "" ;
  46.         top.header.document.data.box3.value = "" ;
  47.         top.header.document.data.box4.value = "" ;
  48.         top.header.document.data.box5.value = "" ;
  49.         }
  50.     else { document.forms[0].DIC.focus() }    
  51.     }
  52. }
  53. if (top.header.document.data.box5.value == "") {
  54. alert ('Nejprve prosφm zkontrolujte obsah svΘ objednßvky.')
  55. parent.document.location = "podramec2.htm"
  56. }
  57. var hledejpom = top.header.document.data.box5.value ;
  58. pozpom1 = hledejpom.lastIndexOf("cena objednßvky:") + 17 ;
  59. pozpom2 = hledejpom.lastIndexOf(",- KΦ vΦetn∞") ;
  60. var cena = hledejpom.substring(pozpom1, pozpom2) + ".00";
  61. if (cena == "0.00") {
  62. parent.document.location = "podramec.htm"
  63. }
  64. // --></script>
  65. </head>
  66.  
  67. <body bgcolor="#FFFFFF">
  68. <% 
  69. On Error Resume Next
  70. idu = Session("Id")
  71. if (idu > 0) then
  72. soubor = "../_private/user.mdb"
  73. zdroj = "DBQ=" & Server.MapPath(soubor)
  74. set objConn = server.createobject("adodb.connection")
  75. objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj
  76. set A = objConn.execute("SELECT * FROM user WHERE id = " & idu)
  77. firma = A(3)
  78. osoba = A(4)
  79. ulice = A(5)
  80. mesto = A(6)
  81. psc = A(7)
  82. ico = A(8)
  83. dic = A(9)
  84. email = A("email")
  85. A.Close
  86. Set A = Nothing
  87. objConn.Close
  88. Set objConn = Nothing
  89. else
  90. firma = ""
  91. osoba = ""
  92. ulice = ""
  93. mesto = ""
  94. psc = ""
  95. ico = ""
  96. dic = ""
  97. email = "@"
  98. end If
  99. %>
  100. <form method="POST" action="ok.asp" name="objednavka">
  101. <div align="left"><table border="0" cellpadding="3" cellspacing="0" width="98%" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
  102.     <tr>
  103.       <td width="100%" bgcolor="#FFFFFF"><div align="center"><center><p><font face="Verdana"
  104.       color="#000080"><strong>Odeslßnφ objednßvky</strong></font>
  105.           </div>
  106.         </center></td>
  107.     </tr>
  108.     <tr align="center">
  109.       <td width="100%" align="center" bgcolor="#FFFFFF"> <table border="0" width="100%" cellspacing="0"
  110.       cellpadding="3">
  111.         <tr>
  112.           <td colspan="2" bgcolor="#C0C0C0" width="100%"><font face="Verdana" color="#000080"><strong>Zadejte
  113.           prosφm VaÜe ·daje: </strong></font></td>
  114.         </tr>
  115.         <tr>
  116.           <td bgcolor="#E5E5E5" align="right" colspan="2"><div align="left"><p><font face="Verdana"><small><small>Pro
  117.           pohyb mezi polo₧kami pou₧φvejte tabelßtor nebo myÜ</small></small></font>
  118.             </div>
  119.           </td>
  120.         </tr>
  121.         <tr>
  122.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">JmΘno</font></small></td>
  123.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  124.           type="text" name="Jmeno" size="35" value="<%= osoba %>"></font></td>
  125.         </tr>
  126.         <tr>
  127.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">Firma</font></small></td>
  128.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  129.           type="text" name="Firma" size="35" value="<%= firma %>"></font></td>
  130.         </tr>
  131.         <tr>
  132.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">Ulice</font></small></td>
  133.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  134.           type="text" name="Ulice" size="35" value="<%= ulice %>"></font></td>
  135.         </tr>
  136.         <tr>
  137.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">M∞sto</font></small></td>
  138.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  139.           type="text" name="Mesto" size="35" value="<%= mesto %>"></font></td>
  140.         </tr>
  141.         <tr>
  142.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">PS╚</font></small></td>
  143.           <td bgcolor="#E5E5E5" align="left" width="90"><font face="Verdana"><input type="text"
  144.           name="PSC" size="6" value="<%= psc %>"></font></td>
  145.         </tr>
  146.         <tr>
  147.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">Telefon</font></small></td>
  148.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  149.           type="text" name="Telefon" size="20"></font></td>
  150.         </tr>
  151.         <tr>
  152.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">Fax</font></small></td>
  153.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  154.           type="text" name="Fax" size="20"></font></td>
  155.         </tr>
  156.         <tr>
  157.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">E-mail</font></small></td>
  158.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  159.           type="text" name="Email" size="20" value="<%= email %>"></font></td>
  160.         </tr>
  161.         <tr>
  162.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">I╚O</font></small></td>
  163.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  164.           type="text" name="ICO" size="20" value="<%= ico %>"></font></td>
  165.         </tr>
  166.         <tr>
  167.           <td width="10%" bgcolor="#E5E5E5" align="right" nowrap><small><font face="Verdana">DI╚</font></small></td>
  168.           <td bgcolor="#E5E5E5" align="left" width="90"><div align="left"><p><font face="Verdana"><input
  169.           type="text" name="DIC" size="20" value="<%= dic %>"></font></td>
  170.         </tr>
  171.       </table>
  172.       <table border="0" cellspacing="0" cellpadding="3" width="100%">
  173.         <tr>
  174.           <td width="100%" colspan="2" bgcolor="#C0C0C0"><strong><font face="Verdana"
  175.           color="#000080">VaÜe objednßvka (rekapitulace):</font></strong></td>
  176.         </tr>
  177.         <tr>
  178.           <td bgcolor="#E5E5E5" width="10%" valign="top" align="right" nowrap><div align="right"><p><small><font
  179.           face="Verdana">╚φslo</font></small>
  180.             </div>
  181.           </td>
  182.           <td bgcolor="#E5E5E5" width="90%"><input type="text" name="Cislo_obj" size="20"></td>
  183.         </tr>
  184.         <tr>
  185.           <td bgcolor="#E5E5E5" width="10%" valign="top" align="right" nowrap><div align="right"><p><small><font
  186.           face="Verdana">Text</font></small></td>
  187.           <td bgcolor="#E5E5E5" width="90%"><font face="Verdana"><script LANGUAGE="JavaScript">
  188. <!--
  189. document.write('<textarea rows="10" name="Text" readonly cols="45">',top.header.document.data.box5.value,'</textarea>') ;
  190. // -->
  191. </script></font></td>
  192.         </tr>
  193.         <tr>
  194.           <td bgcolor="#C0C0C0" width="100%" valign="top" align="right" nowrap colspan="2"><div
  195.           align="left"><p><font face="Verdana" color="#000080"><strong>VaÜe p°ipomφnky a
  196.           poznßmky:</strong></font>
  197.             </div>
  198.           </td>
  199.         </tr>
  200.         <tr>
  201.           <td bgcolor="#E5E5E5" width="10%" valign="top" align="right" nowrap> </td>
  202.           <td bgcolor="#E5E5E5" width="90%"><font face="Verdana"><textarea rows="5" name="Poznamka"
  203.           cols="45"></textarea></font></td>
  204.         </tr>
  205.       </table>
  206.       <p><small><font face="Verdana">Stisknutφm tlaΦφtka "Odeslat"
  207.       objednßvku definitivn∞ odeÜlete na nßÜ server.</font></small></td>
  208.     </tr>
  209.     <tr align="center">
  210.       <td width="100%" bgcolor="#FFFFFF" align="center">.<input type="button" value=" Odeslat "
  211.       name="SUBMIT" onClick="opravdu ()">.</td>
  212.     </tr>
  213.   </table>
  214.   </div><div align="center"><center><p><br>
  215.   </p>
  216.   </center></div>
  217. </form>
  218. </body>
  219. </html>
  220.