home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 January / Chip_2000-01_cd.bin / internet / Sagit / shop / zpravaeb.asp < prev    next >
Encoding:
Text File  |  1999-10-20  |  3.6 KB  |  100 lines
  1. <%@ Language=VBScript %>
  2. <html>
  3.  
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
  6. <title>Zprßva o ·sp∞ÜnΘm odeslßnφ</title>
  7. </head>
  8.  
  9. <body bgcolor="#000000">
  10. <div align="center"><center>
  11.  
  12. <table border="0" cellspacing="0" cellpadding="0" width="70%">
  13.   <tr>
  14.     <td width="100%" align="center" bordercolordark="#C0C0C0"><font face="Verdana"
  15.     color="#FFFF00"><strong>Zprßva</strong></font></td>
  16.   </tr>
  17. </table>
  18. </center></div>
  19. <% 
  20. completed = Request.QueryString("completed")
  21. If completed = "Y" Then
  22. 'text = Request.QueryString("Text")
  23. text = Session("objednavka")
  24. objednatel = Request.QueryString("objednatel")
  25. text = Replace(text, "+", " ")
  26. text = Replace(text, "º", vbCrLf)
  27. text = Replace(text, "^", vbtab)
  28. Set objMail = Server.CreateObject("CDONTS.NewMail")
  29.     objMail.From = objednatel
  30.     objMail.To = "sagit@sagit.cz"
  31.     objMail.Subject = "Objednßvka z WWW - EB"
  32.     objMail.Body = text
  33.     objMail.Send
  34. Set objMail = Nothing
  35. text = "Kopie objednßvky, kterß byla odeslßna na adresu:" & vbCrLf & "Nakladatelstvφ Sagit" & vbCrLf & "Hornφ 1" & vbCrLf & "700 30 Ostrava 3" & vbCrLf & "tel.:069/353062, fax:069/357758" & vbCrLf & vbCrLf & "Text objednßvky:" & vbCrLf & vbCrLf & text
  36. Set objMail = Server.CreateObject("CDONTS.NewMail")
  37.     objMail.From = "robot@sagit.cz"
  38.     objMail.To = objednatel
  39.     objMail.Subject = "Objednavka publikaci nakladatelstvi Sagit"
  40.     objMail.Body = text
  41.     objMail.Send
  42. Set objMail = Nothing
  43. %>
  44. <script LANGUAGE="JavaScript">
  45. <!--
  46. top.header.document.data.box.value = "" ;
  47. top.header.document.data.box2.value = "" ;
  48. top.header.document.data.box3.value = "" ;
  49. top.header.document.data.box4.value = "" ;
  50. top.header.document.data.box5.value = "" ;
  51. // -->
  52. </script>
  53.  
  54.  
  55. <table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#000000">
  56.   <tr align="center">
  57.     <td width="100%" align="center"> <table border="0" width="100%" cellspacing="0"
  58.     cellpadding="5">
  59.       <tr>
  60.         <td bgcolor="#000000" width="100%"><font face="Verdana" color="#FFFF00"><strong>D∞kujeme
  61.         Vßm !</strong></font></td>
  62.       </tr>
  63.       <tr>
  64.         <td width="10%" bgcolor="#FF8000" align="right"><p align="left"><font face="Verdana"><small>VaÜe
  65.         objednßvka byla ·sp∞Ün∞ odeslßna na nßÜ server. P°φkaz k ·hrad∞ platby
  66.         prost°ednictvφm Expandia Banky byl ·sp∞Ün∞ odeslßn. Obratem Vßm budou zaslßny
  67.         publikace kterΘ jsou skladem. Ostatnφ publikace Vßm budou zasφlßny ihned po vydßnφ.<br>
  68.         Kopie objednßvky byla odeslßna na adresu <%=objednatel%><br>
  69.         V∞°φme, ₧e budete s naÜimi publikacemi spokojeni a budete se na nßÜ server rßdi
  70.         vracet.</small></font></p>
  71.         <p align="left"><font face="Verdana"><small>Sagit</small></font></td>
  72.       </tr>
  73.     </table>
  74.     </td>
  75.   </tr>
  76. </table>
  77. <% Else  %>
  78.  
  79. <table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#000000">
  80.   <tr align="center">
  81.     <td width="100%" align="center"> <table border="0" width="100%" cellspacing="0"
  82.     cellpadding="5">
  83.       <tr>
  84.         <td bgcolor="#000000" width="100%"><font face="Verdana" color="#FFFF00"><strong>Chyba !</strong></font></td>
  85.       </tr>
  86.       <tr>
  87.         <td width="10%" bgcolor="#FF8000" align="right"><p align="left"><font face="Verdana"><small>VaÜe
  88.         objednßvka nebyla odeslßna. Provßd∞nφ platebnφho p°φkazu prost°ednictvφm
  89.         Expandia Banky bylo p°eruÜeno.<br>
  90.         Opakujte prosφm objednßvku publikacφ znovu.</small></font></p>
  91.         <p align="left"><font face="Verdana"><small>Sagit</small></font></td>
  92.       </tr>
  93.     </table>
  94.     </td>
  95.   </tr>
  96. </table>
  97. </body>
  98. </html>
  99. <% End If %>
  100.