home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 January / Chip_2000-01_cd.bin / internet / Sagit / shop / ok.asp < prev    next >
Encoding:
Text File  |  1999-10-20  |  2.9 KB  |  67 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. <%
  11. text = Request.Form("Jmeno") & vbCrLf
  12. text = text & Request.Form("Firma") & vbCrLf
  13. text = text & Request.Form("Ulice") & vbCrLf
  14. text = text & Request.Form("PSC") & "  " & Request.Form("Mesto") & vbCrLf & vbCrLf 
  15. text = text & "Telefon/Fax:  " & Request.Form("Telefon") & " / " & Request.Form("Fax") & vbCrLf
  16. text = text & "E-mail :  " & Request.Form("Email") & vbCrLf & vbCrLf
  17. text = text & "I╚O/DI╚ :  " & Request.Form("ICO") & " / " & Request.Form("DIC") & vbCrLf & vbCrLf
  18. text = text & "Klientovo Φφslo objednßvky :  " & Request.Form("Cislo_obj") & vbCrLf
  19. text = text & Request.Form("Text")
  20. text = text & vbCrLf & vbCrLf & Request.Form("Poznamka")& vbCrLf
  21. objednatel = Request.Form("Email")
  22. Set objMail = Server.CreateObject("CDONTS.NewMail")
  23.     objMail.From = "robot@sagit.cz"
  24.     objMail.To = "sagit@sagit.cz"
  25.     objMail.Subject = "Objednßvka z WWW"
  26.     objMail.Body = text
  27.     objMail.Send
  28. Set objMail = Nothing
  29. 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
  30. Set objMail = Server.CreateObject("CDONTS.NewMail")
  31.     objMail.From = "robot@sagit.cz"
  32.     objMail.To = objednatel
  33.     objMail.Subject = "Objednavka publikacφ z nakladatelstvi Sagit"
  34.     objMail.Body = text
  35.     objMail.Send
  36. Set objMail = Nothing
  37. %>
  38. <table border="0" cellpadding="3" cellspacing="0" width="98%" bordercolor="#000000">
  39.   <tr>
  40.     <td width="100%" bgcolor="#000000"><p align="center"><font face="Verdana" color="#FFFF00"><strong>Zprßva</strong></font></td>
  41.   </tr>
  42.   <tr align="center">
  43.     <td width="100%" align="center"> <table border="0" width="100%" cellspacing="0"
  44.     cellpadding="3">
  45.       <tr>
  46.         <td bgcolor="#000000" width="100%"><font face="Verdana" color="#FFFF00"><strong>D∞kujeme
  47.         Vßm !</strong></font></td>
  48.       </tr>
  49.       <tr>
  50.         <td width="10%" bgcolor="#FF8000" align="right"><p align="left"><font face="Verdana"><small>VaÜe
  51.         objednßvka byla ·sp∞Ün∞ odeslßna na nßÜ server. Obratem Vßm budou zaslßny
  52.         objednanΘ tituly, nebo platebnφ doklady k ·hrad∞ p°edplatnΘho.<br>
  53.           Kopie objednßvky byla odeslßna na adresu <%=objednatel%><br>
  54.         V∞°φme, ₧e budete s naÜimi tituly spokojeni a t∞Üφme se na VaÜe dalÜφ
  55.         objednßvky.</small></font></p>
  56.         <p align="left"><font face="Verdana"><small>Sagit</small></font></td>
  57.       </tr>
  58.     </table>
  59.     <p><font face="Verdana"><a href="sinshop.htm"><small><small>Nßkupnφ systΘm SIN SHOP</small></small></a></font></td>
  60.   </tr>
  61.   <tr align="center">
  62.     <td width="100%" bgcolor="#000000" align="center">..</td>
  63.   </tr>
  64. </table>
  65. </body>
  66. </html>
  67.